细品RibbonX(42):启动时激活功能区中某选项卡
资料整理来自于论坛
完整版下载地址:http://download.csdn.net/download/nodeman/10264659
Loading ...
您可能认为所需要做的就是添加一个选项卡,并将其指定放置在“开始”选项卡前面,这样,因为它是功能区中的第一个选项卡,因此会成为默认的选项卡并在打开文档时会自动选择该选项卡。听起来比较合乎逻辑,但事实呢?缺省情况下会选择自定义选项卡,因此只是在“开始”选项卡之前添加自定义选项卡并不意味着因为它是功能区中的第一个选项卡就选择该选项卡,至少在Excel中不是这样。
在启动文档时选择某选项卡需要两步。第一步是在XML代码中定义键击键。第二步是编写一个过程,使用SendKeys方法发送键击键到应用程序,执行在文档启动时选择该选项卡的功能。
第一步:添加XML代码。
<tabid="rxtab"
label="Active Tab"
insertBeforeMso="TabHome"
keytip="UN">
第二步:在文档打开时首先发生的onLoad事件中指定选择选项卡的语句。要在装载UI时选择指定的选项卡,使用SendKeys方法,代码如下:
Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
Application.SendKeys "%UN{RETURN}"
End Sub
百分号代表Alt键,以触发键击键,UN是我们定义的键击键,同时添加了RETURN键以便当选择选项卡时在选项卡里的键击键失去焦点。这样做是因为我们希望该选项卡有焦点,但不希望显示键击键。
下表列出了SendKeys方法中可以使用的组合键。
组合键 | 符号 |
ALT | % |
CTRL | ^ |
SHIFT | + |
可以使用上表列出的键与其它任何键形成组合。下表列出了一些其它的键,在使用SendKeys方法和需要键组合时,可能会发现这些键会有用。虽然不区分大小写,但建议使用大写。
表:一些特别的键及其相应的代码
键 | 键代码 |
BACKSPACE | {BACKSPACE}或{BS} |
BREAK | {BREAK} |
CAPS LOCK | {CAPSLOCK} |
DELETE或DEL | {DELETE}或{DEL} |
DOWN ARROW | {DOWN} |
END | {END} |
ENTER | ~ |
ENTER(数字键盘) | {ENTER} |
ESC | {ESCAPE}或{ESC} |
F1至F15 | {F1}至{F15} |
HOME | {HOME} |
RETURN | {RETURN} |
TAB | {TAB} |