Visual Basic 2012：在循环时立即退出

Question

我正在为Visual Basic开发一个控制台应用程序，它将在while循环中运行一段代码。 如果按下退出键，我希望while循环在任何时候立即停止。

我不确定如何让程序连续监听逃逸按键，而不必输入一百万个检查点。 我意识到在下面的示例（只是我为示例编写的内容）中，在“ readline”检查期间，我有机会更改值。 任何帮助，将不胜感激！

Dim inp As Char
Dim x, y, z As Integer

While inp <> Chr(27)
    console.writeline ("Press escape at any time to exit")
    console.writeline ("Please enter a numeric value: ")
    x = console.readline()

    If x > 1 Then
        console.writeline ("greater")
    Else
        console.writeline ("lesser")
    End If

    console.writeline ("Do you have other values? Y or N")
    inp = console.readline()

    If inp = "y" Then
        '...other stuff
    Else
        console.writeline ("Press escape to exit or any other key to continue")
        inp = console.readline()
    End If

End While

Answer 1

也许您还可以定义一个公共布尔变量，并在使用键盘按下事件的转义键时将其置于true。 在循环中，您可以在某个战略要点检查此布尔值，并判断为真。