在前面两节中，我们学习了命令按钮（CommandButton）、单选按钮（OptionButton）、复选按钮（CheckBox）的使用，本节将就前两节的知识做个总结。
一、程序目的：
通过选项按钮的选择，对所选文本进行定制。
二、程序界面：
程序界面如图一：
图一
一个文本框（TxtContent），显示“Learning Visual Basic”字样；三个单选按钮：按钮一（OptArial）让文本字体变为 Arial 类型；按钮二（OptModern）让文本字体变为 Modern 类型；按钮三（OptRoman）让文本字体变为 Times New Roman 类型；三个复选按钮：按钮一（ChkBold），让文本字体变为黑体；按钮二（ChkItalic），让文本字体变为斜体字；按钮三（ChkUnderline），给文本增加下划线。另外，还有一个退出按钮（CmdQuit），作用在于退出程序。
三、属性设置：
根据图一进行属性设置。
四、书写程序：
|
OptArial 按钮：
Private Sub OptArial_Click()
TxtContent.FontName = "Arial"
End Sub
OptModern 按钮：
Private Sub OptModern_Click()
TxtContent.FontName = "Modern"
End Sub
OptRoman 按钮：
Private Sub OptRoman_Click()
TxtContent.FontName = "Times New Roman"
End Sub
ChkBold 按钮：
Private Sub ChkBold_Click()
If ChkBold.Value = 1 Then
TxtContent.FontBold = True
Else
TxtContent.FontBold = False
End Sub
ChkItalic 按钮：
Private Sub ChkItalic_Click()
If ChkItalic.Value = 1 Then
TxtContent.FontItalic = True
Else
TxtContent.FontItalic = False
End Sub
ChkUnderline 按钮：
Private Sub ChkUnderline_Click()
If ChkUnderline.Value = 1 Then
TxtContent.FontUnderline = True
Else
TxtContent.FontUnderline = False
End Sub
CmdQuit 按钮：
Private Sub CmdQuit_Click()
End
End Sub
|
五、分组控件（Frame）的学习：
从前面学到的知识我们知道，单选按钮只能多选一，那么，下面这种分组选项的选择又该如何制作呢？如图二：
图二
在图二中，既可以选择性别，又可以选择年级，它们是通过选项框分组控件（Frame）得以实现的。
简单地说，选项框控件是将不同的选项分类，在某一类里只能多选一，但多个类别的交叉使用，可以完成比较复杂的多项选择。
不仅仅如此，我们还可以将单选按钮、多选按钮分组，不同组内的操作不会影响其他组的操作。如图三：
图三
分组控件的制作方法：
先在窗体上绘制合适大小的框架，然后点选单选控件或多选控件，最后将鼠标移到框架内并拖拉出选项按钮。
注意：请不要使用双击选择按钮控件然后将其拖动到分组框内的办法，否则，分组会失败。 | 
您的位置：学习中国
→ 推荐教程
→ VB编程
→ 正文
本文章所属分类：首页
→ 推荐教程
→ VB编程
VB编程