八、复选框、单选按钮及框架.docVIP

八、复选框、单选按钮和框架 复选框用在选择一个或多个选取项。每个都可看清选中否。 例28：设计一个程序，界面内有一个文本框和四个选择框。运行时，文本框内显示黑色宋体12点正常的文本，如图。当鼠标单击“幼圆”复选框，文本框内的文字的字体为“幼圆”；当鼠标单击“斜体” 复选框，文本框内的文字的字体为“斜体”。当鼠标单击“16点” 复选框，文本框内的文字的大小为“16点”， 当鼠标单击“蓝色” 复选框，文本框内的文字的颜色为“蓝色”。 在属性窗口分别设置如表： 对象 属性 设置 Form1(窗体) Caption 例28 (名称) Form1 Text1(文本框1) Text 看我的变化 Font中(大小) 12 Check1(复选框1) Caption 幼圆 (名称) Check1 Check2(复选框2) Caption 斜体 (名称) Check2 Check3(复选框3) Caption 16点 (名称) Check3 Check4(复选框4) Caption 蓝色 (名称) Check4 在代码窗口完成如下： Private Sub Check1_Click() If Check1.Value Then Text1.FontName = 幼圆 Else Text1.FontName = 宋体 End If End Sub Private Sub Check2_Click() If Check2.Value Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub Private Sub Check3_Click() If Check3.Value Then Text1.FontSize = 16 Else Text1.FontSize = 12 End If End Sub Private Sub Check4_Click() If Check4.Value Then Text1.ForeColor = QBColor(9) Else Text1.ForeColor = QBColor(0) End If End Sub 也可用IIF函数使程序简化。 IIF函数格式： IIF（条件，值1，值2） 当条件成立返回值为值1，当条件不成立返回值为值2。 Private Sub Check1_Click() Text1.FontName = IIf(Check1.Value, 幼圆, 宋体) End Sub Private Sub Check2_Click() Text1.FontItalic = IIf(Check2.Value, True, False) End Sub Private Sub Check3_Click() Text1.FontSize = IIf(Check3.Value, 16, 12) End Sub Private Sub Check4_Click() Text1.ForeColor = IIf(Check4.Value, QBColor(9), QBColor(0)) End Sub 注意：在绘制复选框时，如用双击复选框控件图标就可见复选框的标题；用鼠标拖曳时的幅度要大一些才能见到复选框的标题。 FontName属性： FontItalic属性：设置字形为斜体。 FontBold属性：设置字形为粗体。 FontUnderLine属性：设置字加下划线。 FontStrikethru属性：设置字上加删除线。 单选按钮用来显示选项，通常以单选按钮组出现，每组只能从中选取一个选项，其它选项就取消选中。 例29：设计一个程序，界面内有一个文本框、一个命令按钮、三个框架和九个单选按钮（如图）。每个框架内有3个选择按钮，即9个选择按钮分成三组。运行时，当鼠标单击每个选择按钮，文本框内的文字即随之改变；当鼠标单击“退出”命令按钮，结束运行。 在属性窗口分别设置如表： 对象 属性 设置 Form1(窗体) Caption 例29 (名称) Form1 Text1(文本框1) Text (名称) Txt1 Command1(命令按钮1) Caption 退出 Frame1(框架1) Caption 字体 Frame2(框架2) Caption 大小 Frame3(框架3) Caption 颜色 Option1(单选按钮1) Caption 宋体 Index 0 (名称) Optfont Option2(单选按钮2) Caption 幼圆 Index 1