在VBA中,选项按钮是分组的,在一组中只有一个按钮处于选中或按下状态。在应用程序中要从几个选项中选一个时,就可以用到选顶按钮控件。
下面以一个“用选项按钮设置窗体字号和颜色”的实例来说明选项按钮的使用。
1 新建窗体并插入如下控件:
2 编写调用窗体过程
Sub 设置字体格式()
End Sub
3 编写窗体代码
Private Sub opt10_Click()
= 10
End Sub
Private Sub opt15_Click()
= 15
End Sub
Private Sub opt20_Click()
= 20
End Sub
Private Sub opt25_Click()
= 25
End Sub
Private Sub optBlack_Click()
= vbBlack
End Sub
Private Sub optGreen_Click()
= vbGreen
End Sub
Private Sub optRed_Click()
= vbRed
End Sub
Private Sub optYellow_Click()
= vbYellow
End Sub
在窗体frmFontsize调用后,即可进行如下操作:
-End-