首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2012-03-13 
大侠们介绍一下getkeystate的用法我想做一个visiblefalse的form,如何让我一按下键盘上某个键(比如s)就执

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

热点排行