大侠们介绍一下getkeystate的用法
我想做一个visible=false的form,如何让我一按下键盘上某个键(比如s)就执行visible=true命令(即不借助其他form唤醒该程序)?用不用getkeystate都行,代码要简洁一点,最好说一下用法
还有如何用getkeystate检测是否同时按下两个键?
[解决办法]
这段代码就可以实现通过按S键,使窗口进行 显示/隐藏 的切换:
- VB code
Option ExplicitPrivate Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As IntegerDim lFlag&, lWinSta&Private Sub Form_Load() lFlag = 0 lWinSta = -1 Timer1.Interval = 50 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() If (lFlag = 0) Then If (GetKeyState(vbKeyS) And &H8000&) Then lFlag = 1 lWinSta = Not lWinSta Me.Visible = lWinSta End If Else lFlag = GetKeyState(vbKeyS) And &H8000& End IfEnd Sub