Foxtable(狐表)用户栏目专家坐堂 → 帮助里关于快捷菜单的一点完善


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

主题:帮助里关于快捷菜单的一点完善

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


加好友 发短信
等级:三尾狐 帖子:780 积分:5756 威望:0 精华:0 注册:2012/10/21 7:57:00
帮助里关于快捷菜单的一点完善  发帖心情 Post By:2015/10/19 10:11:00 [只看该作者]

由于狐表并没有现成的组合按钮控件,但提供了用快捷菜单的方式来迂回解决
以下是帮助文档

关键代码为:
If e.Button = MouseButtons.Right Then '假定按下的是鼠标右键
    ContextMenus("快捷菜单名").Show(e.Sender,e.x,e.y) '则在鼠标位置显示快捷菜单
End 
If

这个代码里的参数e.x,e.y的运行效果是,在鼠标点击的地方弹出快捷菜单
这个效果和真正的组合按钮效果还是稍有差距,就是弹出菜单的位置会随鼠标单击位置变化

经摸索,将代码改为如下,就很像啦
If e.Button = MouseButtons.Right Then '假定按下的是鼠标右键
    ContextMenus("快捷菜单名").Show(e.Sender,0,e.sender.height) '对齐按钮左下方显示快捷菜单
End 
If

欢迎大家测试!


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

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





[此贴子已经被作者于2015/10/19 10:18:16编辑过]

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


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

占个位置

 

下载信息  [文件大小:296.0 KB  下载次数:15]
图片点击可在新窗口打开查看点击浏览该文件:按钮菜单.table


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


加好友 发短信
等级:三尾狐 帖子:780 积分:5756 威望:0 精华:0 注册:2012/10/21 7:57:00
  发帖心情 Post By:2015/10/19 10:14:00 [只看该作者]

风头被抢了,不爽图片点击可在新窗口打开查看

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


加好友 发短信
等级:幼狐 帖子:194 积分:1168 威望:0 精华:0 注册:2015/6/8 21:38:00
  发帖心情 Post By:2015/10/19 11:41:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部