| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 状态按钮中如何设置回车键向下代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=8994) |
| -- 作者：cxabc123 -- 发布时间：2011/1/13 9:45:00 -- 状态按钮中如何设置回车键向下代码 如题 |
| -- 作者：狐狸爸爸 -- 发布时间：2011/1/13 15:18:00 -- 参考：
http://help.foxtable.com/topics/0385.htm
|
| -- 作者：cxabc123 -- 发布时间：2011/1/13 16:25:00 -- 在菜单设计的事件curenntchange中输入如下代码： Dim Togenter As RibbonMenu.ToggleButton = RibbonTabs("Common").Groups("回车").Items("回车") Togenter.Pressed = False
然后在功能区增加“回车”组，增加状态按钮“回车”，并在相关事件中输入如下代码就可以了 CurrentTable.EnterKeyActionDown = e.ToggleButton.Pressed If e.ToggleButton.Pressed = True Then e.ToggleButton.Text ="向下" Else e.ToggleButton.Text ="向右" End If
这个答案我想比老大的答案要好的多 |