Office VBA教程:ReleaseFocus方法

释放所有命令栏中用户界面的焦点。

expression.ReleaseFocus

expression   必需。该表达式返回一个 CommandBars对象。

VBA示例

本示例可实现的功能为:向命令栏“Custom”中添加三个空白按钮,并将焦点设置在中间的按钮上。等待五秒钟后,释放所有命令栏的用户界面焦点。


Set myBar = CommandBars _
    .Add(Name:="Custom", Position:=msoBarTop, _
    Temporary:=True)
With myBar
    .Controls.Add Type:=msoControlButton
    .Controls.Add Type:=msoControlButton
    .Controls.Add Type:=msoControlButton
    .Visible = True
End With
Set myControl = CommandBars("Custom").Controls(2)
With myControl
    .SetFocus
End With
PauseTime = 5   ' Set duration.
    Start = Timer   ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    Finish = Timer
CommandBars.ReleaseFocus

上页:Office VBA教程:RefreshScopes方法 下页:Office VBA教程:Remove方法

Office VBA教程:ReleaseFocus方法

Office VBA教程:Remove方法 Office VBA教程:RemoveItem方法
Office VBA教程:Reset方法 Office VBA教程:ResetFileList方法
Office VBA教程:ResetTips方法 Office VBA教程:SaveCopyAs方法
Office VBA教程:SetAvoidRectangle方法 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集合对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号