先声明api
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vkey As Long) As Integer
定义一个函数
Function MyHotKey(vKeyCode) As Boolean
MyHotKey = GetAsyncKeyState(vKeyCode) < 0End Function然后在form中加一个timer
Private Sub Timer2_Timer()
If MyHotKey(vbKeyEscape) Then WindowState = 0
End Sub
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vkey As Long) As Integer
定义一个函数
Function MyHotKey(vKeyCode) As Boolean
MyHotKey = GetAsyncKeyState(vKeyCode) < 0End Function然后在form中加一个timer
Private Sub Timer2_Timer()
If MyHotKey(vbKeyEscape) Then WindowState = 0
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货