VB实现按键判断

来源：百度知道 编辑：UC知道 时间：2024/05/22 07:17:56
我想用VB写个程序：在这个程序运行时，判断我是否按下键盘上的某个预订的键，如Shift，然后做出不同的动作，如：按下时自动退出本程序，一段时间内未按下该键，则弹出一个消息框，不知如何实现。请赐教，谢谢。

建Timer1.代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = vbShiftMask Then End
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 5000
End Sub

Private Sub Timer1_Timer()
MsgBox "你未按下Shift键"
End Sub

四级的人了该给点悬赏分来提问了

只给出你思路吧，代码不编了
设定一个INT型的全局变量，用来记录你说的“一段时间内未按下该键”的那一段时间
用keypress事件来进行判断用户的键盘输入，而且每次键盘输入之后就将那个全局变量设置成初值
设定一个timer用来记录时间，当全局变量>0则减去1，如果=0则给出消息框

完毕~

四级的人了该给点悬赏分来提问了

完全同意.