Foxtable(狐表)用户栏目专家坐堂 → [求助]求自定义右键菜单思路设计


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

主题:[求助]求自定义右键菜单思路设计

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


加好友 发短信
等级:童狐 帖子:290 积分:2317 威望:0 精华:0 注册:2013/11/29 16:59:00
[求助]求自定义右键菜单思路设计  发帖心情 Post By:2015/11/18 18:15:00 [只看该作者]

想做一个自定义的右键菜单,我用一个panel上面放button,想右键单击指定列跟随显示panel菜单。

这样设计时不用窗口来回换,直接一个窗口就可以设计多个面板右键。预览时隐藏面板,右键后跟随显示菜单出来!

试过用Controls("Panel1").SetBounds 来显示位置,但坐标拾取不会。网上也没搜到这方面资料,不知从何下手

求大神指点出路!!!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目11.foxdb
效果图如下:

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20151118175904.png
图片点击可在新窗口打开查看




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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/19 10:13:00 [只看该作者]

BeforeShowContextMenu事件

 

e.cancel = True
Dim dp As new Point()
dp.X = Windows.Forms.Cursor.Position.X
dp.Y = Windows.Forms.Cursor.Position.Y

dp = e.Form.panel.PointToClient(dp)

e.Form.Controls("Panel1").basecontrol.left = dp.x
e.Form.Controls("Panel1").basecontrol.Top = dp.y


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


加好友 发短信
等级:童狐 帖子:290 积分:2317 威望:0 精华:0 注册:2013/11/29 16:59:00
  发帖心情 Post By:2015/11/19 11:51:00 [只看该作者]

谢谢大神,跪拜图片点击可在新窗口打开查看

 回到顶部