命令按钮是最常用的控件之一。通过单击按钮,可以触发相应的事件过程,并执行指定的操作,以实现指定的功能。
命令按钮的Default属性可以将该按钮设置为默认按钮。
下面以一个实例“用命令按钮显示或隐藏窗体”来说明命令按钮的使用:
1 插入两个窗体,各控件的名称与caption属性如下:
2 通过一个过程调用主窗体
Sub 调用主窗体()
End Sub
3 在frmMain窗体中编写以下代码
Private Sub cmdShow_Click()
Me.Hide
If CInt(Le, InStr(1, A, ".", 1) - 1)) <= 8 Then
'Excel97或更早的版本不能显示无模式窗体
Me.Show
Else
'当一个模式窗体打开时,不能显示无模式窗体.因此需要使它们都为无模式窗体
Me.Show vbModeless
vbModeless
End If
End Sub
Private Sub cmdHide_Click()
'隐藏子窗体
End Sub
Private Sub cmdReset_Click()
Unload frmSub '卸载子窗体可重设子窗体中的模块变量
End Sub
Private Sub UserForm_Terminate()
Unload frmSub '退出当前窗体前先关闭子窗体
End Sub
4 在frmSub窗体中编写以下代码
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-