Question

问大家个问题:VB 怎么实现 点关闭铵钮后,将窗口最小化到右下角的托盘中!

会有哪些 bug ？ 怎么解决
谢谢``

Answer 1

可以用API来实现，不过还是采用微软封装好的控件来实现比较方便，不过改控件并不在VB安装目录中，需要找到VB的安装盘的COMMON\TOOLS\VB\UNSUPPRT\SYSTRAY目录，将Systray目录拷到硬盘上面并编译为ocx控件，然后在自己的VB程序中添加改控件。
改控件的属性InTray属性用来设置是否显示在托盘中，True为显示在托盘，False为不显示。
TrayIcon属性是在托盘中显示的图标式样。
TrayTip属性是鼠标移到改控件上面显示的提示文字。
如果要使程序最小化时显示到托盘，如下：
Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then
cSysTray1.InTray = True
Me.Visible = False
End If
End Sub
点击托盘图标后让程序显示出来，如下：
Private Sub cSysTray1_MouseDown(Button As Integer, Id As Long)
Me.WindowState = vbNormal
Me.Visible = True
cSysTray1.InTray = False
Me.SetFocus
End Sub

Answer 2

窗体名.Hide() 就可隐藏了
至于控制托盘 写个事件显示就行了