读书人

大侠们介绍一下getkeystate的用法解决

发布时间: 2012-03-13 11:21:12 作者: rapoo

大侠们介绍一下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 

读书人网 >VB

热点推荐