LzmTW.uSystem.uWindows.uForms.uMainForm+uNotifyIcon

最新推荐文章于 2009-07-19 23:16:00 发布

水如烟

最新推荐文章于 2009-07-19 23:16:00 发布

阅读量1.2k

点赞数

分类专栏：应用类代码文章标签： object string class

本文链接：https://blog.csdn.net/lzmtw/article/details/1386932

版权

应用类代码专栏收录该内容

35 篇文章 0 订阅

订阅专栏

Author：水如烟

Namespace LzmTW.uSystem.uWindows.uForms.uMainForm

     Public Class uNotifyIcon
         Private WithEvents gNotifyIcon As New NotifyIcon
         Private WithEvents gContextMenuStrip As New System.Windows.Forms.ContextMenuStrip
         Private WithEvents gShowToolStripMenuItem As New System.Windows.Forms.ToolStripMenuItem

         Private WithEvents gMainForm As Form

         Public ReadOnly Property ContextMenuStrip() As ContextMenuStrip
             Get
                 Return Me .gContextMenuStrip
             End Get
         End Property

         Public WriteOnly Property Visible() As Boolean
             Set ( ByVal value As Boolean )
                 Me .gNotifyIcon.Visible = value
             End Set
         End Property

         Sub New ( ByVal mainForm As Form)
            gMainForm = mainForm
            Initialize()
         End Sub

         Private Sub Initialize()

             Me .gShowToolStripMenuItem.Text = String .Format( " 打开 {0} " , Me .gMainForm.Text)

             Me .gContextMenuStrip.Items.Add( Me .gShowToolStripMenuItem)

             With gNotifyIcon
                .Text = gMainForm.Text
                .ContextMenuStrip = Me .gContextMenuStrip
                .Icon = gMainForm.Icon
                .Visible = False
             End With
         End Sub

         Public Sub HideWindow()
             Me .gNotifyIcon.Visible = True
            gMainForm.Hide()
         End Sub

         Private Sub gShowToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) Handles gShowToolStripMenuItem.Click
             Me .ShowWindow()
         End Sub

         Private Sub gNotifyIcon_MouseDoubleClick( ByVal sender As Object , ByVal e As System.Windows.Forms.MouseEventArgs) Handles gNotifyIcon.MouseDoubleClick
             Me .ShowWindow()
         End Sub

         Private Sub ShowWindow()
             Me .gNotifyIcon.Visible = False
            uWindows.Win32API.WindowsAction.ShowWindow(gMainForm)
         End Sub

         Private Sub gMainForm_FormClosing( ByVal sender As Object , ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles gMainForm.FormClosing
             Me .gNotifyIcon.Dispose()
         End Sub

     End Class

End Namespace