通过

CommandBarButton.SetFocus 方法 (Office)

  • 项目

将键盘的焦点移到指定的 CommandBarButton 控件。 如果该按钮被禁用或不可见，那么此方法将失败。

注意

某些 Microsoft Office 应用程序中对 CommandBars 的使用已由 Microsoft Office Fluent 用户界面的新功能区组件取代。 有关详细信息，请参阅 Office Fluent 功能区概述。

语法

表达式。SetFocus

表达 一个代表 CommandBarButton 对象的变量。

备注

带有焦点的控件与其他控件的差别是十分细微的。 使用此方法后，你会注意到控件上的三维突出显示。 按方向键将使焦点在工具栏中各控件间切换，就好像是按键盘控制键到达该控件一样。

示例

此示例创建一个名为 Custom 的命令栏，并向其中添加 ComboBox 控件和 Button 控件。 然后，该示例使用 SetFocus 方法将焦点设置为 ComboBox 控件。

Set focusBar = CommandBars.Add(Name:="Custom") 
With CommandBars("Custom") 
    .Visible = True  
    .Position = msoBarTop 
End With 
 
Set testComboBox = CommandBars("Custom").Controls _ 
    .Add(Type:=msoControlComboBox, ID:=1) 
With testComboBox 
    .AddItem "First Item", 1 
    .AddItem "Second Item", 2 
End With 
Set testButton = CommandBars("Custom").Controls _ 
    .Add(Type:=msoControlButton) 
testButton.FaceId = 17 
' Set the focus to the combo box. 
testComboBox.SetFocus

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。