Question

我正在开发一个用于visual basic的控制台应用程序，它将在while循环中运行一段代码。如果按下转义键，我希望while循环立即停止，任何时候。

我不确定如何让程序持续监听转义按键，而不必放入一百万个检查点。我意识到在下面的例子中（只是我为样本写的东西）在＆＃34; readline＆＃34;检查我有机会改变价值。任何帮助将不胜感激！

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。在你的循环中，你可以在某个战略要点检查这个布尔值，并且结果是正确的。

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

1 个答案: