新Visual Basic程序设计 教学课件 解凯 陈如琪 第7章 常用内部控件.pptVIP

第七章 常用内部控件 7.1 单选按钮、复选框 7.2 列表框和组合框 7.3 滚动条 7.4 时钟控件 7.5 综合应用程序举例 1．单选控件（OptionButton） 单选按钮又称作选择按钮，一组单选钮控件可以提供一组彼此相互排斥的选项，任何时刻用户只能从中选择一个选项，被选中项目左侧圆圈中会出现一黑点。 主要的属性 Caption属性：单选按钮上显示的文本 Value属性：被选中时，为 True；未被选中，False Style属性：用于控制选项按钮的外观 0：默认的旁边带有文本的圆形按钮 1：与命令按钮相似，可以在“按下和抬起”两状态 下切换 主要的事件是Click 事件，即当选中时，Value 值变为 True 或者1，控件也自动变为选中状态。 例7.1 单选按钮应用，通过单选按钮设置文本中显示的字体。 分析： “宋体”字体；“隶书”字体。 代码如下： 单选按钮一： Private Sub OptSong_Click() TxtContent.FontName = 宋体 End Sub 单选按钮二： Private Sub OptLishu_Click() TxtContent.FontName = 隶书 End Sub 框架Frame 框架主要用作控件的容器和装饰界面 容器控件：用于控件的分组 控件如何放在容器？ 在容器中直接画控件 控件复制，在容器中粘贴 框架属性：enable：假时，容器中的控件均失效 框架事件不响应“单击Click” 例2 设置两组单选按钮，分别控制上例文字的颜色和字体。 Private Sub Option1_Click() Text1.FontName = 宋体 End Sub Private Sub Option2_Click() Text1.FontName = 黑体 End Sub Private Sub Option3_Click() Text1.FontName = 隶书 End Sub 2复选框 复选框的左边有一个，复选框列出了可供用户选择的选项，用户根据需要选定其中的一项和多项。被选中项目左侧方框中会出现一勾 主要的属性 Caption属性：复选按钮上显示的文本 Value属性： 0——vbUnchecked：未被选定，默认值 1——vbChecked：被选定 2——vbGrayed：灰色（变暗），并显示一个选中 标记，并表示该复选框被禁止 主要的事件是Click 事件，即当选中时，Value 值变为 1；或者为0，未被选中 但由于一次可以选择多个复选按钮，所以复选按钮的选择比单选按钮多了一个判断过程。 例7.2 用复选按钮选择字体效果，如加粗、斜体和下划线。 分析： 利用复选按钮的判断过程，对文本框（TxtContent）显示预设的字样设置字型等属性；复选按钮一（ChkBold）可以将文本框里面的字变为粗体；复选按钮二（ChkItalic）可以将文本框里面的字变为斜体；复选按钮三（ChkUnderline）可以给文本框里面的文字加上下划线。 复选按钮一： Private Sub ChkBold_Click() 　 If ChkBold.Value = 1 Then 　 TxtContent.FontBold = True 　 Else 　 TxtContent.FontBold = False 　 End If End Sub 复选按钮二： Private Sub ChkItalic_Click() 　 If ChkItalic.Value = 1 Then 　 TxtContent.FontItalic = True 　 Else 　 TxtContent.FontItalic = False 　End If End Sub 例7.3 使用单选按钮和复选框，设置文本框的字体。 分析：当某复选框被选中时，对其相应的文字字形进行设置。如Check1被选中时，通过“Text1.FontBold = True”语句，使文本框的字体为粗体，而单选按钮用于字体的选择。 为什么字体选择用单选按钮？ Private Sub Check1_Click() Private Sub Check3_Click() If Check1.Value = 0 Then If Check1.Value = 0 Then Text1.FontBold = False