《Visual Basic程序设计 教学课件 ppt 作者 解凯 陈如琪 第7章 常用内部控件》由会员分享，可在线阅读，更多相关《Visual Basic程序设计 教学课件 ppt 作者 解凯 陈如琪 第7章 常用内部控件（38页珍藏版）》请在金锄头文库上搜索。
1、第七章 常用内部控件,7.1 单选按钮、复选框 7.2 列表框和组合框 7.3 滚动条 7.4 时钟控件 7.5 综合应用程序举例,1单选控件（OptionButton）,单选按钮又称作选择按钮，一组单选钮控件可以提供一组彼此相互排斥的选项，任何时刻用户只能从中选择一个选项，被选中项目左侧圆圈中会出现一黑点。 主要的属性 Caption属性：单选按钮上显示的文本 Value属性：被选中时，为 True；未被选中，False Style属性：用于控制选项按钮的外观 0：默认的旁边带有文本的圆形按钮 1：与命令按钮相似，可以在“按下和抬起”两状态 下切换,主要的事件是Click 事件，即当选中时，
2、Value 值变为 True 或者1，控件也自动变为选中状态。 例7.1 单选按钮应用，通过单选按钮设置文本中显示的字体。 分析： “宋体”字体；“隶书”字体。,代码如下： 单选按钮一： Private Sub OptSong_Click() TxtContent.FontName = “宋体“ End Sub 单选按钮二： Private Sub OptLishu_Click() TxtContent.FontName = “隶书“ End Sub,框架Frame,框架主要用作控件的容器和装饰界面 容器控件：用于控件的分组 控件如何放在容器？ 在容器中直接画控件 控件复制，在容器中粘贴 框架
3、属性：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,Private Sub Option4_Click() Text1.ForeColor = vbRed End Su
4、b Private Sub Option5_Click() Text1.ForeColor = vbBlue End Sub Private Sub Option6_Click() Text1.ForeColor = vbGreen End Sub,2复选框,复选框的左边有一个，复选框列出了可供用户选择的选项，用户根据需要选定其中的一项和多项。被选中项目左侧方框中会出现一勾 主要的属性 Caption属性：复选按钮上显示的文本 Value属性： 0vbUnchecked：未被选定，默认值 1vbChecked：被选定 2vbGrayed：灰色（变暗），并显示一个选中 标记，并表示该复选框被禁止
5、 主要的事件是Click 事件，即当选中时，Value 值变为 1；或者为0，未被选中,但由于一次可以选择多个复选按钮，所以复选按钮的选择比单选按钮多了一个判断过程。 例7.2 用复选按钮选择字体效果，如加粗、斜体和下划线。 分析： 利用复选按钮的判断过程，对文本框（TxtContent）显示预设的字样设置字型等属性；复选按钮一（ChkBold）可以将文本框里面的字变为粗体；复选按钮二（ChkItalic）可以将文本框里面的字变为斜体；复选按钮三（ChkUnderline）可以给文本框里面的文字加上下划线。,复选按钮一： Private Sub ChkBold_Click() If ChkBo
6、ld.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,复选按钮三： Private Sub ChkUnderline_Click() If ChkUnderline.Value =
7、 1 Then TxtContent.FontUnderline = True Else TxtContent.FontUnderline = False End If End Sub,思考：复选按钮是不是必须经过这种选择判断？ 能不能如单选按钮那样直接使用呢？,例7.3 使用单选按钮和复选框，设置文本框的字体。,分析：当某复选框被选中时，对其相应的文字字形进行设置。如Check1被选中时，通过“Text1.FontBold = True”语句，使文本框的字体为粗体，而单选按钮用于字体的选择。 为什么字体选择用单选按钮？,Private Sub Check1_Click() Private S
8、ub Check3_Click() If Check1.Value = 0 Then If Check1.Value = 0 Then Text1.FontBold = False Text1.FontStrikethru = False Else Else Text1.FontBold = True Text1.FontStrikethru = True End If End If End Sub End Sub Private Sub Check2_Click() Private Sub Check4_Click() If Check1.Value = 0 Then If Check1.V
9、alue = 0 Then Text1.FontItalic = False Text1.FontUnderline = False Else Else Text1.FontItalic = True Text1.FontUnderline = True End If End If End Sub End Sub,Private Sub Option1_Click() If Option1.Value = 0 Then Text1.FontName = “黑体“ Else Text1.FontName = “宋体“ End If End Sub Private Sub Option2_Clic
10、k() If Option2.Value = 0 Then Text1.FontName = “宋体“ Else Text1.FontName = “黑体“ End If End Sub,3 列表框,列表框 列表框显示有多个选项的选项列表，供用户从中选择。不能直接修改其中的内容。 在工具栏上的显示： 示例：,列表框属性,List1.ListIndex = 2 List1.ListCount = 6 List1.Sorted = False List1.Text 为 “C/C+程序设计 “,List1.List(List1.ListIndex)等于List1.Text,Lst1.List(2)
11、= “跟我学 VB”,常用方法,AddItem方法 把一个项目加入列表 对象.AddItem 项目字符串 ,索引值 LstName.AddItem “Visual BAsic 教程” 索引值：决定新增项在列表中的位置，如果省略， 则新增项目添加在最后。 RemoveItem方法 删除列表中指定项目 对象.RemoveItem 索引值 LstName.RemoveItem 2 Clear 清除列表中所有项目 例如：List1.Clear,全部清除,本章目录,在运行时创建新的选项 示例,一个窗体包含名为 list1 的列表框和名为 combo1 的组合框，在该窗体的Load事件中编写代码，添加新的
12、选项。,（在VB环境 中演示）,重要事件：Click、Dbclick 选定列表框中的某项 例7.4 对列表框进行项目添加、修改和删除操作。 （1）分析： 窗体上的对象包括1个列表框（lstBooks），1个文本框（txtItem），4个命令按钮。 单击“添加”(command1)按钮，实现的功能为添加文本框（txtItem）中的项目； 单击“删除”按钮，实现的功能为删除列表框中选中的项目； 单击“修改”按钮，实现的功能为将列表框中选中的项目放在文本框中以供修改，当点击“修改”时，添加、删除和修改按钮均处于不可用状态，只有“修改确定“按钮处于可用状态；,单击“修改确定”按钮，实现的功能为将修改后
13、的项目送回列表框，替换原项目，实现修改，并且通过该控件的单击事件，可以把不可用的添加、删除和修改按钮均再次设为可用状态。,Option Explicit Sub Form_Load() lstBooks.AddItem “计算机文化基础“ lstBooks.AddItem “VB程序设计语言“ lstBooks.AddItem “操作系统“ lstBooks.AddItem “多媒体技术“ lstBooks.AddItem “网络技术基础“ End Sub Sub cmdAdd_Click() lstBooks.AddItem txtItem txtItem = “ End Sub Sub c
14、mdDelete_Click() lstBooks.RemoveItem lstBooks.ListIndex End Sub,Sub cmdModify_Click() txtItem = lstBooks.Text 将选定的项目送文本框供修改 txtItem.SetFocus cmdAdd.Enabled = False cmdDelete.Enabled = False cmdModify.Enabled = False cmdModify_Ok.Enabled = True End Sub Sub cmdModify_Ok_Click() 将修改后的项目送回列表框，替换原项目，实现修改
15、 lstBooks.List(lstBooks.ListIndex) = txtItem cmdModify_Ok.Enabled = False cmdAdd.Enabled = True cmdDelete.Enabled = True cmdModify.Enabled = True txtItem = “ End Sub,4 组合框控件,组合框控件组合了文本框和列表框的特性 用户既可以键入文本，也可以直接从列表中选择 在工具栏上的显示： 示例,组合框属性,组合框具有文本框和列表框的属性，另外还具有一些特有的属性,组合框的方法 跟列表框一样，组合框也适用 AddItem 、Clear 、 RemoveItem 方法。 组合框的事件 Click、Dbclick 选定列表框中的某项 例如 Private Sub Form_Load() Dim cnt As Integer For cnt = 1 To 5 Combo1.AddItem (cnt & “年级“) Next cnt End Sub,例7.5 组合框的应用：编写一个能够对组合框进行项目的添加、删除、全部清除操作，并能显示组合框中项目数的程序，避免新输入的项目与已有项目重名的情况,分析： 窗体上的对象包括1个组合框（Combo1），2标签（label2），4个命令按
