以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]任务栏图标菜单中如何加入分隔符【已解决】  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93112)
--  作者：pcxjxjhkw
--  发布时间：2016/11/21 9:09:00
--  [求助]任务栏图标菜单中如何加入分隔符【已解决】

AddHandler nfi.DoubleClick, AddressOf Icon_DoubleClick \'为通知区域图标添加双击事件
Dim tsmi1 As new System.Windows.Forms.ToolStripMenuItem("菜单一",GetImage(projectpath & "\\BrowseMode.ico"))  \'定义一个菜单选项(带图标)
AddHandler tsmi1 .Click, AddressOf Menu1_Click  \'为这个菜单选项添加点击事件
Dim tsmi2 As new System.Windows.Forms.ToolStripMenuItem("菜单二")   \'定义一个菜单选项
AddHandler tsmi2 .Click, AddressOf Menu1_Click  \'为这个菜单选项添加点击事件

1. 

Dim tsmi3 As new System.Windows.Forms.ToolStripMenuItem("分隔符") 　　　‘’‘’如何加入分隔符？

 

2.如何在打开该菜单前定义一个事件，用于判断哪个命令可用？

 

 

谢

[此贴子已经被作者于2016/11/21 17:00:27编辑过]
--  作者：有点蓝
--  发布时间：2016/11/21 10:18:00
--  
1、Dim tsmi3 As new System.Windows.Forms.ToolStripSeparator

2、没明白你的意思
--  作者：pcxjxjhkw
--  发布时间：2016/11/21 12:49:00
--  

问题1已解决。

问题2：以上菜单为右键快捷菜单，如何实现：在打开该菜单前，让某些菜单项可用，有些菜单项不可用。

 

类似于：

Popup

展开快捷菜单的时候执行。

e参数属性：

ContextMenu：要展开的快捷菜单。

[此贴子已经被作者于2016/11/21 13:04:38编辑过]
--  作者：有点蓝
--  发布时间：2016/11/21 14:25:00
--  
https://msdn.microsoft.com/zh-cn/library/windows/apps/xaml/system.windows.forms.toolstripdropdown.opening(v=vs.80)
--  作者：pcxjxjhkw
--  发布时间：2016/11/21 14:59:00
--  
以下是引用有点蓝在2016/11/21 14:25:00的发言：
https://msdn.microsoft.com/zh-cn/library/windows/apps/xaml/system.windows.forms.toolstripdropdown.opening(v=vs.80)

在FT中如何定义该事件？

 

老师，可否帮忙写一下代码

 

主要用到的实例就是

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=34553&replyID=&skin=1

 

如何实现右击任务栏下的图标，让菜单一不可用，菜单二可用。

 

谢

[此贴子已经被作者于2016/11/21 15:01:12编辑过]
--  作者：有点蓝
--  发布时间：2016/11/21 15:23:00
--  
1楼不就有吗，类似这种咯

AddHandler tsmi1 .Click, AddressOf Menu1_Click  \'为这个菜单选项添加点击事件
--  作者：pcxjxjhkw
--  发布时间：2016/11/21 16:01:00
--  

AddHandler nfi.Click, AddressOf Icon_Click

\'图标单击事件
Public Sub ICON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
cms.Items("服务器状态").Text = "123"　　‘’‘’报错
If MouseButton = MouseButtons.Right Then
    PopMessage("123")　　　‘’‘无法运行到此步
End If　


End Sub

 

 
--  作者：有点青
--  发布时间：2016/11/21 16:40:00
--  

 去绑定mousedown事件