Question

VB 等待用户按键，并根据按键执行不同语句

我想实现的是这样的：
一个循环，共循环40次，
每一次，先出现控件A，然后等待用户键盘按键（字母C或D），
按键后，C或D会执行不同的赋值语句，其他按键则无效，直到用户按下C或D，
然后A消失，这一次循环结束。

我就是想问，A出现和消失中间涉及键盘的这部分，要怎么做...

Answer 1

可以用DoEvents来处理期间的事件（这样才能使用KeyPress/KeyDown且不会死机）。将DoEvents放入循环，直到按下了C或D。（建议用KeyDown而不是KeyPress，因为KeyPress区分大小写）

Dim Key As Integer '全局变量

Sub XXX()
    '在子程序中
    Dim i As Integer
    For i = 1 To 40 '40次的循环
        A.Visible = True
        Do
            Key = 0 '按键置0
            DoEvents '处理事件，这里是关键
        Loop Until Key = vbKeyC Or Key = vbKeyD '直到按下C或D
        Select Case Key
            Case vbKeyC
                '按下C后
                MsgBox "按下了C！"
            Case vbKeyD
                '按下D后
                MsgBox "按下了D！"
        End Select
        A.Visible = False
    Next i
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    '若要在Form_KeyDown中处理，窗体的KeyPreview须为True
    Key = KeyCode '记录按键
End Sub

这种办法的缺点是可能很耗CPU，而且此时若把窗体关闭程序也不会退出（这个问题也可以用全局变量解决）。

Answer 2

用do loop吧，直到获取到C或D的值，结束do循环

追问

那怎么能"获取到C或D的值"? 能用什么函数做吗?

追答

简单一点的，可以设个全局变量，在窗体的keypress的事件中，获取值
麻烦点的用API吧

追问

但是，我是想在自定义的function的for循环的每一次循环中，都重新获取一次，这样怎么用窗体的keypress事件呢？
API看得我整个人都凌乱了，所以才来知道上问的...

追答

好，稍等，我给你做个测试代码，留个联系方式，发给你

追问

邮箱私信你了~
太感谢了!!!

追答

已发，你试试看，有问题再找我