vb getasynckeystate 任意键

vb getasynckeystate 任意键

这个必须要是DOS程序一样的没有窗体的程序才可以的吧?你说的暂停在窗体程序里实现不了的.

答案补充：看见问题补充了，我想的办法是：再新建一个Form2，里面放一个Label，Caption是诸如“请按任意键继续...”之类的话，窗体大小调整到适合，然后Form2的代码如下。

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Unload Me

End Sub

在Form1中，需要暂停的地方就Form2.Show VbModal。例如：

Private Sub Command1_Click()

Command1.Caption = "a"

Form2.Show vbModal

Command1.Caption = "b"

End Sub

你可以调试一下看看效果，还是不错的。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

用Stop语句，功能是调试的时候中断运行。例如，建一个Command1，添加如下代码。

Private Sub Command1_Click()

Command1.Caption = "a"

Stop

Command1.Caption = "b"

End Sub

那么单击按钮之后会先显示“a"，然后中断运行，然后并不是按任意键程序继续，而是按上面的“启动”按钮或者按F5键继续运行。

用不着啊！你要是看每一句执行的效果，如执行过程时每个变量的赋值变化，就这样做：编好程序后，不运行，按逐语句调试(F8好象)，按一下执行一句，那句代码就会变黄色，把鼠标放上去，可以看到变量的值；好辛苦～