由于狐表并没有现成的组合按钮控件,但提供了用快捷菜单的方式来迂回解决
以下是帮助文档
关键代码为:
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
欢迎大家测试!
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:330.png
此主题相关图片如下:11.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-10/201510191010140765.png)
[此贴子已经被作者于2015/10/19 10:18:16编辑过]