как прекратить выполнение цикла при нажатии клавиши? - PullRequest
Новая
       30

как прекратить выполнение цикла при нажатии клавиши?

0 голосов
/ 26 июня 2018

У меня есть сценарий, в котором я по одному отображаю содержимое коллекции, пока не нажата клавиша Проблема в том, что я не могу получить правильный код, чтобы определить, когда нажимается клавиша. Я занимаюсь проектированием в Visual Studio Lightswitch с использованием языка VB.net. Ссылка ниже показывает вывод моей программы. Пример вывода программы . Дисплей продолжает работать до тех пор, пока пользователь не нажмет клавишу. Также ниже приведен пример кода, который я использую. 

    Private Sub Compliances_Activated()
        ' Write your code here.
       Do until "***the problem is here, I suppose to handle keyevents here but with no luck."***
            For Each I In Me.PendingCompliance
                If I.Incharge = "S1" Then
                    Me.Partic = I.Particulars
                    Me.ActionToUndertake = I.ActionToUndertake
                    Me.StatusOfCompliance = I.StatusOfCompliance
                    Dim controlcurr1 = Me.FindControl("Partic1")
                    AddHandler controlcurr1.ControlAvailable, _
                        Sub(sender As Object, e As ControlAvailableEventArgs)
                            Dim textbox = CType(e.Control, System.Windows.Controls.TextBlock)
                            textbox.Foreground = New SolidColorBrush(Color.FromArgb(200, 0, 126, 230))
                            textbox.Height = (400.0)
                            textbox.FontSize = Convert.ToDouble(72.0)
                            textbox.FontFamily = New FontFamily("arial")
                            textbox.TextTrimming = TextTrimming.None

                        End Sub

                    Dim newsText1 = Me.FindControl("Partic1")
                    AddHandler newsText1.ControlAvailable, Sub(sender, e)

                                                               'Get the istance
                                                               Dim block = CType(e.Control, TextBlock)

                                                               'Set a different color, if you like
                                                               block.Foreground = New SolidColorBrush(Colors.Black)

                                                               'Create an animation
                                                               Dim sb As New Storyboard
                                                               Dim colorAnim As New ColorAnimation
                                                               colorAnim.AutoReverse = True
                                                               colorAnim.RepeatBehavior = RepeatBehavior.Forever
                                                               colorAnim.From = Colors.Blue
                                                               colorAnim.To = Colors.White
                                                               colorAnim.Duration = TimeSpan.FromSeconds(8)

                                                               'Apply the animation
                                                               Storyboard.SetTarget(colorAnim, block.Foreground)
                                                               Storyboard.SetTargetProperty(colorAnim, New PropertyPath("Color"))
                                                               sb.Children.Add(colorAnim)
                                                               sb.Begin()

                                                           End Sub

End If следующий пожалуйста помогите

1 Ответ

0 голосов
/ 26 июня 2018

Что вы используете?

Вероятно, это будет что-то вроде этого 

String answer;
If(answer!=" ")

break;
...