Click 事件、命令按钮控件、Accelerator 和 Caption 属性示例

每当用户用鼠标或加速键来单击按钮时，该示例都将改变一次命令按钮的 Accelerator 和 Caption 属性。Click 事件包含改变 Accelerator 和 Caption 属性的代码。

窗体包含：

• 名为 CommandButton1 命令按钮

示例

Sub UserForm_Initialize()
    UserForm_CommandButton1.Caption  = "量化神奇之旅" 
End Sub

Sub UserForm_CommandButton1_Click ()
    If UserForm_CommandButton1.Caption = "金字塔--停止" or UserForm_CommandButton1.Caption  = "量化神奇之旅" Then     
        UserForm_CommandButton1.Caption = "金字塔--启动"      
    Else
        UserForm_CommandButton1.Caption = "金字塔--停止"  
    End If
End Sub