如何在隐藏窗体时同时隐藏托盘图标
我希望用热键实现窗体隐藏时托盘图标也自动隐藏,这该怎么实现呀??请指教~
最好把源码也给我,谢谢了~~
[解决办法]
[code=VB][/code]
'声明一个函数如下:
Private Sub traydelbal(ByVal MyForm As Form)
With ni
.cbSize = Len(ni)
.hWnd = MyForm.hWnd
End With
Shell_NotifyIcon NIM_DELETE, ni
End Sub
'再在热键隐藏处调用它。
'比如:
If a Then '如果窗体是可见状态那么
Form1.Hide '如果是你设置的快捷键且窗体当前可见 就隐藏窗体
traydelbal Form1
a = False '用于重新显示