郑德才博客

8.2.1 单选按钮
单选按钮（OptionButton）在工具箱中的图标是 。默认的对象名为Option1、Option2等。
我们大家对单选按钮其实并不陌生，我们在网络上面填写表单的时候经常会遇到这样的按钮，特别是在选择性别的时候，这个时候供我们选择的一般有“男”和“女”两个，但这两个我们只能选择一个，也就是说如果选择“男”，那么“女”会自动的处于非选择状态，这就是单选按钮的排它性，若干个按钮同时只能有一个被选中，这也就是为什么叫单选按钮的原因了。如果要实现多选，可以利用后面将要讲到的框架控件把单选按钮分组。单选按钮示例，如图8.6所示。

图8.6 单选按钮
1．单选按钮的常用属性
单选按钮的大部分属性跟我们前面讲过的控件类似，不再重复，不同的属性如下：
（1）Value属性：表示选中状态，为逻辑型
返回或设置单选按钮控件的状态，为逻辑类型，返回True时表示选择了该按钮；返回False（默认）表示按钮没有被选中。
（2）Alignment属性：对齐方式属性，为整数类型
0：单选按钮显示在左边，标题显示在右边，默认设置。
1：单选按钮显示在右边，标题显示在左边。
2．单选按钮的常用事件
和命令按钮一样，单选按钮的常用事件是Click，不过一般来说我们只是用单选按钮来传送一个值，很少对它的事件进行编程。
例8.4 利用单选按钮设置文字字号的变化，文字用标签控件显示。
1）界面设计如图8.7所示，在窗体上分别放置1个标签控件和3个单选按钮控件。各控件的属性设置详见表8-3。

图8.7 字号变化按钮
表8-3 属性设置
对象 属性 设计时属性值 说明
Form1 Caption 单选按钮
Label1 Caption 欢迎使用VB
Alignment 2 居中显示
Option1 Caption 九号字
Option2 Caption 十二号字
Option3 Caption 十六号字
2）代码设计：
Private Sub Option1_Click() ' 单击单选按钮即选中
Label1.FontSize = 9
End Sub
Private Sub Option2_Click()
Label1.FontSize = 12
End Sub
Private Sub Option3_Click()
Label1.FontSize = 16
End Sub
8.2.2 复选框控件
复选框在工具箱中的图标是 。默认的对象名为Check1、Check2等。
跟单选按钮相比较，复选框就意味着可以选择多个项目，如图8.8所示。

图8.8 复选框示例图
1．复选框的常用属性
（1）Value属性：返回或设置复选框控件的状态，数值类型
0（或Unchecked）：复选框未被选定，默认设置。
1（或Checked）：复选框被选定。
2（或Grayed）：复选框变成灰色的“√”，再度单击后变成未选中状态。
注意：反复单击同一复选框时，其Value属性只能在0、1之间交替变换。
（2）Alignment属性：对齐方式，为整数类型
0：复选框按钮显示在左边，标题显示在右边，默认设置。
1：复选框按钮显示在右边，标题显示在左边。
2．复选框的常用事件
复选框控件的常用事件一般为Click事件，不支持双击事件。系统把一次双击解释为两次单击。
例8.5 利用复选框按钮设置字型变化，文字用标签控件显示。要求标签框能自动换行实现扩展。
1）界面设计如图8.9所示，各控件的属性设置如表8-4：

图8.9 复选框按钮
表8-4 属性设置表
对象 属性 设计时属性值 说明
Form1 Caption 复选框控件
Label1 Caption 欢迎来到VB的世界
Alignment 2 居中显示
AutoSize True 两个属性都设置为True后，标签框能自动实现换行扩展
Wordwrap True
Font 三号 字体大小设为三号
Check1 Caption 加粗
Check2 Caption 倾斜
Check3 Caption 下划线
2）代码设计：
Private Sub Check1_Click()
If Check1.Value = 1 Then ' 判断Check1被选中
Label1.FontBold = True
Else ' Check1未被选中
Label1.FontBold = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If : End Sub
8.2.3 框架控件
框架控件在工具箱中的图标为 。
框架跟窗体、图片框控件类似，可以作为其他控件的容器来使用，我们称这类控件为容器控件。在容器中的控件不仅可以随容器移动，而且控件在容器中的相对位置也随之可以调整。
往框架控件里面添加其他控件的方法：
（1）先添加框架控件，然后在控件框架里面再添加其他控件。
（2）对于先于框架加到窗体上面的控件，可以先剪切该控件，然后选中框架，右键单击“粘贴”按钮，就可以把其他控件加入到框架里面。
例8.6 利用框架建立一个判断字体、字型、字号的对话框（如图8.10）。当文字长度超过文本框的边界时，文本框能实现自动换行。
我们可以利用单选按钮来控制字体和字号，利用复选框来控制字型，利用框架分别对字体、字型和字号进行分组，这样就可以实现单选按钮的多选。
1）界面设计如图8.10所示：

图8.10 字体对话框
在窗体上分别放置1个文本框（TextBox）和3组框架（Frame）控件，每个框架中再分别设置3个单选按钮（OptionButton）或3各复选框。各控件的属性设置如下：
表8-5 属性设置
对象 属性 设计时属性值 说明
Form1 Caption 控制字体
Text1 MultiLine True MultiLine设置为True后，文本框能实现换行。该属性只能在属性窗口中设置
Text 规范使用汉字，交谈时请讲普通话
Frame1 Caption 字体
Frame2 Caption 字号
Frame3 Caption 字型
Option1 Caption 宋体
Option2 Caption 楷体
Option3 Caption 黑体
Option4 Caption 九号
Option5 Caption 十二号
Option6 Caption 十五号
Check1 Caption 加粗
Check2 Caption 倾斜
Check3 Caption 下划线
2）代码设计：
Private Sub Option1_Click() '宋体
Text1.FontName = "宋体"
End Sub
Private Sub Option2_Click() '楷体
Text1.FontName = "楷体_gb2312"
End Sub
Private Sub Option3_Click() '黑体
Text1.FontName = "黑体"
End Sub
Private Sub Option4_Click() '9号字
Text1.FontSize = 9
End Sub
Private Sub Option5_Click() '12号字
Text1.FontSize = 12
End Sub
Private Sub Option6_Click() '15号字
Text1.FontSize = 15
End Sub
Private Sub Check1_Click() '粗体
If Check1.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub
Private Sub Check2_Click() '倾斜
If Check2.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
End Sub
Private Sub Check3_Click() '下划线
If Check3.Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
End Sub