- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 帮助里关于快捷菜单的一点完善 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75974)
-- 发布时间：2015/10/19 10:11:00
-- 帮助里关于快捷菜单的一点完善
由于狐表并没有现成的组合按钮控件，但提供了用快捷菜单的方式来迂回解决
以下是帮助文档
关键代码为：
If e.Button = MouseButtons.Right Then \'假定按下的是鼠标右键
ContextMenus("快捷菜单名").Show(e.Sender,e.x,e.y) \'则在鼠标位置显示快捷菜单
End If
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
ContextMenus("快捷菜单名").Show(e.Sender,0,e.sender.height) \'对齐按钮左下方显示快捷菜单
End If
欢迎大家测试！
此主题相关图片如下：330.png
此主题相关图片如下：11.png
[此贴子已经被作者于2015/10/19 10:18:16编辑过]
-- 发布时间：2015/10/19 10:12:00
--
占个位置
| 下载信息 [文件大小：296.0 KB 下载次数：15] | |
 点击浏览该文件:按钮菜单.table |
-- 发布时间：2015/10/19 10:14:00
--
风头被抢了，不爽
-- 发布时间：2015/10/19 11:41:00
--
