接下来我们就要输入代码了。在Form的Resize代码事件中,
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize If Me.WindowState = FormWindowState.Minimized Then Me.Hide() End If End Sub
代码的意思是让窗体最小化的时候就自动隐藏到状态栏。
这样运行的时候窗体就会自动隐藏,出现在状态栏了。
想双击图标的时候显示窗体的话可以设置NotifyIcon控件的DoubleClick代码。
代码如下:
Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick Me.ShowInTaskbar = True Me.Show() Me.WindowState = FormWindowState.Normal End Sub