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