vb怎样表示“长按”某个键，如ESC退出键？

Question

长按就是按的时间比一般按键时间稍微长些。

Answer 1

'窗体获得焦点才有效，如果无焦点可以使用api函数，自己修改
Option Explicit
Const settime = 1 '这里设置延迟1s
Dim keyup As Boolean, keydown As Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 And Not keydown Then
keyup = False
keydown = True
delaymessage
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
keyup = True
keydown = False
End If
End Sub

Function delaymessage()
Dim t, flag As Boolean
t = Timer
Do
If keyup Then Exit Do '未到时间放掉Esc键
If Timer - t >= settime Then
flag = True
Exit Do
End If
DoEvents
Loop
If flag Then
Print "时间已到：" & settime '可以用msgbox，但由于长安esc后msgbox显示后马上又消失，这里只是一个功能，给你用print做显示
flag = False
End If
End Function

追问

请写出无焦点情况下（程序隐藏或最小化运行）的代码。

追答

无米无诚信，哈哈哈，连5毛都没有你还好意思问呀，我这个回答都不止5毛

追问

先加20,诚心诚意

追答

’20毛少了一点，随便给你写点，长安ESC 1s后打印时间，这里你可以改成调用过程或函数
Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Dim i As Long, t, j As Integer
If GetAsyncKeyState(27) = 0
If Timer - t > 1 Then Exit Do
DoEvents
Loop
If GetAsyncKeyState(27) < 0 Then Debug.Print "Esc"
End If
End Sub

追问

请写个真正好用的.我看情况再加分,可以加到最高分值.分不是问题.前面有个回答,把长按与短按相混淆,长按也可,短按两三次也相当于长按,影响了短按的功用.短按还有其他用途.

再解释一下:我说的长按是按下去的时间稍微长些,

追答

'长安短按都给你写了，如果再看不懂我也就认输了，时间自己设置
Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Dim i As Long, t, j As Integer
Static flag As Boolean
If GetAsyncKeyState(27) 0.5‘0.5s之内作为短按
DoEvents
Loop
If Not flag Then
flag = True
If GetAsyncKeyState(27) >= 0 Then '如果esc已经放开按短按处理
Debug.Print "短按功能"
Exit Sub
End If
Do Until GetAsyncKeyState(27) >= 0
If Timer - t > 0.5 Then Exit Do '2个0.5相加就是1s
DoEvents
Loop
If GetAsyncKeyState(27) < 0 Then Debug.Print "长安功能"
End If
Else
flag = False
End If
End Sub

Answer 2

Private a As Long
Private b As Boolean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
If Not b Then
a = Timer
End If
b = True
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
If Timer - a > 1 Then MsgBox "long"
b = False
End If
End Sub

Private Sub Form_Load()
b = False
End Sub

追问

1、测试你的代码了，大体实现了。但遗憾的是：MsgBox "long"是在KeyUp事件中。就是鼠标按ESC下去后重新起来的时候再执行的。能不能长按下去不起来，就执行MsgBox "long"？
2、你的代码中有个Timer，为什么不加时间控件就可执行？请解释下。谢谢

追答

你把判断放到keydown里就可以了
Private a As Long
Private b As Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
If Not b Then
a = Timer
b = True
End If

If b And Timer - a > 1 Then
MsgBox "long"
b = False
End If
End If
End Sub

timer是得到开机时间 和时间控件无关

追问

1、有改进。但我发现用你这个新的代码，我短按三下键，它照样弹出msgbox。我之所以用长按，是因为“短按”是有其他用途的。如果短按三下相当于长按，就影响到了短按的其他用途，不好控制程序了。请再修改下，好吗
2、timer是得到开机（开电脑）时间？不是程序启动的时间吗？