《《常用内部控件》ppt课件》由会员分享,可在线阅读,更多相关《《常用内部控件》ppt课件(81页珍藏版)》请在金锄头文库上搜索。
1、第6章 常用内部控件,6.1 选择类控件与框架 6.2 列表类控件 6.3 图像显示控件 6.4 定时器 6.5 滚动条 6.6 本章小结 6.7 上机实训,结束,6.1 选择类控件与框架,6.1.1 单选按钮 6.1.2 复选框 6.1.3 框架,返回首页,6.1.1 单选按钮(1),单选按钮(OptionButton)又称单选钮,它的作用是显示一个可以表示“打开/关闭”的选项,使用户在多个选项中只能选择其一。 例如学生性别的输入,代表性别的“男”、“女”是相互排斥的,故可以使用两个单选按钮实现,如图6.1所示。,6.1.1 单选按钮(2),1常用属性 (1)Value属性 单选按钮的属性除
2、了一些通用属性如Caption、Enabled、Visible、Font、ForeColor、BackColor等外,主要是Value属性。该属性表示单选按钮被选中(True)或不被选中的状态(False)。在程序运行时,单击单选按钮,使其单选框中出现一个黑色圆点,就表示选中了该项。 说明:Value属性是单选按钮控件的默认属性(或称控件值)。所有控件都有一个属性,只需引用控件名而无需使用属性名即可访问这个属性,此属性被称为控件的默认属性。例如,Option1.Value = True 与 Option1 = True 等效。其他常用控件如文本框控件的默认属性为Text,标签控件的默认属性为C
3、aption。使用默认属性时,代码的可读性略受影响,所以在不引起代码阅读困难时方可考虑使用默认属性。,6.1.1 单选按钮(3),(2)Style属性 单选按钮的Style属性用来设置控件的外观。当值为0时,控件显示如图6.1所示的标准样式;当值为1时,控件显示如图6.2所示的图形样式,其外观类似于命令按钮。,(3)Picture、DownPicture和DisabledPicture属性 当Style属性为1时,这三个属性有效。其中:Picture属性返回或设置控件中要显示的图像;DownPicture属性返回或设置控件被选中后(即单击后)要显示的图像;DisabledPicture属性返回
4、或设置控件无效时显示的图像,即控件的Enabled属性为False时控件的外观图像。,6.1.1 单选按钮(4),上述三个属性可以在设计阶段通过“属性窗口”直接设置为某个图像文件,也可以在运行期间由函数LoadPicture加载。在图6.3中,单选按钮的Style已经设置为1,左图表示设置了Picture属性的情况,而右图表示同时设置了DownPicture属性的情况。,图6.3 单选按钮的Picture和DownPicture属性,6.1.1 单选按钮(5),2常用事件 单选按钮可以识别的主要事件是单击(Click)事件。 【例6.1】控制文本框中文本的字体变化。字体可以使用“宋体”、“隶书
5、”和“幼圆”三者之一。,本例通过三个单选按钮选择字体名称,属性设置见表6.1。其中,将文本框Text1的Multiline属性设为True的目的是使其允许多行显示。此时,在属性窗口设置文本框的Text属性时,须通过组合键Ctrl+回车来分行输入文本内容 。程序的运行结果如图6.4。,代码如下: Private Sub cmdOk_Click() 单击“应用”按钮 If optFont1 = True Then Text1.FontName = “宋体“ If optFont2 = True Then Text1.FontName = “隶书“ If optFont3 = True Then T
6、ext1.FontName = “幼圆“ End Sub Private Sub Form_Load() 窗体加载 Text1.FontName = “宋体“ Text1.FontSize = 12 optFont1 = True End Sub,返回首页,返回本节,6.1.2 复选框 (1),复选框(CheckBox)也称为选择框、检查框,通常用于提供 Yes/No 或 True/False 的逻辑选择。一个复选框主要有两种状态:选中状态,或称打开状态,复选框上出现“”标志;未选中状态,或称关闭状态,不出现“”标志。 复选框的属性和单选按钮的属性基本类似。其主要属性是Value属性,Valu
7、e属性指示其所处的状态:0表示没有选中,1表示该项选中,2表示禁止使用。 复选框可以识别的主要事件是单击(Click)事件。程序运行中,当用户单击复选框时将触发其Click事件,每单击一次其状态就在“没有选中”和“选中”之间变换一次,相应地,其Value属性的值在0和1之间变换。因此,当发生了Click事件时,程序要判断Value属性的值,以便确定是否选中。,6.1.2 复选框 (2),需要注意的是,复选框与单选按钮都可表示一种状态,因此两者有相似之处,但有本质的区别:一组复选框中的多个项目是相互“兼容”的,一组单选按钮中的多个项目却是相互“排斥”的。 【例6.2】用复选框控制文本是否加下划线
8、和斜体显示。 在窗体上添加一个文本框,两个复选框。属性设置如表6.2,运行界面如图6.5所示。,图6.5 例6.2的运行结果,为两个复选框的单击和窗体加载事件编写如下事件过程: Private Sub Check1_Click() 单击【下划线】复选框 If Check1.Value = 1 Then Text1.FontUnderline = True 加下划线 Else Text1.FontUnderline = False End If End Sub Private Sub Check2_Click() 单击【斜体】复选框 If Check2.Value = 1 Then Text1.
9、FontItalic = True 斜体 Else Text1.FontItalic = False End If End Sub Private Sub Form_Load() Text1.FontSize = 18 End Sub,6.1.2 复选框 (3),【例6.3】用户信息的收集是一类常见的应用程序。本例要求编写程序收集用户选择的专业类别和选修课程。其中,可选择的专业类别有“计算机专业”和“机电专业”,可选择的课程有“高等数学”、“大学英语”和“程序设计”。 显然,本例中专业的所属类别之间具有排斥性,可以用单选按钮实现;而选修课程之间具有兼容性,应该用复选框实现。属性设置如表6.3,
10、其中将Option1的Value属性设为True,表示初始时默认选中“计算机专业”。运行结果如图6.6 。,表6.3 例6.3的对象和属性设置,图6.6 例6.3的运行结果,代码如下,其中的Chr(13)、Chr(10)是产生回车换行(亦可用VB常数vbCrLf);为了简化代码,将所收集到的用户选择信息用MsgBox函数显示出来。 Private Sub Command1_Click() Dim str As String, link As String link = Chr(13) & Chr(10) If Option1.Value = True Then str = “计算机专业“ El
11、se str = “机电专业“ End If str = str & “选择了:“ & link If Check1.Value = 1 Then str = str & link & “高等数学“ If Check2.Value = 1 Then str = str & link & “大学英语“ If Check3.Value = 1 Then str = str & link & “程序设计“ MsgBox str, vbYesNo, “采集信息“ End Sub,返回首页,返回本节,6.1.3 框架 (1),框架(Frame)是一个容器,可以在其上放置其它控件对象,主要作用是能够把一些
12、控件组织在一起形成控件组。分组的用途有二:一是单纯地对其它控件分组,使功能上密切相关的控件在一个框定的区域内,以便用户分类识别;二是用于为单选按钮分组。 为了实现分组应首先画出框架,然后在框架内画出所需的控件。如果要将已经存在的若干控件放在某个框架中,可以先选择这些控件,将它们剪切到剪贴板上,然后选定框架控件并把它们粘贴到框架上。位于一个框架内的控件会随框架整体移动、隐藏、删除。,6.1.3 框架 (2),框架的常用属性有:Caption属性(设置框架标题,位于框架的左上角)、Enabled属性(是否有效)、Visible属性(是否可见)。当框架的Enabled属性为False时,框架和框架内
13、的控件均呈灰色,表示不可使用,相当于整体失效;当框架的Visible属性为False时,框架及其中的控件均不可见,相当于整体隐藏。 【例6.4】利用框架的分组功能,同时设置文本框的字体、大小、颜色。 本例使用了三个框架,每个框架内均有三个单选按钮。在一个框架内的三个单选按钮为一组,它们是相互“排斥”的,但三个框架之间是相互“兼容”的。属性设置见表6.4。运行结果如图6.8所示。,表6.4 例6.4的对象和属性设置,图6.8 例6.4运行结果,程序代码如下: Private Sub cmdNo_Click() 单击【恢复】按钮 Form_Load 执行Form_Load过程 End Sub Pr
14、ivate Sub cmdOk_Click() 单击【应用】按钮 确定字体名 If optFont1 = True Then Text1.FontName = “宋体“ If optFont2 = True Then Text1.FontName = “隶书“ If optFont3 = True Then Text1.FontName = “幼圆“ 确定字体大小 If optSize1 = True Then Text1.FontSize = 12 If optSize2 = True Then Text1.FontSize = 14 If optSize3 = True Then Text
15、1.FontSize = 20,确定颜色 If optColor1 = True Then Text1.ForeColor = vbBlue If optColor2 = True Then Text1.ForeColor = vbRed If optColor3 = True Then Text1.ForeColor = vbGreen End Sub Private Sub Form_Load() 窗体加载 optFont1 = True Text1.FontName = “宋体“ Text1.FontSize = 12 Text1.ForeColor = vbBlack End Sub,
16、返回首页,返回本节,6.2 列表类控件,6.2.1 列表框 6.2.2 组合框,返回首页,6.2.1 列表框 (1),1. 列表框的功能 列表框(ListBox)显示由若干项目组成的列表,用户可从中选择一个或多个项目。所选择的项目被突出显示。如果列表框中的项目过多,则系统会自动增加一个垂直滚动条,如图6.9所示。,图6.9 列表框示意图,6.2.1 列表框 (2),列表框中的项目可以在设计状态下通过属性窗口设定,也可以在运行状态下由程序加入。前者使用列表框的List属性,一个项目为一行,且以组合键Ctrl回车进行分行,如图6.10所示;后者使用列表框的AddItem方法。,列表框中的项目列表是一个整体,它实际上是一个数组(若干元素的有序集合)。列表框中的每个项目各占一行,所有项目构成项目列表。列表中的每一项(行)都有自己的位置,用“索引号”来表示(在数组中称为下标)。列表中第一项的索引号为0,第二项为1,依此类推。利用索引号可以很方便地访问列表中的任何一个项目。,6.