Question

VB 如何隐藏托盘图标?

程序里面代码就这么多，麻烦帮我完善，让它可以隐藏到托盘

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub

Private Sub Timer1_Timer()
Me.Caption = WebBrowser1.LocationName
If InStr(Me.Caption, "管理端") > 0 Then
Form1.Width = 13590
Form1.Height = 8400
Dim oldwidth, oldheight
WebBrowser1.Width = 13590
WebBrowser1.Height = 8400
WebBrowser1.ToolBar = 0
Form1.Left = (Screen.Width - Form1.Width) / 2
Form1.Top = (Screen.Height - Form1.Height) / 2
Timer1.Enabled = False
End If
End Sub
隐藏到托盘图标 ,请帮我在这代码上面修改或是重写！
反正我的程序就是实现上面代码中的功能，你可以自己重写！

Answer 1

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub

Private Sub Timer1_Timer()
Me.Caption = WebBrowser1.LocationName
If InStr(Me.Caption, "管理端") > 0 Then
Form1.Width = 13590
Form1.Height = 8400
Dim oldwidth, oldheight
WebBrowser1.Width = 13590
WebBrowser1.Height = 8400
WebBrowser1.ToolBar = 0
Form1.Left = (Screen.Width - Form1.Width) / 2
Form1.Top = (Screen.Height - Form1.Height) / 2
Timer1.Enabled = False
Me.Hide'这样可以吗？？？？？？？？？？？
End If
End Sub

Answer 2

“隐藏托盘图标”乎？“隐藏到托盘图标”乎？

Hi解决。

Answer 3

你这段代码 不能实现 托盘 只是一个简单的改变窗口的大小，根本就没有托盘何来“隐藏”