Foxtable(狐表)用户栏目专家坐堂 → 右键菜单


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

主题:右键菜单

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


加好友 发短信
等级:幼狐 帖子:102 积分:966 威望:0 精华:0 注册:2015/10/1 16:23:00
右键菜单  发帖心情 Post By:2017/4/7 14:54:00 [只看该作者]

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = Forms("导航窗").Controls("TreeView1")

Dim tet As WinForm.TextBox = e.Form.Controls("TextBox1")

nd = Tr.Nodes.Add("Root1","" & tet.value & "","house_one.png")
nd.Nodes.Add("Sub1","子节点一")
nd.Nodes.Add("Sub2","子节点二")
nd = Tr.Nodes.Add("Root2","根节点二","house_one.png")
nd.Nodes.Add("Sub3","子节点三")
nd.Nodes.Add("Sub4","子节点四")

想请教老师,如何实现主节点上的右键菜单,创建子节点呢,用下面都不行,放在MouseDown事件中

 If e.Button = MouseButtons.Right Then '假定按下的是鼠标右键

    ContextMenus("TextBox1").Show(e.Sender,e.x,e.y) '则在鼠标位置显示快捷菜单
End
If




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


加好友 发短信
等级:二尾狐 帖子:573 积分:2961 威望:0 精华:0 注册:2016/10/27 14:33:00
  发帖心情 Post By:2017/4/7 16:38:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:目录树右键菜单.table


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


加好友 发短信
等级:幼狐 帖子:102 积分:966 威望:0 精华:0 注册:2015/10/1 16:23:00
  发帖心情 Post By:2017/4/7 23:15:00 [只看该作者]

 照着你给的例做,右键一点报警:“给定关键字不在字典中。”
       只有在控件事件中这个代码:
  If e.Button = MouseButtons.Right Then '假定按下的是鼠标右键
    e.Sender.ShowContextStrip(e.x, e.y, e.Form.Strips("快捷菜单1"))
End If

  “快捷菜单1” 这是什么,写在那里的?   图片点击可在新窗口打开查看问题在那,见笑了

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/4/7 23:18:00 [只看该作者]

到窗口菜单中创建一个快捷菜单


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


加好友 发短信
等级:幼狐 帖子:102 积分:966 威望:0 精华:0 注册:2015/10/1 16:23:00
  发帖心情 Post By:2017/4/7 23:58:00 [只看该作者]

  老师,我在窗口设计器的“编辑” 菜单中,找不到“菜单编辑器” 这项呢,这是怎么了呢?    



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


加好友 发短信
等级:幼狐 帖子:102 积分:966 威望:0 精华:0 注册:2015/10/1 16:23:00
  发帖心情 Post By:2017/4/8 0:02:00 [只看该作者]

编辑菜单下 只有“复制、删除、撤消、设置TAB键顺序” 这只项

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/4/8 9:11:00 [只看该作者]

如果是试用版,确实是没有这个功能的。


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:目录树右键菜单.table



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


加好友 发短信
等级:幼狐 帖子:102 积分:966 威望:0 精华:0 注册:2015/10/1 16:23:00
  发帖心情 Post By:2017/4/10 23:34:00 [只看该作者]

 老师,我照着你的做,用系统“菜单设计”,但也不行。这时我用模板:system.Ribbon后,用你的方法增加快捷菜单,这时可以了。

但我试着做个主菜单,退出后无显示做的菜单,用功能键也回不到用户菜单,一直显示的是系统菜单。这是为什么,如何处理? 

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/11 8:56:00 [只看该作者]

以下是引用3232121table在2017/4/10 23:34:00的发言:
 老师,我照着你的做,用系统“菜单设计”,但也不行。这时我用模板:system.Ribbon后,用你的方法增加快捷菜单,这时可以了。

但我试着做个主菜单,退出后无显示做的菜单,用功能键也回不到用户菜单,一直显示的是系统菜单。这是为什么,如何处理? 

 

必须要添加3个以上的菜单控件,才会开始显示你设置的菜单。


 回到顶部