第4节  选择框、单选钮和框架

1.单选钮

　　单选钮是用于多个选择取其一的控件，被选中的单选框会出现一个黑点，其它单选框中的黑点消失，表示该选择被关闭。

　例1.设计一个程序，用户界面由四个单选钮、一个标签框和一个命令

　　按钮组成，程序开始运行后，用户单击某个单选钮就可以将它对

　　应的内容（星期、日期、月份或年份）显示在标签框中。

• 界面设计

• 设置属性

• 程序代码

Private Sub Option1_Click()
　w$ = Weekday(Now) - 1
　Label1.Caption = "今天是星期 " + w$
End Sub

Private Sub Option2_Click()
　d$ = Day(Now)
　Label1.Caption = "今天是 " + d$ + " 号"
End Sub

Private Sub Option3_Click()
　Dim m As String 　　'将变量定义为字符型
　m = Month(Now)
　Label1.Caption = "这月是" + m + "月份"
End Sub

Private Sub Option4_Click()
　Dim y As String
　y = Year(Now)
　Label1.Caption = "今年是 " & y & " 年"
End Sub

２.选择框

　　VB提供一种让用户在两个方案中选其一的控件“选择框”有时也称“复选框”。它有三种状态：（1）选择（选择框为“”）、（2）不选（选择框为“”）（3)不可选（选择框为“”）。

例2：设计一个程序，用户界面由一个标签框、一个文本框、四个选

　　　择框组成。程序开始运行后，用户在文本框中输入一段文字，

　　　然后按需要单击各选择框，以改变文本的字体、字型、颜色以

　　　及大小。

• 设计界面

• 设置属性

　

对象 属性 属性值 对象 属性 属性值 窗体 Caption Form1 选择框4 Caption 紫色 选择框1 Caption 宋体 文本框 Multiline True 选择框2 Caption 斜体 Text 置空 选择框3 Caption 16点

• 程序代码

Rem　设置字体

Private Sub Check1_Click()
　 If　 Check1.Value = 1　 Then
　　 Text1.FontName = "宋体" 　 '将对象Text1的字体属性设为宋体
　Else
　　 Text1.FontName = "幼圆"
　 End If
End Sub

Rem　设置字形

Private Sub Check2_Click()
　 If　 Check2.Value = 1　 Then
　　 Text1.FontItalic = -1　 '将对象Text1的字体样式属性设为斜体
　Else
　　 Text1.FontItalic = 0
　 End If
End Sub

Rem　设置字号

Private Sub Check3_Click()
　 If　 Check3.Value = 1　 Then
　　 Text1.FontSize = 16 '将对象Text1的字体大小属性设为16点
　Else
　　 Text1.FontSize = 8
　 End If
End Sub

Rem　设置字的颜色

Private Sub Check4_Click()
　If　Check4.Value = 1　Then
　　 Text1.ForeColor = RGB(220, 0, 220)　 '
　Else
　　 Text1.ForeColor = RGB(0, 0, 0)
　 End If
End Sub

3.框架

　　在上例中我们看到在若干个单选按钮中只可以选择一个，但是有时有多组选项，希望每组选项中各选一项。使用框架控件可以将单选钮分成几组，一每组作为一个单元。

例3.设计一个程序，用户界面上部有一个标签，下部有两个命令按

　　钮，中间有三个框架和九个单选钮。在每个框架中放3个单选

　　钮，即将9个单选钮分为三组，一组用来改变字体，一组用来

　　改变字的大小，一组用来改变颜色。

• 界面设计

• 属性设置（略）

• 程序代码

Rem 设置初值
Private Sub Form_Load()
　Option1.Value = True
　Option4.Value = True
　Option7.Value = True
　Text1.Text = "欢迎来到信息技术学习园地"
End Sub

Private Sub Command1_Click()
　Rem 确定字体
　If　Option1.Value＝１　Then
　　Text1.FontName = "宋体"
　End If
　If　Option2.Value＝１　Then
　　Text1.FontName = "隶书"
　End If
　If　Option3.Value＝１　Then
　　Text1.FontName = "幼圆"
　End If
　Rem 显示字体大小
　If　Option4.Value＝１　Then　Text1.FontSize = 14
　If　Option5.Value＝１　Then　Text1.FontSize = 16
　If　Option6.Value＝１　Then　Text1.FontSize = 22
　Rem 确定颜色

　If　Option7.Value　Then　Text1.ForeColor = RGB(0, 0, 255)
　If　Option8.Value　Then　Text1.ForeColor = RGB(220, 0, 220)
　If　Option9.Value　Then　Text1.ForeColor = RGB(0, 255, 0)
　Rem 显示文本
　Text1.Text = "欢迎来到信息技术学习园地"
End Sub

练习：

1.按以下要求设计四则运算程序：