vb6-常用控件
合集下载
VB教程：常用控件及应用
⼀、基本操作1、向窗体中添加控件⾸先将⿏标指针停在⼯具箱的控件上⼏秒钟，待显⽰出控件名，再作如下操作(当然，如果⽤户已经⾮常熟悉控件的含义，这⼀步可以省略)。
⽅法⼀：把光标移到⼯具箱上，单击控件图标，然后把光标移到窗体上(此时，窗体上的光标是⼀个⼗字形图标)，在窗体上选择控件放置的初始化位置，然后按下⿏标左键，拖曳⿏标，直到所需的⼤⼩，松开⿏标按键即可。
⽅法⼆：另外⼀个⽅法是⽤⿏标双击控件图标，窗体中央出现默认⼤⼩的控件，拖动该控件到合适的位置即可。
⽅法三：单击控件，然后在窗体上设计好控件的⼤⼩，再⽤复制和粘贴命令拷贝控件，这时，屏幕上会出现⼀个对话框，询问是否要建⽴控件数组，单击“否”按钮，就把活动控件复制到窗体的左上⾓，可以获得同样尺⼨的控件。
但这种⽅法在使⽤时会发现，两个控件的名称是⼀样的，这不利于下⼀步⼯作；如果单击“是”，将建⽴⼀组索引号不同的控件组。
⽤这种⽅法创建的控件可以获得同样尺⼨。
说明：⽤双击控件的⽅法获得的控件⼤⼩是⼀致的，⽽且vB⾃动给第⼀个同名控件起名为“控件1”，第⼆个同名控件为“控件2”，依次类推。
⽤单击控件的⽅法，然后再在窗体上画控件，会导致控件⼤⼩不⼀，但vB还是⾃动给第⼀个同名控件起名为“控件l”，，第⼆个同名控件为“控件2”，依次类推。
为了能单击⼀次控件图标即可在窗体上画出多个相同类型的控件，可按如下步骤操作：按下Ctrl键，不要松开。
单击⼯具箱中想要画的控件图标，然后松开Ctrl键。
⽤前⾯介绍的⽅法在窗体上画出控件（可以画⼀个或多个）。
画完（⼀个或多个）后，单击⼯具箱中的指针图标（或其它图标）。
2、改变窗体上控件的⼤⼩选中控件，放置在窗体上的控件周围有⼋个⼩⽅块，这⼋个⼩⽅块⽤于改变窗体上控件的⼤⼩，故也称作尺⼨控制⼿柄。
把⿏标指针移到任何⼀个⼩⽅块上，待⿏标指针变成—个双向箭头时，移动⿏标就能改变窗体上控件的⼤⼩了。
3、移动窗体上的控件把⿏标指针移到控件上，拖曳⿏标，就能移动窗体上的控件。
vb6-常用控件
Check1 Combo1 Text1
Check2 Option1 Option2
5.2 滚动条和Slider控件
Slider控件
n
Value Max
Min
Max SmallChange LargeChange
共同具有的重要属性: Max：最大值 -32 758~32 757 Min：最小值 -32 758~32 757 SmallChange 最小变动值，单击箭 头时移动的增量值。 LargeChange 最大变动值，单击空 白处时移动的增量值。 Value 滑块所处位置所代表的值。
文本框的换行输出: Private Sub Command1_Click() For i = 1 To 100 step 2 text1 =text1+format(str(i),”@@@”) Sum = Sum + i N=n+1 If n mod 5=0 then text1=text1+vbcrlf Next i Text2= Sum End Sub
If d = 0 Then X1 = p : X2 = p If d < 0 Then q = Sqr(-d) / (2 * a) p = CInt(p * 100) / 100 q= CInt(q * 100) / 100 X1 = p& "+" & q & "I " X2 = p & "-" & q & "I" endif Text4.Text = X1 Text5.Text = X2 endsub
滚动条的事件：
1.Scroll： 拖动滑块时会触发Scroll事件。 2.Change： Value属性改变时触发Change事件。 例1. 用一个文本框(txtSpeed)显示 滚动条(hsbSpeed)滑块当前位置所 代表的值。
Check2 Option1 Option2
5.2 滚动条和Slider控件
Slider控件
n
Value Max
Min
Max SmallChange LargeChange
共同具有的重要属性: Max：最大值 -32 758~32 757 Min：最小值 -32 758~32 757 SmallChange 最小变动值，单击箭 头时移动的增量值。 LargeChange 最大变动值，单击空 白处时移动的增量值。 Value 滑块所处位置所代表的值。
文本框的换行输出: Private Sub Command1_Click() For i = 1 To 100 step 2 text1 =text1+format(str(i),”@@@”) Sum = Sum + i N=n+1 If n mod 5=0 then text1=text1+vbcrlf Next i Text2= Sum End Sub
If d = 0 Then X1 = p : X2 = p If d < 0 Then q = Sqr(-d) / (2 * a) p = CInt(p * 100) / 100 q= CInt(q * 100) / 100 X1 = p& "+" & q & "I " X2 = p & "-" & q & "I" endif Text4.Text = X1 Text5.Text = X2 endsub
滚动条的事件：
1.Scroll： 拖动滑块时会触发Scroll事件。 2.Change： Value属性改变时触发Change事件。 例1. 用一个文本框(txtSpeed)显示 滚动条(hsbSpeed)滑块当前位置所 代表的值。
vb6控件 OptionButton&CheckBox
在 Visual Basic 中，单选与复选按钮控件主要作为选项提供给用户选择。
不同的是，在一组选择按钮中，单选控件只能选择一个，其他单选控件自动变为未被选中状态；而在一组复选按钮中，可以选定任意数量的按钮。
一、单选控件（OptionButton）与复选控件（CheckBox）的主要属性：单选控件默认名称为 OptionX（X为阿拉伯数字 1、2、3，等等），起名规则为 OptX（X为用户自定义名字，如 OptRed、OptArial，等等）；复选控件默认名称为 CheckX（X为 1、2、3，等等），起名规则为 ChkX（X为用户自定义名字，如 ChkName、ChkRed ，等等）。
在 VB 操作界面中，单选控件与复选控件的图标如图一所示：图一以前讲到的大多数属性都适用于单选与复选控件，包括：Caption、Enabled、Font（FontB old、FontItalic、FontName，等等）、Name、Height ，等等，此处不再赘述。
Value 属性是单选与复选控件最主要的属性，但单选与复选控件的 Value 值有些微的差别。
单选控件：选中时，Value 值为 True ；未被选中，Value 值为 False 。
复选控件：选中时，Value 值为 1 ；未被选中，Value 值为 0 ；禁止对该按钮进行选择， Value 值为 2 。
请大家注意，单选控件与复选控件的 Value 值是不同的，而这是初学者最容易混淆的。
二、单选按钮与复选按钮的事件：这两种控件最主要的事件是 Click 事件，当选中时，Value 值变为 True 或者 1 ，控件也自动变为选中状态。
三、单选按钮程序举例：有如图二这样一个程序：图二文本框（TxtContent）显示预设的字样；单选按钮一（OptArial），单击此按钮可以将文本框里显示的字样改变成 Arial 字体；单选按钮二（OptModern），单击此按钮能将文本框里显示的字样改变成 Modern 字体。
VB6.0第四章-控件,窗体
True：按字母顺序排列。False：按加入先后顺序排列
7
可视化程序设计——第四章 常用控件和窗体
4.4 列表框
7.Text属性（默认属性）
.List（.ListIndex）＝ .Text
8.MultiSelect属性
None：不允许多选。 Simple：简单多选。每次鼠标单击选中一项。 Extended：可扩展多选，与键盘上的某个键配合使用， 如：ctrl+鼠标。
属性：
Path Pattern Archive Normal System Hidden ReadOnly 设置目录或返回当前工作目录 设置要显示的文件类型 是否显示归档文件 是否显示普通文件 是否显示系统文件 是否显示隐含文件 是否显示只读文件 File1.Path=Dir1.Path File1.Pattern=“*.EXE ; *.DLL”
属性：Drive—设置驱动器或返回当前工作驱动器
可通过语句 Drive1.Drive=“C:\” 指定，或从列表中选择。
Drive属性只能在程序代码中设置、访问， 而不能在属性窗口中设置。
事件：Click、Change（列表框顶部的内容改变）
21
可视化程序设计——第四章 常用控件和窗体
DirListBox控件
4.6 驱动器、目录和文件列表框
三、文件列表框
Name 属性：fil [对象.]Path[＝Pathname] [对象.]Pattern[＝value] [对象.] FileName [＝pathname] Path和FileName
19
可视化程序设计——第四章 常用控件和窗体
DriveListBox控件
16
可视化程序设计——第四章 常用控件和窗体
7
可视化程序设计——第四章 常用控件和窗体
4.4 列表框
7.Text属性（默认属性）
.List（.ListIndex）＝ .Text
8.MultiSelect属性
None：不允许多选。 Simple：简单多选。每次鼠标单击选中一项。 Extended：可扩展多选，与键盘上的某个键配合使用， 如：ctrl+鼠标。
属性：
Path Pattern Archive Normal System Hidden ReadOnly 设置目录或返回当前工作目录 设置要显示的文件类型 是否显示归档文件 是否显示普通文件 是否显示系统文件 是否显示隐含文件 是否显示只读文件 File1.Path=Dir1.Path File1.Pattern=“*.EXE ; *.DLL”
属性：Drive—设置驱动器或返回当前工作驱动器
可通过语句 Drive1.Drive=“C:\” 指定，或从列表中选择。
Drive属性只能在程序代码中设置、访问， 而不能在属性窗口中设置。
事件：Click、Change（列表框顶部的内容改变）
21
可视化程序设计——第四章 常用控件和窗体
DirListBox控件
4.6 驱动器、目录和文件列表框
三、文件列表框
Name 属性：fil [对象.]Path[＝Pathname] [对象.]Pattern[＝value] [对象.] FileName [＝pathname] Path和FileName
19
可视化程序设计——第四章 常用控件和窗体
DriveListBox控件
16
可视化程序设计——第四章 常用控件和窗体
VB 6.0控件参考
存储的查询
当使用 Data 控件时，另外一个重要选项是执行存储的查询的能力。如果事先创建 QueryDef 对象，Data 控件能执行它并用 QueryDef 对象保存的 SQL、Connect 和其它属性创建 Recordset。为了执行 QueryDef，请把 Data 控件的 RecordSource 属性设置成 QueryDef 的名字并使用 Refresh 方法。
注意 使用 Data 控件时用于决定 Recordset 类型的常数不同于用于确定的已创建的 Recorset 类型的或者用来以 OpenRecordset 方法创建 Recorset 对象的常数。
为选择特定的 Recordset 类型，把 Data 控件的 V 属性设成：
Recordset 类型
值
DirListBox 控件
file://C:\Documents and Settings\Administrator\Local Settings\Temp\... 2012-3-11
CheckBox 控件
页码，5/47
在运行时，DirListBox 控件显示目录和路径。这个控件可以显示分层的目录列表。例如，可 以创建对话框，在所有可用目录中，从文件列表打开一个文件。
当 Visual Basic 用 Jet Database 引擎创建一个 Recordset 时，其它的 Visual Basic 操 作或事件只能等到该操作完成后才能发生。然而，在 Recordset 创建过程中允许其它基于 Windows 的应用程序继续执行。当 Jet 引擎创建 Recordset 时，按 CTRL+BREAK 键，操作 将被终止，导致一个可捕获的错误，而 Data 控件的 Recordset 属性被设置成 Nothing。在 设计时内，第二次按 CTRL+BREAK 键会使 Visual Basic 显示 Debug 窗口。
当使用 Data 控件时，另外一个重要选项是执行存储的查询的能力。如果事先创建 QueryDef 对象，Data 控件能执行它并用 QueryDef 对象保存的 SQL、Connect 和其它属性创建 Recordset。为了执行 QueryDef，请把 Data 控件的 RecordSource 属性设置成 QueryDef 的名字并使用 Refresh 方法。
注意 使用 Data 控件时用于决定 Recordset 类型的常数不同于用于确定的已创建的 Recorset 类型的或者用来以 OpenRecordset 方法创建 Recorset 对象的常数。
为选择特定的 Recordset 类型，把 Data 控件的 V 属性设成：
Recordset 类型
值
DirListBox 控件
file://C:\Documents and Settings\Administrator\Local Settings\Temp\... 2012-3-11
CheckBox 控件
页码，5/47
在运行时，DirListBox 控件显示目录和路径。这个控件可以显示分层的目录列表。例如，可 以创建对话框，在所有可用目录中，从文件列表打开一个文件。
当 Visual Basic 用 Jet Database 引擎创建一个 Recordset 时，其它的 Visual Basic 操 作或事件只能等到该操作完成后才能发生。然而，在 Recordset 创建过程中允许其它基于 Windows 的应用程序继续执行。当 Jet 引擎创建 Recordset 时，按 CTRL+BREAK 键，操作 将被终止，导致一个可捕获的错误，而 Data 控件的 Recordset 属性被设置成 Nothing。在 设计时内，第二次按 CTRL+BREAK 键会使 Visual Basic 显示 Debug 窗口。
第06章 VB常用标准控件
在运行期间，可以用LoadPicture函数把图形文 件装入窗体、图片框或图像框中。
格式： 对象.]Picture=LoadPicture("文件名") 格式：[对象.]Picture=LoadPicture("文件名") .]Picture=LoadPicture("文件名 说明： ①“对象”可以是窗体、图片框或图像框。 ②“文件名”指的是Visual Basic所能接收的图形文件 ③LoadPicture函数与Picture属性功能相同，只是使 用的时机不一样。 注意： ①如果在设计阶段装入图形，这个图形将会与窗体 一起保存到文件中。 ②当生成可执行文件(.EXE)时，不必提供需要装入 的图形文件，因为图形文件已包含在可执行文件 中了。
标准控件简介
在VB工具箱中列出的控件： VB工具箱中列出的控件：
标签 框架 组合框 滚动条 目录列表框 直线控件 OLE控件 OLE控件 文本框 复选框 列表框 计时器 文件列表框 图片框 命令按钮 单选钮 数据控件 驱动器列表框 形状控件 图像控件
第一节
一、标签
数据类型
标签主要用来显示文本信息，它所显示的 内容只能用Caption属性来设置或修改，不能直 接编辑。较重要的有以下几个属性： 1.Alignment 1. 该属性用来确定标签中标题的放置方式,可 以设置为0、1或2，分别使标签的标题靠左、靠 右和居中显示。
(2)PasswordChar
把PasswordChar属性设置为一个字符,例如 星号(*)，则在文本框中键入字符时，显示的不 是键入的字符,而是被设置的字符(如星号)。利 用这一特性，可以设置口令。
(3)ScrollBars
该属性用来确定文本框中有没有滚动条,可 以取0、1、2、3四个值。如果设置为0，则文本 框中没有滚动条；如果设置为1、2或3，则文本 框中可显示水平滚动条、,垂直滚动条或同时显 示水平和垂直滚动条。
格式： 对象.]Picture=LoadPicture("文件名") 格式：[对象.]Picture=LoadPicture("文件名") .]Picture=LoadPicture("文件名 说明： ①“对象”可以是窗体、图片框或图像框。 ②“文件名”指的是Visual Basic所能接收的图形文件 ③LoadPicture函数与Picture属性功能相同，只是使 用的时机不一样。 注意： ①如果在设计阶段装入图形，这个图形将会与窗体 一起保存到文件中。 ②当生成可执行文件(.EXE)时，不必提供需要装入 的图形文件，因为图形文件已包含在可执行文件 中了。
标准控件简介
在VB工具箱中列出的控件： VB工具箱中列出的控件：
标签 框架 组合框 滚动条 目录列表框 直线控件 OLE控件 OLE控件 文本框 复选框 列表框 计时器 文件列表框 图片框 命令按钮 单选钮 数据控件 驱动器列表框 形状控件 图像控件
第一节
一、标签
数据类型
标签主要用来显示文本信息，它所显示的 内容只能用Caption属性来设置或修改，不能直 接编辑。较重要的有以下几个属性： 1.Alignment 1. 该属性用来确定标签中标题的放置方式,可 以设置为0、1或2，分别使标签的标题靠左、靠 右和居中显示。
(2)PasswordChar
把PasswordChar属性设置为一个字符,例如 星号(*)，则在文本框中键入字符时，显示的不 是键入的字符,而是被设置的字符(如星号)。利 用这一特性，可以设置口令。
(3)ScrollBars
该属性用来确定文本框中有没有滚动条,可 以取0、1、2、3四个值。如果设置为0，则文本 框中没有滚动条；如果设置为1、2或3，则文本 框中可显示水平滚动条、,垂直滚动条或同时显 示水平和垂直滚动条。
vb6-常用控件
If d > 0 Then
r = Sqr(d) / (2 * a)
X1 = p + r
X2 = p – r
endif
If d = 0 Then X1 = p : X2 = p If d < 0 Then
q = Sqr(-d) / (2 * a) p = CInt(p * 100) / 100 q= CInt(q * 100) / 100 X1 = p& "+" & q & "I " X2 = p & "-" & q & "I" endif Text4.Text = X1 Text5.Text = X2 endsub
End Sub
运行结果
Private Sub Command1_Click()
a = Val(Text1): b = Val(Text2): c = Val(Text3)
L = a + b <= c Or b + c <= a Or c + a <= b If L Then Text4 = "不能构成三角形" : Exit Sub If a <> b Or b <> c Or c <> a Then Text4 = "一般三角形“ If a = b Or b = c Or c = a Then Text4= "等腰三角形" If a = b And b = c And c = a Then Text4 = "等边三角形"
S = (a + b + c) / 2
r = Sqr(d) / (2 * a)
X1 = p + r
X2 = p – r
endif
If d = 0 Then X1 = p : X2 = p If d < 0 Then
q = Sqr(-d) / (2 * a) p = CInt(p * 100) / 100 q= CInt(q * 100) / 100 X1 = p& "+" & q & "I " X2 = p & "-" & q & "I" endif Text4.Text = X1 Text5.Text = X2 endsub
End Sub
运行结果
Private Sub Command1_Click()
a = Val(Text1): b = Val(Text2): c = Val(Text3)
L = a + b <= c Or b + c <= a Or c + a <= b If L Then Text4 = "不能构成三角形" : Exit Sub If a <> b Or b <> c Or c <> a Then Text4 = "一般三角形“ If a = b Or b = c Or c = a Then Text4= "等腰三角形" If a = b And b = c And c = a Then Text4 = "等边三角形"
S = (a + b + c) / 2
第五章vb6.0 基本控件的使用
第五章基本控件的使用5.1 标签控件在Windows应用程序的各种对话框中，都显示有一些文本提示信息，在VB中可以使用标签控件来实现在窗体中显示这些文本提示信息。
表5.1中列出了标签控件的一些主要属性。
既可以在程序设计阶段通过【属性】窗口设置标签的属性，也可以在程序运行阶段在代码中设置窗体的属性。
如将标签（名称为Labell）显示的文本设置为"欢迎"的语句如下：Labell.Caption=欢迎实例5.1标签的使用在该程序中，窗体上显示一行提示用户执行操作的文本，当用户单击或双击窗体时，窗体上还会显示出用户所执行的操作。
在窗体上放置两个标签控件，它们的属性设置如表5.2所示。
打开【代码】窗口，将下列代码添加到Form_Click事件过程中：（BorderStyle属性的值为0）,第二行语句是设置标签上显示的文本。
窗体上显示"您双击了窗体！",并且文本有一个边框，如图5.3所示：5.2 按钮控件在应用程序中，按钮控件常常被用来启动、中断或结束一个进程，用户可以通过简单的单击按钮来执行操作。
只要用户单击按钮，就会触发它的Click事件过程，通过编写按钮的Click 事件过程，就可以指定它的功能了。
按钮控件的常用属性如表5.3所示。
5.2.1按钮的有效性在某些应用程序界面中，按钮会根据用户的操作情况呈现两种不同的状态，一种是"有效",一种是"无效".在"无效"状态时，按钮通常以浅灰色显示，不能响应用户的任何操作。
Windows系统自带的录音机程序界面，其中的【停止】与【后退】按钮无效（以浅灰色显示）.按下【播放】按钮后，【播放】按钮变为无效，而【停止】按钮变为有效。
按下【停止】按钮后，【停止】按钮变为无效，【播放】按钮恢复有效。
通过按钮的有效性可以看出当前程序的状态，从而避免一些不需要的或重复的操作。
如在录音机处于停止状态时（【停止】按钮无效）,用户就不需要再去单击【停止】按钮来停止播放了。
第4章 VB 6.0常用控件
为 0时，无边框；设置为1时，为固定单边框。 Stretch 属性，设置是否缩放图形来适应控件大 小。
39
背景知识
滚动条
滚动条（ScrollBar）控件可以进行数据输入。滚
动条控件有水平和垂直滚动条两种类型。这两种 滚动条除了显示方向不同外，其功能和操作是一 样的。在滚动条两端各有一个滚动条箭头，在滚 动条箭头之间有一个滚动块。滚动块从一端移至 另一端时，其Value属性值在不断变化。垂直滚 动条的最上端代表最小值，最下端代表最大值。 水平滚动条则是左端代表最小值，右端代表最大 值。VB 6.0规定其值的范围从－32 768～32 767。 40 可以用min属性和max属性指定滚动条的Value属 性值变化的范围。
31
实现步骤
程序界面设计如图
32
实现步骤
单击“打开图片文件”按钮时，调用“打开 文件”对话框，然后把图片显示在图片框中。 通过调节水平和垂直滚动条的大小，改变图 片框的大小。
33
实现步骤
程序运行结果如图
34
背景知识
图片框（PictureBox），其主要功能是显 示图片或用Print方法输出文本，还可以作 为其他控件的容器。 图片框的常用属性：
背景知识
组合框
组合框同时具备了文本框和组合框的属性。组合
框的很多属性跟列表框有点类似，比如List， ListIndex，ListCount和Text属性等。组合框的主 要方法有AddItem，RemoveItem，Clear和 Refresh等，主要事件有Click，DblClick， Change和KeyPress等。
背景知识
通用对话框
在默认状态下，通用对话框并不在工具箱中，所
VB6.0基础教程 之 第6章 Visual Basic常用标准控件
第6 章
6.1 6.2 6.3 6.4 6.5 6.6 6.7 6.8 6.9
Basic常用标准控件 Visual Basic常用标准控件
概述 图形控件 单选按钮和复焦点与Tab Tab顺序 焦点与Tab顺序
1
6.2 图形控件
图片框(PictureBox)和图像框(Image) 功能：用于显示图形 Picture属性:设置图片框或图像框中要显示的图像文件名。可以在设计阶段设置 或在程序中设置。 LoadPicture函数一般格式： [对象.]Picture= LoadPicture(“文件名”)
复选框
2．复选框(CheckBox) Caption属性：文本标题。 Alignment属性 0：控件钮在左边，标题显示在右边。 1：控件钮在右边，标题显示在左边。 Value属性 0--Unchecked：未被选定 1--Checked：选定 2--Grayed：灰色，禁止选择 Style属性 0--Standard：标准方式 1--Graphical：图形方式 事件 Click
6.4 框架
用途：将窗体中的控件按功能或类别分组。
框架
6.4 框架
Caption属性：框架标题 Enabled属性 False，不允许对框架内的对象进行操作。 Visible属性 True：框架及其控件可见。 False：框架及其控件被隐含起来。 事件 Click、DblClick 一般不需要编写框架的事件过程。
例如：Dir1.Path=“C:\Mydir” 重要事件——Change事件 在程序运行时，每当改变当前目录，即目录列表框的Path属性发生变化时，都要触 发其Change事件。
文件列表框(FileListBox)
功能：显示当前目录中指定类型的所有文件。 Path属性：用于返回和设置当前目录。 要从文件列表框（File1）中获得全路径的文件名Fname，用下面的程序代码： If Right(file1.path,1) ="\" Else Fname=file1.path &"\"& file1.filename End If Then Fname=file1.path & file1.filename
6.1 6.2 6.3 6.4 6.5 6.6 6.7 6.8 6.9
Basic常用标准控件 Visual Basic常用标准控件
概述 图形控件 单选按钮和复焦点与Tab Tab顺序 焦点与Tab顺序
1
6.2 图形控件
图片框(PictureBox)和图像框(Image) 功能：用于显示图形 Picture属性:设置图片框或图像框中要显示的图像文件名。可以在设计阶段设置 或在程序中设置。 LoadPicture函数一般格式： [对象.]Picture= LoadPicture(“文件名”)
复选框
2．复选框(CheckBox) Caption属性：文本标题。 Alignment属性 0：控件钮在左边，标题显示在右边。 1：控件钮在右边，标题显示在左边。 Value属性 0--Unchecked：未被选定 1--Checked：选定 2--Grayed：灰色，禁止选择 Style属性 0--Standard：标准方式 1--Graphical：图形方式 事件 Click
6.4 框架
用途：将窗体中的控件按功能或类别分组。
框架
6.4 框架
Caption属性：框架标题 Enabled属性 False，不允许对框架内的对象进行操作。 Visible属性 True：框架及其控件可见。 False：框架及其控件被隐含起来。 事件 Click、DblClick 一般不需要编写框架的事件过程。
例如：Dir1.Path=“C:\Mydir” 重要事件——Change事件 在程序运行时，每当改变当前目录，即目录列表框的Path属性发生变化时，都要触 发其Change事件。
文件列表框(FileListBox)
功能：显示当前目录中指定类型的所有文件。 Path属性：用于返回和设置当前目录。 要从文件列表框（File1）中获得全路径的文件名Fname，用下面的程序代码： If Right(file1.path,1) ="\" Else Fname=file1.path &"\"& file1.filename End If Then Fname=file1.path & file1.filename
vb6.0 控件简介
阶段2 菜单栏中的“格式”的应用
在界面设计前，应该对各个控件的布局有一个
整体的考虑，使界面看上去自然、清晰，层次分 明。在各控件建立后，还可以利用菜单栏中的 “格式”对它们统一布局。
再选择“格式”菜单中的“对齐”、“统一尺 寸”、“间距”等项进行设置。
阶段3 控件的属性窗口
每个控件都有自己的属性、方法和事件。某些
二.Autosize属性（逻辑类型）
该属性决定控件是否自动改变大小，以显示其 全部内容。当字符串Caption的字符数超过设 定的字符串Caption的宽度时： 若Autosize属性值为True，则自动改变控件大 小以显示全部内容。 若Autosize属性值为False，则保持控件大小 不变，超出部分不予显示。
提高程序的可读性，可以考虑根据控件在程序中的实际 作用，为其另取一个合适的名称。
二.Caption属性（字符串类型）
控件的Caption属性值为显示在控件上的标题，运行时 用户在界面上看到的是Caption值。 不是所有的控件都有Caption属性，如文本框、驱动器 、目录、文件列表框、图像或图片框、定时器、滚动 条、组合框、数据库等控件。 “Caption”属性的默认值与控件的“名称属性”同名 。 重新设置控件的Caption属性，变化的只是控件的外观 ；而重新设置控件的名称属性则不然。
三.Enabled属性（可用性，逻辑类型）
该属性只能取值为“False”或“True”。当值
为False时控件不可用，为灰色；当值为True时 控件可用。 Enabled属性可以在设计时设置，也可以在运 行时用赋值语句为其赋值。
四.命令按钮的其他属性
Appearance属性 Backolor属性 Cancel属性 Default属性 Font属性 Left、Top、Height、Width属性 Style、Picture属性 Visible属性 Index属性
VB常用控件
【案例1.3】建立如图界面，选择不同字形，标签的文字发生相应变化
对象 标签
复选框
对象名称
Label1
Check1 Check2 Check3
属性 Caption
Font Caption Caption Caption
属性值 复选框的应用
三号 粗体 斜体 下划线
【案例1.3】建立如图界面，选择不同字形，标签的文字发生相应变化
控件属性 名称
Caption Enabled
Value
属性值
Option1 Option1
True False True False
控件属性 名称
Caption
属性值
Frame1 Frame1
说明 设置单选按钮的名称，
设置按钮的标题。 设置按钮是否可用
设置按钮是否为选中状态
说明 设置框架的名称， 设置框架的标题。
【案例1.1】设置字体字号颜色
部分程序代码 Private Sub Option1_Click()
Label1.FontSize=12 End Sub
Private Sub Option4_Click() Label1.FontName=”宋体”
End Sub
Private Sub Option7_Click() Label1.ForeColor=VBRed
【案例1.8】建立如图三个类型的组合框，并输入相应内容
【案例1.8】建立如图三个类型的组合框，并输入相应内容
对象 组合框
对象名称 Combo1 Combo2 Combo3
属性 List Style List Style List Style
属性值 1,2…
0 a,b…
vb6.0_控件简介
名称属性用以表示控件，具有唯一性。 VB的每一个控件都有一个默认的名称，为了操作方便， 提高程序的可读性，可以考虑根据控件在程序中的实际 作用，为其另取一个合适的名称。
二.Caption属性（字符串类型）
控件的Caption属性值为显示在控件上的标题，运行时 用户在界面上看到的是Caption值。
三.BackColor属性（整数类型，取值0，1）
该属性值用以指示标签是否透明。 BackColor属性值为0时，透明。 BackColor属性值为1时，不透明。
四.BorderStyle属性（整数类型，取值0，1）
该属性值用以设置控件是否有边框。 BorderStyle属性值为0时，无边框。 BorderStyle属性值为1时，有边框。
阶段2 标签框控件常用事件
标签框控件和命令按钮一样，也可以响应如 Click、Dbclick等事件。在程序设计中，习惯上 还是作为文本显示使用。
任务4 文本框控件
阶段1 文本框控件常用属性 阶段2 文本框控件常用事件
阶段1 文本框控件常用属性
一.Text属性（字符串类型）
该属性是文本框控件最重要的属性之一。可以 在设计时设定Text属性，也可以在运行时直接在 文本框内输入或用向Text属性赋值的方法来改变 该属性的值。 向文本框控件的Text属性赋值，格式为：文本 框控件名.Text=<字符串>
不是所有的控件都有Caption属性，如文本框、驱动器 、目录、文件列表框、图像或图片框、定时器、滚动 条、组合框、数据库等控件。
“Caption”属性的默认值与控件的“名称属性”同名 。
重新设置控件的Caption属性，变化的只是控件的外观 ；而重新设置控件的名称属性则不然。
二.Caption属性（字符串类型）
控件的Caption属性值为显示在控件上的标题，运行时 用户在界面上看到的是Caption值。
三.BackColor属性（整数类型，取值0，1）
该属性值用以指示标签是否透明。 BackColor属性值为0时，透明。 BackColor属性值为1时，不透明。
四.BorderStyle属性（整数类型，取值0，1）
该属性值用以设置控件是否有边框。 BorderStyle属性值为0时，无边框。 BorderStyle属性值为1时，有边框。
阶段2 标签框控件常用事件
标签框控件和命令按钮一样，也可以响应如 Click、Dbclick等事件。在程序设计中，习惯上 还是作为文本显示使用。
任务4 文本框控件
阶段1 文本框控件常用属性 阶段2 文本框控件常用事件
阶段1 文本框控件常用属性
一.Text属性（字符串类型）
该属性是文本框控件最重要的属性之一。可以 在设计时设定Text属性，也可以在运行时直接在 文本框内输入或用向Text属性赋值的方法来改变 该属性的值。 向文本框控件的Text属性赋值，格式为：文本 框控件名.Text=<字符串>
不是所有的控件都有Caption属性，如文本框、驱动器 、目录、文件列表框、图像或图片框、定时器、滚动 条、组合框、数据库等控件。
“Caption”属性的默认值与控件的“名称属性”同名 。
重新设置控件的Caption属性，变化的只是控件的外观 ；而重新设置控件的名称属性则不然。
(完整版)VB常用标准控件
6.2.2 单选按钮
也叫选择按钮，只能从多个选项中选择一个，各选 项间的关系是互斥的。
6.2.2 单选按钮
（1）Value 属性 表示按钮是否被选中 True 表示被选中 False表示未被选中
6.2.2 单选按钮
例6.2
6.2.3 框架
框架（Frame）控件是一个容器控件，为控件提供 可标识的分组 。在框架中的控件，可以随框架同时 移动。
6.2 选择控件 6.2.1 复选框
（3）Value 属性 可取0，1，2。
0-Unchecked表示未被选定； 1-Checked表示选定； 2-Grayed表示灰色，禁止选择。
例6.1 设计一个窗体说明复选框的基本应用方法。 首先建立一个窗体，在其中添加一个标签Label1和3 个复选框Check1、Check2 和Check3。
FontStrikethru、FontUnderline属性 ⑨ Font属性
6.2 选择控件 6.2.1 复选框
（1）Caption属性 用于设置复选框的文本注释内容，即复选框旁边 的文本标题。
（2）Alignment属性 取值为0或1。0（缺省值）表示复选框在文本左侧； 1表示复选框在文本右侧。
⑤ Text属性：返回当前选择的列表项的文本内容。
⑥ MultiSelect属性：设置该列表框能否选择多项。 ⑦ Selected属性：为一个逻辑数组，其中的每个元素
对应列表中的一项，表示列表框控件中的一个项的 选择状态。当数组元素值为True时，对应项被选 中，否则没有选中。
⑧ Style属性：控制控件的外观，其数值可以设置为0 （标准样式）和1（复选框样式）。
⑨ SelCount 属性 返回在列表框控件中被选中项的数量。如果没有选 项被选中，那么返回值为0。
VB_第六章_常用标准控件2
6.3.3 框架
体中可能有许多控件， 体中可能有许多控件，为了将控件分成 干个单元，可采用框架控件(Frame)。 干个单元，可采用框架控件(Frame)。 架控件一般是按功能把控件组合在一起 ，同一框架中的控件可以作为一个整体 行移动、激活或屏蔽。利用框架控件， 行移动、激活或屏蔽。利用框架控件， 以在功能上进一步分割一个窗体。 以在功能上进一步分割一个窗体。
对 象 计时器
组合框
标签框
执 行 结 果
计 时 器
：用一个时钟控件控制蝴蝶在窗体内飞 。
界 面 的 设 计
对
象
属
性
赋
值
命令 按钮 Timer Image
Caption 名称 Interval 名称 Picture 名称
退出 command1 100 Timer1 Bfly4/5. Bfly4/5.gif Image1
计 时 器
在工具箱中，计时器控件图标如下 在工具箱中， 图所示。 图所示。
计 时 器
例： 设计程序以显示世界不同城 市的当前时间。 市的当前时间。该程序属性设计 如下表所示。 如下表所示。
界 面 的 设 计
计 时 器
属 性 Interval 名称 Style 名称 Caption 名称 赋 值 1000 Timer1 2 Combo1 00:00:00 Label1
组合框
组合框实际上是将列表框和文本框的功 相综合的， 相综合的，既像列表框一样让用户从中 择其中的项目，又能像文本框一样， 择其中的项目，又能像文本框一样，让 户输入自己指定的内容。 户输入自己指定的内容。其图标如下图 示。
组合框
Text: Text:它用来表示在其文本区中显示出来 的内容
体中可能有许多控件， 体中可能有许多控件，为了将控件分成 干个单元，可采用框架控件(Frame)。 干个单元，可采用框架控件(Frame)。 架控件一般是按功能把控件组合在一起 ，同一框架中的控件可以作为一个整体 行移动、激活或屏蔽。利用框架控件， 行移动、激活或屏蔽。利用框架控件， 以在功能上进一步分割一个窗体。 以在功能上进一步分割一个窗体。
对 象 计时器
组合框
标签框
执 行 结 果
计 时 器
：用一个时钟控件控制蝴蝶在窗体内飞 。
界 面 的 设 计
对
象
属
性
赋
值
命令 按钮 Timer Image
Caption 名称 Interval 名称 Picture 名称
退出 command1 100 Timer1 Bfly4/5. Bfly4/5.gif Image1
计 时 器
在工具箱中，计时器控件图标如下 在工具箱中， 图所示。 图所示。
计 时 器
例： 设计程序以显示世界不同城 市的当前时间。 市的当前时间。该程序属性设计 如下表所示。 如下表所示。
界 面 的 设 计
计 时 器
属 性 Interval 名称 Style 名称 Caption 名称 赋 值 1000 Timer1 2 Combo1 00:00:00 Label1
组合框
组合框实际上是将列表框和文本框的功 相综合的， 相综合的，既像列表框一样让用户从中 择其中的项目，又能像文本框一样， 择其中的项目，又能像文本框一样，让 户输入自己指定的内容。 户输入自己指定的内容。其图标如下图 示。
组合框
Text: Text:它用来表示在其文本区中显示出来 的内容
vb6基础知识
对象.backcolor=颜色值 如：=RGB(0,0,255)蓝色 RGB（r,g,b）分别表示red/green/blue，取值为0~255
可用常量：vbblack、red、green、yellow、blue、magenta(洋红,像紫色)、cyan(青色，像浅绿)、white
borderstyle边框类型：vbBSNone 0没有边框或与边框相关的元素； vbFixedSingle 1固定单边框，可包含控制菜单栏、标题栏、最大、最小化按钮，只能用最大最小化按钮改变大小 vbSizable 2（默认）可调整的边框 vbFixedDouble 3可包含控制菜单框和标题栏，不包含最小、最大化按钮，不改大小。
Pr sub 对象_事件名称（） [注意FORM的对象名称始终为form,没有form2之类]
……
end sub
4.标准命名约定：
ado=ADO data chk=Check box cbo=combo box cmd=command button dlg=common dialog dir=directory list box drv=drive list box
backcolor:设置窗体的背景颜色，forecolor用于设置窗体显示文本或图形的前景颜色。在窗体中设置其背景色会檫除所有文本和图像，包括永久性图形。但不影响设置以后的文本输出和图形绘制。forecolor只影响以后绘制图形或打印输出。设置窗体中输出文本的颜色时，文本和窗体的颜色都必须使用单色。如果使用由多种颜色像素组合成的混合色，则会自动被替换为最接近的单色。
6.窗体属性：
name:不能包含标点符号和空格（窗体模块中可用ME引用当前窗体，在使用属性和方法时若省略对象名称则默认为当前窗体）
可用常量：vbblack、red、green、yellow、blue、magenta(洋红,像紫色)、cyan(青色，像浅绿)、white
borderstyle边框类型：vbBSNone 0没有边框或与边框相关的元素； vbFixedSingle 1固定单边框，可包含控制菜单栏、标题栏、最大、最小化按钮，只能用最大最小化按钮改变大小 vbSizable 2（默认）可调整的边框 vbFixedDouble 3可包含控制菜单框和标题栏，不包含最小、最大化按钮，不改大小。
Pr sub 对象_事件名称（） [注意FORM的对象名称始终为form,没有form2之类]
……
end sub
4.标准命名约定：
ado=ADO data chk=Check box cbo=combo box cmd=command button dlg=common dialog dir=directory list box drv=drive list box
backcolor:设置窗体的背景颜色，forecolor用于设置窗体显示文本或图形的前景颜色。在窗体中设置其背景色会檫除所有文本和图像，包括永久性图形。但不影响设置以后的文本输出和图形绘制。forecolor只影响以后绘制图形或打印输出。设置窗体中输出文本的颜色时，文本和窗体的颜色都必须使用单色。如果使用由多种颜色像素组合成的混合色，则会自动被替换为最接近的单色。
6.窗体属性：
name:不能包含标点符号和空格（窗体模块中可用ME引用当前窗体，在使用属性和方法时若省略对象名称则默认为当前窗体）
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
运行界面 (计算一元二次方程的实根）
第五章 常 用 控 件
5.1单选按钮和复选框形状控 件 5.2列表框和组合框 5.3 滚动条和Slide控件 5.4时钟 5.5 图片框和图像框 5.5 ProgressBar控件 5.7 UpDown控件 5.8 Animation控件 5.9 SSTab控件 5.10 鼠标器和键盘
Text1.ForeColor = vbRed End Sub
Private Sub ption4_Click() If Option4.Value Then _
Text1.ForeColor = vbBlue End Sub
复选框 （CheckBox）也 称作、选择框。 一组复选框控件 可以提供多个选 项 重要属性：
q = Sqr(d) / (2 * a) X1 = p + q ： X2 = p - q Else X1 = p ： X2 = p End If Else q = Sqr(-d) / (2 * a)
p = CInt(p * 100) / 100 : q= CInt(q * 100) / 100
X1 = p& "+" & q & "I " : X2 = p & "-" & q & "I" End if Text4.Text = X1 ： Text5.Text = X2 End sub
求阶乘1!+2!+3!+……+10!的和
Private Sub Command1_Click() p=1 For i = 1 To 10 p=p*i Sum = Sum + p Next i
Print "1!+2!+3!+……+10!="; Sum End Sub
Private Sub Command1_Click() b=1 :a=2 :i=1 Print "no."; i; "="; a; "/"; b For i = 2 To 20 a = a+b b = a-b Print "no."; i; "="; a; "/"; b Next i
Caption、 Vlalue、Style与 单选钮相同
复选框
Private Sub Check1_Click() If Check1.Value = vbChecked Then Text1.FontBold = True End Sub (错误的写法)
Private Sub Check2_Click() If Check2.Value = vbChecked Then
5.1 单选钮和复选框、框架
1单选钮 （OptionButton） 一组彼此相互排斥 的选项，任何时刻 用户只能从中选择 一个选项，实现一 种“单项选择”的 功能，被选中项目 左侧圆圈中会出现 一黑点。
单选按钮
Private SubOption3_Click() If Option3.Value Then _
End Sub
运行结果
Private Sub Command1_Click()
a = Val(Text1): b = Val(Text2): c = Val(Text3)
L = a + b <= c Or b + c <= a Or c + a <= b If L Then Text4 = "不能构成三角形" : Exit Sub If a <> b Or b <> c Or c <> a Then Text4 = "一般三角形“ If a = b Or b = c Or c = a Then Text4= "等腰三角形" If a = b And b = c And c = a Then Text4 = "等边三角形"
End Sub
例：输入三角形的三条边长，计算三 角形面积。
界 面
程序代码Байду номын сангаас
Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) L = A + B > C And B + C > A And C + A > B If L Then S = (A + B + C) / 2 Area = Sqr(S * (S - A) * (S - B) * (S - C)) Text4.Text = Area Else Text4.Text = "不能构成三角形“ End If
S = (a + b + c) / 2
Area = Sqr(S * (S - a) * (S - b) * (S - c))
Text4.Text = Area
End Sub
界面设计(计算一元二次方程的实根）
代码设计 (计算一元二次方程的根）
Private Sub Command1_Click() a = Val(Text1) b = Val(Text2) c = Val(Text3) d=b*b-4*a*c p = -b / (2 * a)
If d > 0 Then
r = Sqr(d) / (2 * a)
X1 = p + r
X2 = p – r
endif
If d = 0 Then X1 = p : X2 = p If d < 0 Then
q = Sqr(-d) / (2 * a) p = CInt(p * 100) / 100 q= CInt(q * 100) / 100 X1 = p& "+" & q & "I " X2 = p & "-" & q & "I" endif Text4.Text = X1 Text5.Text = X2 endsub
Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub
代码设计 方法二： (计算一元二次方程的根）
Private Sub Command1_Click() a = Val(Text1) b = Val(Text2) c = Val(Text3) d=b*b-4*a*c p = -b / (2 * a)
接下页：
If d >= 0 Then
If d > 0 Then