SetFocus 方法

全部显示

将键盘的焦点移到指定命令栏控件。如果该控件无效或不可见，那么此方法将失败。

说明

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

expression.SetFocus

expression 必需。该表达式返回一个CommandBarControl、CommandBarButton、CommandBarPopup 或CommandBarComboBox 对象。

示例

本示例可实现的功能为：创建命令栏“Custom”，并在其中添加一个组合框控件和一个按钮控件。然后用SetFocus 方法在组合框控件上设置焦点。

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