关闭

单击托盘图标,显示菜单

212人阅读 评论(0) 收藏 举报

    
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

 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:4095次
    • 积分:88
    • 等级:
    • 排名:千里之外
    • 原创:4篇
    • 转载:4篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档