Foxtable(狐表)用户栏目专家坐堂 → [求助]任务栏图标菜单中如何加入分隔符【已解决】


  共有2751人关注过本帖树形打印复制链接

主题:[求助]任务栏图标菜单中如何加入分隔符【已解决】

帅哥哟,离线,有人找我吗?
pcxjxjhkw
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
[求助]任务栏图标菜单中如何加入分隔符【已解决】  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2016/11/21 12:49:00 [显示全部帖子]

问题1已解决。

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

 

类似于:

Popup

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

e参数属性:

ContextMenu:要展开的快捷菜单。

[此贴子已经被作者于2016/11/21 13:04:38编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By: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

 

 


 回到顶部