Office VBA教程:SetFocus方法

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

说明

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

expression.SetFocus

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

VBA示例

本示例可实现的功能为:创建命令栏“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

上页:Office VBA教程:SetAvoidRectangle方法 下页:Office VBA教程:SetSortOrder方法

Office VBA教程:SetFocus方法

Office VBA教程:SetSortOrder方法 Office VBA教程:Show方法
Office VBA教程:ShowPopup方法 Office VBA教程:StartWizard方法
Office VBA教程:Update方法 Office VBA教程:新增方法
Office VBA教程:AnswerWizard对象 Office VBA教程:AnswerWizardFiles集合对象
Office VBA教程:Assistant对象 Office VBA教程:Balloon对象
Office VBA教程:BalloonCheckBox对象 Office VBA教程:BalloonCheckboxes集合对象
Office VBA教程:BalloonLabel对象 Office VBA教程:BalloonLabels集合对象
Office VBA教程:COMAddIn对象 Office VBA教程:COMAddIns集合对象
Office VBA教程:CommandBar对象 Office VBA教程:CommandBarButton对象
Office VBA教程:CommandBarComboBox对象 Office VBA教程:CommandBarControl对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号