Office VBA教程:Click事件

该事件发生在用户单击 CommandBarButton对象时。

Private Sub CommandBarButton_Click

    (ByVal Ctrl As CommandBarButton,

    ByVal CancelDefault As Boolean)

Click事件的语法中包含两个参数,下表中列出了对这两个参数的说明。

参数 说明
Ctrl CommandBarButton 类型,必需。指示初始化该事件的 CommandBarButton 控件。
CancelDefault Boolean 类型,必需。如果执行了与 CommandBarButton 控件关联的默认操作,该值为 False,除非其他过程或加载项取消了此操作。

说明

Click事件由 CommandBarButton对象识别。若要返回特定 CommandBarButton 控件的 Click事件,请用关键词 WithEvents 声明一个变量,并将变量的值设置为该控件。

VBA示例

以下示例在宿主应用程序的“文件”菜单中创建了一个新命令栏按钮,它使用户可以 CSV (逗号分隔)文件格式保存工作簿。(本示例可在所有应用程序中运行,但有关存为 CSV 格式的上下文只适用于 Microsoft Excel。)


Private HostApp As Object
Sub createAndSynch()
    Dim iIndex As Integer
    Dim iCount As Integer
    Dim fBtnExists As Boolean
    Dim obCmdBtn As Object
    Dim btnSaveAsCSVHandler as new Class1
    On Error GoTo errHandler
       Set HostApp = Application
    Dim barHelp As Office.CommandBar
    Set barHelp = Application.CommandBars("File")
    fBtnExists = False
    iCount = barHelp.Controls.Count
    For iIndex = 1 To iCount
        If barHelp.Controls(iIndex).Caption = "Save As CSV (Comma Delimited)" Then fBtnExists = True
    Next
    Dim btnSaveAsCSV As Office.CommandBarButton
    If fBtnExists Then
        Set btnSaveAsCSV = barHelp.Controls("Save As CSV (Comma Delimited)")
    Else
        Set btnSaveAsCSV = barHelp.Controls.Add(msoControlButton)
        btnSaveAsCSV.Caption = "Save As CSV (Comma Delimited)"
    End If
    btnSaveAsCSV.Tag = "btn1"
    btnSaveAsCSVHandler.SyncButton btnSaveAsCSV
    Exit Sub
errHandler:
    ' Insert error handling code here
End Sub

上页:Office VBA教程:Change事件 下页:Office VBA教程:EnvelopeHide事件

Office VBA教程:Click事件

Office VBA教程:EnvelopeHide事件 Office VBA教程:EnvelopeShow事件
Office VBA教程:OnUpdate事件 Office VBA教程:新增事件
Office VBA教程:隐藏语言元素 Office VBA教程:创建和修改气球
Office VBA教程:获得有关 Macintosh 关键词的帮助 Office VBA教程:添加和管理菜单栏和菜单项
Office VBA教程:在运行时间修改气球 Office VBA教程:“Office 助手”概述
Office VBA教程:命令栏概述 Office VBA教程:返回集合中的对象
Office VBA教程:添加和显示快捷菜单 Office VBA教程:添加和修改工具栏
Office VBA教程:使用“Office 助手” Office VBA教程:使用命令栏
Office VBA教程:无法使用帮助主题 Office VBA教程:OLE 编程标识符(ActiveX 控件)
Office VBA教程:ActivateWizard方法 Office VBA教程:Add方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号