中科新闻网小孩头皮发红怎么回事:VB呼出隐藏程序问题
来源：百度文库 编辑：中科新闻网 时间：2024/05/04 14:23:17
If wParam = 106 <> 0 Then Form1.Visible = False
调用热键 呼出窗体 如果再次调用这个热键隐藏应该怎么写 是不是要用API键盘拦截 那位朋友能回答我下 具体点 我吧我分全部送出去
调用热键 呼出窗体 如果再次调用这个热键隐藏应该怎么写 是不是要用API键盘拦截 那位朋友能回答我下 具体点 我吧我分全部送出去
建立一个全局变量来标识程序的显示状态，
public IsHide as bool
然后改写以上代码：
If wParam=106 then
if IsHide then
Form1.visible=true
else
Form1.visible=false
end if
IsHide=not IsHide
end if
我只知道不用API来用热键隐藏窗体这么做：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = vbCtrlMask And KeyCode = Asc("1") Then Form1.Hide
End Sub