Foxtable(狐表)用户栏目专家坐堂 → 请教狐爸及高手大侠


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

主题:请教狐爸及高手大侠

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


加好友 发短信
等级:二尾狐 帖子:599 积分:4188 威望:0 精华:0 注册:2011/12/21 11:25:00
  发帖心情 Post By:2013/1/4 10:44:00 [显示全部帖子]

我想知道,点击右键后如何显示快捷菜单

至于菜单中项目动作,在设计菜单时有,比如Popup,closed


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


加好友 发短信
等级:二尾狐 帖子:599 积分:4188 威望:0 精华:0 注册:2011/12/21 11:25:00
  发帖心情 Post By:2013/1/4 13:58:00 [显示全部帖子]

哎呀,帮助看的不仔细,惭愧!老大英明阿

 


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


加好友 发短信
等级:二尾狐 帖子:599 积分:4188 威望:0 精华:0 注册:2011/12/21 11:25:00
  发帖心情 Post By:2013/1/4 14:00:00 [显示全部帖子]

楼主5天有这样的成绩,真牛人也

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


加好友 发短信
等级:二尾狐 帖子:599 积分:4188 威望:0 精华:0 注册:2011/12/21 11:25:00
  发帖心情 Post By:2013/1/5 10:53:00 [显示全部帖子]

If e.Button = MouseButtons.Right Then
Dim trv As Object = e.Form.Controls("TreeView1")
Dim node As Object = trv.BaseControl.GetNodeAt(e.x, e.y)
If node IsNot Nothing
    Dim qmenu As RibbonMenu.ContextMenu = ContextMenus("快捷菜单1")
    qmenu.Show(trv, e.x, e.y)
End If
End If

 

以上代码是林总加在MouseUp事件中的

 


 回到顶部