Question

用vb 编写一个程序，当同时按下Shift+F6时，在窗体上显示“你好！”，并终止程序运行。

Answer 1

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF6 And Shift = 1 Then
Print "你好！"
End If
End Sub
应该是把窗体的KeyPreview设为True，这样窗体优先激活键盘事件。

如果想关闭，可以加入：Unload me
可以将该关闭语句放入一个定时钟，否则你会看不到“你好！”的。
具体如下，在窗体上增加一个定时控件Timer1.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF6 And Shift = 1 Then
Print "你好"
Timer1.Interval = 1000
End If
End Sub

Private Sub Timer1_Timer()
Unload Me
End Sub
运行程序，按Shift+F6后，显示“你好！”，1秒钟后关闭窗口。

Answer 2

窗口的KeyDown事件里面写
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyF6 And Shift = 1 Then
Print "你好"
End If

End Sub
并把窗口的AutoRedraw设为true

Answer 3

'设置窗体的KeyPreView=True AutoRedraw=True
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF6 And Shift = 1 Then
Print "你好"
Stop '加这个是为了能看到 你好 否则直接结束程序的运行什么也看不到
End
End If
End Sub

Answer 4

keydown事件里面写