《Visual Basic6.0程序设计 教学课件 ppt 作者 张险峰第6章 Visual Basic标准控件》由会员分享，可在线阅读，更多相关《Visual Basic6.0程序设计 教学课件 ppt 作者 张险峰第6章 Visual Basic标准控件（56页珍藏版）》请在金锄头文库上搜索。
1、第6章 Visual Basic标准控件,本章要求：,掌握常用控件单选钮、复选框、 框架、滚动条、 列表 框、组合框、时钟等控件的常用属性、重要事件和方法的 使用。,本章重点：,单选钮、复选框、 框架、滚动条、 列表框、组合 框、时钟等控件的常用属性、重要事件和方法的使用。,本章难点：,列表框、组合框和时钟控件。,在 Visual Basic 中，单选与复选按钮控 件主要作为选项提供给用户选择。不同的 是，在一组选择按钮中，单选控件只能选 择一个，其他单选控件自动变为未被选中 状态；而在一组复选按钮中，可以选定任 意数量的按钮。,6.1 清单类控件,6.1.1单选钮和复选框,6.1 清单类控件
2、,单选按钮,6.1.1单选钮和复选框 1 单选钮 1.用途 单选钮（OptionButton） 也称作选择按钮。一组单 选钮控件可以提供一组彼 此相互排斥的选项，任何 时刻用户只能从中选择一 个选项，实现一种“单项选 择”的功能，被选中项目左 侧圆圈中会出现一黑点。,6.1 清单类控件,2. 方法 SetFocus方法是单选钮控件最常用的方法，可以在代码中通过该方法将Value属性设置为True。 与命令按钮相同，使用该方法之前，必须要保证单选钮处于可见和可用状态（即Visible与Enabled属性值均为True）。,3. 事件 Click事件是单选钮控件最基本的事件，一般情况用户无需为单选
3、钮编写Click事件过程，因为当用户单击单选钮时，它会自动改变状态。,4. 单选按钮程序举例,文本框（Text1）显示预设的字样；单选按钮一（Option1）， 单击此按钮可以将文本框里显示的字样改变成黑体。 单选按钮二（Option2），单击此按钮能将文本框里显示的字 样改变成 楷体。,6.1 清单类控件,6.1 清单类控件,（4）Style 属性 0-Standard： 标准方式 1-Graphical：图形方式,说 明： 在Style属性设置为1时，可使用 Picture 属性,5. 重要属性,（1） Caption：文本标题。设置单选钮的文本注释内容。,（2） Alignment属性：
4、,0：Left Justify(缺省设置)控件钮在左边，标题显示在右边。,1：Right Justify 控件钮在右边，标题显示在左边。,（3）Value 属性,True: 单选钮被选定,False: 单选钮未被选定,1、单选按钮一： Private Sub Optionl_Click() Text1.FontName = “黑体” End Sub,2、单选按钮二： Private Sub Optin2_Click() Text1.FontName = “楷体_GB2312“ End Sub,6.1 清单类控件,6.1 清单类控件,2 复选框,1. 用途 复选框（CheckBox）也称作检查框
5、、选择框。一组复 选框控件可以提供多个选项，它们彼此独立工作，所以用 户可以同时选择任意多个选项，实现一种“不定项选择”的 功能。选择某一选项后，该控件将显示 ,而清除此选项 后消失。,复选框被选中,6.1 清单类控件,复选框与单选按钮Value 属性的比较,请大家注意，单选控件与复选控件的 Value 值是不 同的，而这是初学者最容易混淆的。,2. 重要属性,Caption、Alignment、Style与单选钮相同,6.1 清单类控件,3.事件 Click事件是复选框控件最基本的事件。用户一般无需为复选框编写Click事件过程，但其对Value属性值的改变遵循以下规则： 单击未选中的复选框
6、时，Value属性值变为1； 单击已选中的复选框时，Value属性值变为0； 单击变灰的复选框时，Value属性值变为 2。,4 复选按钮举例：,6.1 清单类控件,文本框（Text1）显示预设的字样； 复选按钮一（Check1)可以将文本框里面的字变 为粗体； 复选按钮二（Check2）可以将文本框里面的字变 为斜体； 复选按钮三（Check3）可以给文本框里面的文字 加上下划线。,4 复选按钮举例：,6.1 清单类控件,复选按钮一：,Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else
7、Text1.FontBold = False End If End Sub,6.1 清单类控件,复选按钮二：,Private Sub Check2_Click() If Check1.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub,6.1 清单类控件,复选按钮三：,Private Sub Check3_Click() If Check1.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = F
8、alse End If End Sub,6.1 清单类控件,联想： 复选按钮是不是非得经过这种选择判断？ 能不能如单选按钮那样直接使用呢？ 还是上面这个例子，假设复选按钮一不经过判断，而直接在 点击事件中输入代码： Private Sub Check1_Click() Text1.FontBold = True End Sub 那么你会发现，复选按钮一经点击就不能取消字体加粗的效 果了；而实际上，复选按钮的功能是，点击一次即选中时， 字体加粗；点击第二次即取消选择，字体不再加粗；以此类 推。,6.1 清单类控件,知识点： 1、切记，单选按钮与复选按钮的 Value 值是不同的。 单选按钮： 选
9、中时，Value 值为 True ； 未被选中时，Value 值为 False 。 复选按钮： 选中时，Value 值为 1 ； 未被选中时，Value 值为 0 ; 禁止选择，Value 值为 2 。 你可以试验一下，将复选按钮的 Value 值分别用 True/False 代替，看一下会出现什么问题。 2、两种选择按钮都针对 Click 事件做出反应，但单选按钮 比较简单，只需直接输入代码即可；复选按钮比较复杂， 需经过条件判断后再做出反应。切记！,6.1 清单类控件,6.1 清单类控件,4.1.2 框架 (Frame),Frame 控件为控件提供可标识的分组。它是一个容器控件。 当需要在
10、同一窗体内建立几组互独立的单选钮时，就需要用 框架将每一组单选钮框起来，把 OptionButton 控件分成 几组，如下形式。,设三个框架,设Caption为 “字形“,6.1 清单类控件,重要属性 1. Caption属性：框架标题 2. Enabled属性： 缺省为True False：标题呈灰色，不允许对框架内的所有对象 进行操作 3. Visible属性： True：框架及其控件可见。 False：框架及其控件被隐藏起来。,6.1 清单类控件,事件： 框架可以响应的事件Click、DblClick,一般不需要有关框架的事件过程。,为了将控件分组，首先需要绘制 Frame 控件，然后
11、绘制 Frame 里面的控件。,注意：,单选按钮,复选框和框架控件综合举例,例：设计个人资料输入窗口，使用选项按钮组输入性别与 民族, 使用复选框输入个人爱好。,6.1 清单类控件,Private Sub Command1_Click() If Text1.Text = “ Then a = InputBox(“您忘了输入姓名！“, “注意“, “请在此输入姓名“) If a = “” Or a = “请在此输入姓名” Then Exit Sub Text1.Text = a End If p1 = Text1.Text + “，“,程序如下：,6.1 清单类控件,p2 = IIf(Optio
12、n1, “男“, “女“) + “，“ p3 = IIf(Option3, “汉族“, “少数民族“) p4 = “，喜欢：“ If Check1.Value = 1 Then p4 = p4 + Check1.Caption + “，“ If Check2.Value = 1 Then p4 = p4 + Check2.Caption + “，“ If Check3.Value = 1 Then p4 = p4 + Check3.Caption + “，“ If Check4.Value = 1 Then p4 = p4 + Check4.Caption + “，“ aa = p1 + p2
13、 + p3 + IIf(p4 = “，喜欢“, “，无爱好“, p4) Label4.Caption = Left(aa, Len(aa) - 1) + “。“ Text1.SetFocus End Sub,6.1 清单类控件,6.1 清单类控件,例4.1设计一个简单小型的编辑器，用户可以在文本框中输入一 段文字，单击复选框和单选框，可以改变文本的字体，字 型和颜色。,根据程序流程，应该先对“开始”命令按钮（Command1）编写单击事件 过程，代码如下所示： Private Sub Command1_Click() Image1.Visible = False Command1.Visibl
14、e = False Command2.Visible = False Text1.Visible = True Option1.Visible = True Option2.Visible = True Check1.Visible = True Check2.Visible = True End Sub,“退出”命令按钮（Command2）用于关闭应用程序，因此使用End方法， 其代码如下： Private Sub Command2_Click() End End Sub,6.1 清单类控件,进入图所示的用户界面后，若选中复选框1使文本变成斜体， 则Text1的FontItalic属性设为T
15、rue；若选中复选框2使文本变成 红色，则设 Text1的前景色为红色。复选框单击事件过程如下： Private Sub Check1_Click() Text1.FontItalic = True End Sub Private Sub Check2_Click() Text1.ForeColor = vbRed End Sub 单选框决定文本的字体是宋体还是隶书，如果选中单选框1，则 文本字体为宋体；若选中单选框2，则文本字体为隶书。其代码如下： Private Sub Option1_Click() Text1.FontName = 宋体 End Sub Private Sub Opti
16、on2_Click() Text1.FontName = 隶体 End Sub,6.1 清单类控件,6.1 清单类控件,4.1.3 列表框与组合框,一、用途 列表框控件（ListBox）用于显示项目列表，用户可从中选择一个或多个项目。如果项目总数超过了可显示的项目数， VB会自动加上滚动条。 列表框有两种风格：标准和复选列表框。通过它的Style属性来设置。如下图：,6.1 清单类控件,组合框控件（ComboBox）将文本框和列表框的功能结合在一起，用户可以在列表中选择某项（只能选取一项）。或在编辑区域中直接输入文本内容来选定项目。 组合框共三种风格：下拉式组合框、简单组合框和下拉式列表框（见下图）。,6.1 清单类控件,二、主要属性,1Style属性 该值用来指示控件的显示类型和行为。在运行时是只读的。对于列表框控件或组合框控件都有Style属性，但它们的含义是不同的。,例如：在窗体上放置2个列表框，将其Style属性分别设置为0和1；放置3个组合框，将它们Style属性分别
