单击托盘图标,显示菜单


    
Private Sub NotifyIcon1_MouseClick(ByVal sender As ObjectByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
        
If e.Button = Windows.Forms.MouseButtons.Left Then
            NotifyIcon1.ContextMenuStrip 
= ContextMenuStrip1
            
Dim t As Type = GetType(NotifyIcon)
            
Dim mi As Reflection.MethodInfo = t.GetMethod("ShowContextMenu", BindingFlags.NonPublic Or BindingFlags.Instance)
            mi.Invoke(
Me.NotifyIcon1, Nothing)
            NotifyIcon1.ContextMenuStrip 
= Nothing
        
End If

    
End Sub

 
阅读更多
文章标签: object
个人分类: .net技术
上一篇倒计时函数
下一篇理解C#中的委托(Deligate)
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭