共9 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：菜单问题
1楼
forwork 发表于：2009/6/26 10:18:00请问点击按钮显示出一个表的点击事件代码是怎么的啊？ 另:怎样实现鼠标移上按钮显示下拉菜单？
2楼
狐狸爸爸 发表于：2009/6/26 10:22:00如果是主表：
MainTable = Tables("表名")
如果是关联表：
Tables("关联表名称").Visible= True
至于菜单，只能单击或右击显示下拉菜单。
MainTable = Tables("表名")
如果是关联表：
Tables("关联表名称").Visible= True
至于菜单，只能单击或右击显示下拉菜单。
[此贴子已经被作者于2009-6-26 10:23:07编辑过]
3楼
forwork 发表于：2009/6/26 10:23:00thanks...那个下拉菜单的问题能帮我解决下吗
4楼
狐狸爸爸 发表于：2009/6/26 10:24:00看2楼
ContextMenus("快捷菜单名").Show(e.Sender,e.x,e.y) '则在鼠标位置显示快捷菜单
End If
假定希望在某个控件上右击事，能够显示某一快捷菜单，可以将该控件的MouseDown事件设为：
If
e.Button = MouseButtons.Right Then '假定按下的是鼠标右键ContextMenus("快捷菜单名").Show(e.Sender,e.x,e.y) '则在鼠标位置显示快捷菜单
End If
[此贴子已经被作者于2009-6-26 10:25:12编辑过]
5楼
forwork 发表于：2009/6/26 10:28:00 我是想在鼠标移上的时候自动显示下拉列表.....不是想用右键快捷...
6楼
狐狸爸爸 发表于：2009/6/26 10:30:00那就在MouserEnter事件中加入：
ContextMenus("快捷菜单名").Show(e.Sender,e.x,e.y)
ContextMenus("快捷菜单名").Show(e.Sender,e.x,e.y)
[此贴子已经被作者于2009-6-26 10:29:47编辑过]
7楼
forwork 发表于：2009/6/26 10:41:00报错Sender 不是RibbonTabEventArgs的成员，是什么原因啊
8楼
狐狸爸爸 发表于：2009/6/26 10:45:00你说的控件不是窗口控件吗？
例如窗口的某个按钮，将这个代码设置在按钮的MouseEnter事件即可。
如果你说的是菜单，没有这个功能，按标准的菜单做吧。
9楼
forwork 发表于：2009/6/26 10:49:00没这个功能啊
....
谢谢
共9 条记录, 每页显示 10 条, 页签:
[1]