第6章常用控件讲解.ppt

第6章 常用控件 本章内容及要求： 掌握常用控件单选钮(OptionButton)、检查框(CheckBox)、 框架(Frame)、滚动条(ScrollBar)、 列表框(ListBox)、组合框（ComboBox)、时钟(Timer)等的常用、 属性、重要事件和方法的使用； 6.1 单选钮、检查框及框架 6.1.1单选钮 1. 用途 单选钮（OptionButton）也称作选择按钮。一组单选钮控件可以提供一组彼此相互排斥的选项，任何时刻用户只能从中选择一个选项，实现一种“单项选择”的功能，被选中项目左侧圆圈中会出现一黑点。 2. 重要属性 （1） Caption：文本标题。设置单选钮的文本注释内容。 （2） Alignment属性： 0：—Left Justify(缺省)控件钮在左边，标题显示在右边。 1：—Right Justify 控件钮在右边，标题显示在左边。 （3）Value 属性 True: 单选钮被选定 False: 单选钮未被选定（缺省设置） 例6.3.1 设计一个程序，用户界面由四个单选按钮、一个标签和一个命令按钮组成，程序运行后，用户单击某个单选按钮，就可将它对应的内容（星期、日期、月份或年份）显示在标签框中。 Private Sub OptWeek_Click() W = Weekday(Now) If W = 1 Then LabelShow.Caption = 今天是星期日 Else LabelShow.Caption = 今天是星期 + Str(W - 1) End If End Sub WeekDay是一个函数，WeekDay(Now)的值是一个数字字符，表示当天是星期几，如是星期三则此函数值为“4”，在标签框中显示出“今天是星期3”的信息。 Private Sub OptDay_Click() D$ = Day(Now) Label1.Caption = 今天是 + D$ + 号 End Sub 单击“月份”单选钮，则执行下面的过程，其中Month是月份函数。 Private Sub OptMonth_Click() M$ = Month(Now) Label1.Caption = 这月是 + M$ + 月份 End Sub 单击“年份”单选钮，则执行下面的过程，其中Year是年份函数。 Private Sub OptYear_Click() Y$ = Year(Now) Label1.Caption = 今年是 + Y$ + 年 End Sub 这里，WeekDay、Day、Month、Year都是日期型函数，加入参数Now，表示当前星期、日期、月份、年份。 单击“结束”按钮时执行以下程序段： Private Sub CmdEnd_Click() End End Sub 2. 重要属性 Caption、Alignment与单选钮相同 例6.3.2 设计一个程序，用户界面由一个标签框、一个文本框、三个检查框组成。程序开始运行后，用户在文本中输入一段文字，然后按需要单击各检查框，用以改变文本的字体、字形及大小。 Private Sub ChkFont_Click() If ChkFont.Value = 1 Then TxtPassage.FontName = 楷体_GB2312 Else TxtPassage.FontName = 宋体 End If End Sub Private Sub ChkItalic_Click() If ChkItalic.Value=1 Then TxtPassage.FontItalic=-1 Else TxtPassage.FontItalic=0 End If End Sub Private Sub ChkSize_Click() If ChkSize.Value=1 Then TxtPassage .FontSize=16 Else TxtPassage.FontSize=8 End If End Sub 6.1.3 框架 (Frame) Frame 控件为控件提供可标识的分组。当需要在同一窗体内建立几组互独立的单选钮时，就需要用框架将每一组单选钮框框起来，把 OptionButton 控件分成几组，如下形式。 框架内控件的创建方法： 为了将控件分组，首先需要绘制 Frame 控件，然后绘制 Frame 里面的控件。这样就可以把框架和里面的控件同时移动。如果在 Frame 外部绘制了一个控件并试图把它移到框架内部，那么