以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  状态按钮中如何设置回车键向下代码  (http://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

 

这个答案我想比老大的答案要好的多