关闭窗体最小化到任务栏

 

 1 Protected Overrides Sub OnClosing(ByVal e As System.ComponentModel.CancelEventArgs)
 2        '  Me.ShowInTaskbar = False
 3        Me.WindowState = FormWindowState.Minimized
 4        e.Cancel = True
 5    End Sub 'OnClosing
 6
 7 
 8
 9Private Sub frmWarning_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
        If Me.WindowState = FormWindowState.Minimized Then
            Me.NotifyIcon2.Text = "工作提醒( " & Microsoft.VisualBasic.Left(company_name, 4) & ")"
            Me.ShowInTaskbar = False
            Me.NotifyIcon2.Visible = True
            Me.Hide()
        End If
    End Sub