- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 右键菜单 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98817)
-- 发布时间：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
-- 发布时间：2017/4/7 16:38:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:目录树右键菜单.table |
-- 发布时间：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” 这是什么，写在那里的？ 
问题在那，见笑了
问题在那，见笑了-- 发布时间：2017/4/7 23:18:00
--
到窗口菜单中创建一个快捷菜单
-- 发布时间：2017/4/7 23:58:00
--
老师，我在窗口设计器的“编辑” 菜单中，找不到“菜单编辑器” 这项呢，这是怎么了呢？
-- 发布时间：2017/4/8 0:02:00
--
编辑菜单下 只有“复制、删除、撤消、设置TAB键顺序” 这只项
-- 发布时间：2017/4/8 9:11:00
--
如果是试用版，确实是没有这个功能的。
-- 发布时间：2017/4/10 23:34:00
--
老师，我照着你的做，用系统“菜单设计”，但也不行。这时我用模板：system.Ribbon后，用你的方法增加快捷菜单，这时可以了。
但我试着做个主菜单，退出后无显示做的菜单，用功能键也回不到用户菜单，一直显示的是系统菜单。这是为什么，如何处理？
-- 发布时间：2017/4/11 8:56:00
--
以下是引用3232121table在2017/4/10 23:34:00的发言：
老师，我照着你的做，用系统“菜单设计”，但也不行。这时我用模板：system.Ribbon后，用你的方法增加快捷菜单，这时可以了。
老师，我照着你的做，用系统“菜单设计”，但也不行。这时我用模板：system.Ribbon后，用你的方法增加快捷菜单，这时可以了。
但我试着做个主菜单，退出后无显示做的菜单，用功能键也回不到用户菜单，一直显示的是系统菜单。这是为什么，如何处理？
必须要添加3个以上的菜单控件，才会开始显示你设置的菜单。