VBA｜使用表單控制項03：回應使用者按一下的命令按鈕

命令按鈕是最常用的控制項之一。 通過按一下按鈕， 可以觸發相應的事件程序， 並執行指定的操作， 以實現指定的功能。

命令按鈕的Default屬性可以將該按鈕設置為預設按鈕。

下面以一個實例“用命令按鈕顯示或隱藏表單”來說明命令按鈕的使用：

Sub 調用主表單()

frmMain.Show

End Sub

Private Sub cmdShow_Click()

Me.Hide

If CInt(Left(Application.Version, InStr(1, Application.Version, ".", 1) - 1)) <= 8 Then

'Excel97或更早的版本不能顯示無模式表單

frmSub.Show

Me.Show

Else

'當一個模式表單打開時,不能顯示無模式表單.因此需要使它們都為無模式表單

Me.Show vbModeless

frmSub.Show vbModeless

End If

End Sub

Private Sub cmdHide_Click()

frmSub.Hide '隱藏子表單

End Sub

Private Sub cmdReset_Click()

Unload frmSub '卸載子表單可重設子表單中的模組變數

End Sub

Private Sub UserForm_Terminate()

Unload frmSub '退出當前表單前先關閉子表單

End Sub

Option Explicit

Dim n As Integer '定義模組變數

Private Sub cmdHide_Click()

Me.Hide

End Sub

Private Sub UserForm_Activate()

n = n + 1

lbl1.Caption = "已顯示本表單 " & n & " 次。 "

End Sub

－End－