《《常用内部控件》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.
