Transcript 授课4-VB开发应用基础知识(窗体、菜单及控件设置)

VB
开
发
基
础
知
识
授课4-VB开发应用基础知识
(窗体、菜单及控件设置)
4.1 选择类控件与框架
4.2 列表类控件
4.3 定时器
4.4 滚动条
4.5 图像框
4.6 图片框
4.7 “文本字体设置”的具体实现
结束
【任务（实验7） 】“文本字体设置”的具体实现
VB
开
发
基
础
知
识
一、 “文本字体设置”介绍
本实例是模拟Windows字体对话框程序对相关文本文字
进行设置，可以设置相关文字的字体、字形、字号、字效、
前景颜色、背景颜色等。
程序运行界面如图所示。
二、“文本字体设置”设计思路
VB
开
发
基
础
知
识
“文本字体设置”程序的设计思路是：
1. 在窗体上添加一个列表框，来显示各种屏幕字体，供用户
选择；
2. 在窗体上添加一个组合框，来显示各种字形，供用户选择；
3. 创建一个单选按钮控件数组来显示各种字号，供用户选择；
4. 创建一个复选框控件数组来显示各种效果，供用户选择；
创建一个滚动条控件数组来显示红、绿、蓝三种基色，通过
用户选择设置三种基色值，再利用RGB函数来调和生成
前景色；
二、 “文本字体设置”设计思路
VB
开
发
基
础
知
识
5. 再创建一个滚动条控件数组来显示红、绿、蓝三种基色，
通过用户选择设置三种基色值，用RGB函数来调和生成
背景色；；
6. 在窗体上添加一个标签，来显示用户设置后的文字效果；
7. 用七个框架对列表框、组合框、单选按钮控件数组、复选
框控件数组、滚动条控件数组、标签等控件进行分组；
分别对列表框、组合框、单选按钮控件数组、复选框控件数
组、滚动条控件数组等控件编写单击事件过程，来具体
实现文字效果的设置。
4.1 选择类控件与框架
VB
开
发
基
础
知
识
在VB编程中，我们经常要用到需要选择的情
况：从几个中选择一个或多个。这时，我们可以
采用VB中的内部控件：选择类控件。
4.1.1 单选按钮
4.1.2 复选框
4.1.3 框架
4.1.1 单选按钮
VB
开
发
基
础
知
识
 单选按钮控件（OptionBotton）用于在多种选择
中由用户选择其中一项的情况。 。
 单选按钮必须成组出现，用户在一组单选按钮中
必须并且只能选择一项。
 当某一项被选定后，其左边的圆圈中出现一个黑
点。
1. 作用: 多选一(放在窗体上、或放在其他容器中)
4.1.1 单选按钮
VB
开
发
基
础
知
识
2. 属性
(1) Value——单选按钮是否被选中
True—选中
False—未选中
(2) Alignment——设置标题和按钮的显示位置
0：控件钮在左边，标题显示在右边。
1：控件钮在右边，标题显示在左边。
(3) Style——控制外观
0: 呈现为旁边带有文本的圆形按钮。
1:显示为方形按钮，有按下和抬起两种状态。
4.1.1 单选按钮
VB
开
发
基
础
知
识
3. 事件
Click事件—使选项按钮从未选择变成选择状态时
(单击鼠标改变、代码改变 )
 当运行时单击单选按钮
 在代码中改变单选按钮的Value值(从False改为
True)，将触发Click事件。
VB
开
发
基
础
知
识
例：设计如下图所示的界面，用选项按钮设置文本
框的文字颜色和背景颜色。
Value为True的两种显示方式
Option4
Option5
Option1
Option2
Option3
Option6
Style为0
Style为1
VB
开
发
基
础
知
识
Private Sub Option1_Click()
Text1.ForeColor = vbBlack
End Sub
Private Sub Option2_Click()
Text1.ForeColor = vbYellow
End Sub
Private Sub Option3_Click()
Text1.ForeColor = vbRed
End Sub
Private Sub Option4_Click()
Text1.BackColor = vbWhite
End Sub
Private Sub Option5_Click()
Text1.BackColor = vbGreen
End Sub
Private Sub Option6_Click()
Text1.BackColor = vbBlue
End Sub
4.1.2 复选框
VB
开
发
基
础
知
识
 复选框控件（CheckBox）的主要功能是从用户
处获取“是”或“否”的信息。利用复选框可以
列出可供用户选择的多个选择项，用户根据需要
选择其中的一项或多项，也可以一项也不选。
 复选框与单选按钮在使用方面的主要区别：在一
组单选按钮中只能选中一项；而在复选框中，可
以同时选中多个选项。
1. 作用
多选一或多选多(放在窗体上或其他容器中)
4.1.2 复选框
VB
开
发
基
础
知
识
2. 属性
(1) Value
0—未选中
1—选中
2—灰度状态(不可用)
(2) Alignment属性: 设置标题和按钮的显示位置。
0：控件钮在左边，标题显示在右边。
1：控件钮在右边，标题显示在左边。
(3) Style: 控制外观
0: 呈现为旁边带有小方框的默认状态。
1:显示为方形按钮，有按下和抬起两种状态。
3. 事件
Click事件
VB
例:设计界面如下图所示，用复选框设置文本框的
文字样式与效果。
开
发
基
础
知
识
Check1 Check2 Check3
Check4
VB
开
发
基
础
知
识
Private Sub Check1_Click()
Text1.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Text1.FontItalic = Check2.Value
End Sub
Private Sub Check3_Click()
Text1.FontStrikethru = Check3.Value
End Sub
Private Sub Check4_Click()
Text1.FontUnderline = Check4.Value
End Sub
4.1.3 框架
VB
开
发
基
础
知
识
 单选按钮的一个特点是当选定其中的一个，其余
会自动关闭。当需要在同一个窗体中建立几组相
互独立的单选按钮时，就需要用框架(Frame)将
每一组单选按钮框起来，这样在一个框架内的单
选按钮为一组。另外，对于其他类型的控件用框
架框起来，可提供视觉上的区分等。
 框架控件(Frame)是左上角有标题文字的方框,它
的主要作用是对窗体上的控件进行编组分类，使
窗体上的内容更有条理。
 当用框架设置控件组时，应先在窗体上放置框架
控件，再在框架内放置其他控件。
4.1.3 框架
VB
开
发
基
础
知
识
1．常用属性
（1）Caption属性
由Caption属性设定框架上的标题名称。
（2）Enabled属性
False：标题呈灰色，不允许对框架内的对象进行操作。
True：框架内的对象是“活动”的，可以对框架内的对
象进行操作。
（3）Visible属性
True：框架及其控件可见；
False：框架及其控件被隐含起来。
4.1.3 框架
VB
开
发
基
础
知
识
2．常用事件
框架可以响应Click和DbClick事件。但是，在
应用程序中一般不需要编写有关框架的事件过程。
例：选择类控件与框架的综合应用
4.1.3 框架
VB
开
发
基
础
知
识
设
caption
为字体
框架
需要选定多个单
选按钮，用框架
分组
VB
Private Sub Form_Load()
Option1.Value = True
Option4.Value = True
Option7.Value = True
开Text1.Font.Name = "宋体"
发Text1.ForeColor = RGB(0, 0, 255)
基End Sub
础Private Sub Command3_Click()
知Text1.Text = LCase(Text1.Text)
识End Sub
Private Sub Command4_Click()
Text1.Text = UCase(Text1.Text)
End Sub
Private Sub Command1_Click()
If Option1.Value = True Then
Text1.Font.Name = "宋体"
End If
……
If Option7.Value = True Then
Text1.ForeColor = vbBlue
End If
……
If Check1.Value = vbChecked Then
Text1.Font.Bold = True
Else
Text1.Font.Bold = False
End If
……
If Option4.Value = True Then
Text1.Font.Size = "16"
End If
……
End Sub
把控件放在框架内的方法
VB
开
发
基
础
知
识
1.先建好框架,再在框架内建立其他控件;
2.把已经有的控件拖放到框架内，方法：


不能直接拖放
把控件剪切到剪贴板上，再选中框架粘贴。
VB
开
发
基
础
知
识
4.2 列表类控件
 列表框和组合框都是VB工具箱中的标准控件，
它们都能为用户提供若干个选项，供用户任意选
择。
 两种控件的特点是为用户提供大量的选项，且又
占用很少的屏幕空间，操作简单方便。
 4.2.1 列表框
 4.2.2 组合框
4.2.1 列表框
VB
1. 作用:提供选项列表、内容多时自动出现滚动条
开 2.属性
发
List—列表内容。 设计时: 用Ctrl+换行; 运行时:
基 List(i)表示第i项
础
知
识
设置List属性
运行时列表框外观
4.2.1 列表框
VB
开
发
基
础
知
识
Style—外形(常规形式、复选框形式)
Columns—列表形式
0:垂直单列、1:水平单列、>1:水平多列
Text—只读、运行期用，获取当前选择项目的值
ListIndex—运行期用，当前选定项目的索引(0…
如果未选定项目，则 ListIndex 值为 -1
ListCount—列表部分项目的总个数
Sorted—元素是否自动按字母顺序排序
Selected—运行期用，用于选择某项
如List1.Selected(3)=True 选择第4项
4.2.1 列表框
VB
开
发
基
础
知
识
MultiSelect:
0—缺省值，不允许复选。
1—鼠标单击、按空格键在列表中选择或取消选择
2 —按下 Shift并单击鼠标或按下 Shift 以及一个箭
头键将在以前选中项的基础上扩展选择到当前选
中项。按下 Ctrl 并单击鼠标在列表中选中或取消
选中项。
4.2.1 列表框
VB
开
发
基 List1
础
知
识
列表框各主要属性的值：
List1.ListIndex = 3 (下标从0开
始的)
List1. ListCount = 5
List1. Selected(3) = True，其余
为False。
List1. Sorted = False，没有排序。
List1. Text 为 “cox” ，
与List1. List(List1.
ListIndex)相等
4.2.1 列表框
VB
开
发
基
础
知
识
3. 方法
（1）AddItem—向列表框中添加新的项目
<对象名>.AddItem <项目>[,<索引>]
若省略“索引”参数，则自动在最后一个表项的后
面添加。
例：在列表框List1的第11个位置后插入“中国”，
可以采用：
List1.AddItem "中国", 11
4.2.1 列表框
VB
开
发
基
础
知
识
（2）RemoveItem方法——用来删除一个(index)列
表项。
语句形式如下：
对象.RemoveItem index
（3）Clear方法——用于清除列表框中所有的列表
项。
语句形式如下：
对象.Clear
操作实例4-3
VB
开
发
基
础
知
识
操作实例4-3
VB
开
发
基
础
知
识
Private Sub Form_Load()
ReDim a(6) As String
List1.AddItem "田径"
List1.AddItem "游泳 "
List1.AddItem "体操 "
List1.AddItem "举重 "
List1.AddItem "足球 "
List1.AddItem "武术 "
Private Sub command1_Click()
Dim i As Integer
List2.Clear
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
List2.AddItem List1.List(i) & a(i)
End If
a(0) = "--体育之源，运动之母" Next i
a(1) = "--搏击风浪。。。 "
End Sub
a(2) = "--体育与艺术。。。 "
a(3) = "--力量与美的展示"
a(4) = "--集体的。。。 "
a(5) = "--民族。。。 "
End Sub
例：设计如下图所示的界面，左列表框列出了某数
据表格的各列(字段)名称。
VB
开
发
基
础
知
识
List1
List2
将左列表框中选择的书名移动到右列表框中
将右列表框中选择的书名移动到左列表框中
将左列表框中的所有书名移动到右列表框中
将右列表框中的所有书名移动到左列表框中
VB
开
发
基
础
知
识
(1) 将左列表框中选择的字段移动到右列表框中
Private Sub Command1_Click()
If List1.ListCount = 0 Then
MsgBox "列表中已没有可选的字段", , "注意"
Exit Sub
End If
If List1.ListIndex >= 0 Then
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
Else
MsgBox "请先在列表中选择某字段", , "注意"
End If
End Sub
VB
开
发
基
础
知
识
(2) 将右列表框中选择的字段移动到左列表框中。
Private Sub Command2_Click()
If List2.ListCount = 0 Then
MsgBox "列表中已没有可选的字段", , "注意"
Exit Sub
End If
If List2.ListIndex >= 0 Then
List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex
Else
MsgBox "请先在列表中选择某字段", , "注意"
End If
End Sub
VB
开
发
基
础
知
识
(3) 将左列表框中的所有字段移动到右列表框中
Private Sub Command3_Click()
For i = 0 To List1.ListCount - 1
List1.Selected(0) = True
List2.AddItem List1.Text
List1.RemoveItem 0
Next i
End Sub
(4) 将右列表框中的所有字段移动到左侧列表框中
Private Sub Command4_Click()
For i = 0 To List2.ListCount - 1
List2.Selected(0) = True
List1.AddItem List2.Text
List2.RemoveItem 0
Next i
End Sub
4.2.2 组合框
VB
开
发
基
础
知
识
组合框（ComboBox）是另一种特殊的列表
框，它是文本框和列表框的组合，所以同时兼具
文本框的键盘输入及列表框的鼠标选取两种功能，
应用十分广泛。
4.2.2 组合框
VB
开
发
基
础
知
识
1. 作用: 提供列表(可折叠)、文本输入
2. 属性
List—列表内容(Ctrl+Enter换行)
Style—外形
0—下拉组合框(折叠)
1—简单组合框(不折叠)
2—下拉列表框(不能修改Text属性)
4.2.2 组合框
VB
开
发
基
础
知
识
类型
输入
Style
下拉式组合框
0
能
简单组合框
1
能
下拉式列表框
2
不能
Combo1
下拉式组合框
简单组合框
下拉式列表框
4.2.2 组合框
VB
开
发
基
础
知
识
Text—文本框内容
ListIndex—运行期用，当前选定项目的索引
索引从0开始
ListCount—列表部分项目的总个数
Sorted—元素是否自动按顺序排序
4.2.2 组合框
VB
开
发
基
础
知
识
3. 事件
组合框的事件与Style属性有关。
Style为0时: 响应Click、Change、DropDown事件
Style为1时: 响应Click、DblClick、Change事件
Style为2时: 响应Click、DropDown事件
4.2.2 组合框
VB
开
发
基
础
知
识
4. 方法
AddItem: 向组合框中添加新的项目
<对象名>.AddItem <项目>[,<索引>]
RemoveItem: 从组合框中移除项目
<对象名>.RemoveItem <索引>
Clear: 清除组合框中的所有项目
<对象名>.Clear
VB
例:在窗体上放4个组合框，用于选择微机配置，包
括选择机型、CPU主频、硬盘、内存。运行时，
在选择了各项内容之后，单击“确定”按钮显示
所选择的机器配置。
开
发
基
础
知
识
Style=1
Style=2
Style=2
Style=0
Private Sub Form_Load()
Combo1.Text = Combo1.List(0)
VB
开
发
基
础
知
识
Combo2.Text = Combo2.List(0)
Combo3.Text = Combo3.List(0)
Combo4.Text = Combo4.List(0)
End Sub
Private Sub Command1_Click()
Picture1.Cls
Picture1.Print "您选择的配置是:"
Picture1.Print "机型:"; Combo1.Text
Picture1.Print "CPU:"; Combo2.Text
Picture1.Print "硬盘:"; Combo3.Text
Picture1.Print "内存:"; Combo4.Text
End Sub
VB
开
发
基
础
知
识
Private Sub Form_Load()
Combo1.AddItem "宋体"
Combo1.AddItem "仿宋_GB2312"
Combo1.AddItem "楷体_GB2312"
Combo1.AddItem "黑体"
End Sub
Private Sub Combo1_click()
Text1.FontName = Combo1.Text
End Sub
4.3 定时器
VB
开
发
基
础
知
识
Timer控件响应时间的流逝。它们独立于用户，
编程后可用来在一定的时间间隔内执行操作。此
控件的一个一般用处是检查系统时钟，判断是否
该执行某项任务。对于其它后台处理，Timer 控
件也非常有用。
4.3.1 常用属性
VB
开
发
基
础
知
识
（1）Interval属性
每个Timer控件都有Interval属性，指定定时器事件之间
的毫秒数。除非禁止此属性，否则定时器在大致相等的
时间间隔内不断接受事件（称作定时器事件会更贴切）。
单位：ms(0.001s)，0.5秒是500。
（2）Enabled属性
若希望窗体一加载定时器就开始工作，应将此属性设置为
True，否则，保持此属性为False。有时可能选择由外部
事件（例如单击命令按钮）启动定时器操作。
True：有效计时
False：停止时钟工作
4.3.2 事件
VB
开
发
基
础
知
识
Timer事件: 每当计时时间到时产生Timer事件
定时器控件只有一个Timer事件。也就是说，定时
器控件对象在间隔了一个Interval设定时间后，
触发一次Timer事件。
注意：
注: 一个计时器的最大计时时间为65535毫秒 ,
等于 1 分钟多一些。如果最大计时时间大于该值，
可以使用多个计时器。
例:在窗体上放置一个红色圆。
VB
开
发
基
础
知
识
单击“增大”按钮每隔1秒直径自动增大200Twips；
单击“缩小”按钮每隔1秒直径自动缩小200Twips；
单击“停止”按钮停止增大或缩小。
Shape1
Timer1
Cmd1
Cmd2
Cmd3
Timer1属性: Enabled—False Interval—1000
Dim Flag As Integer
Private Sub Cmd1_Click()
VB
开
发
基
础
知
识
Timer1.Enabled = True
Flag = 1
End Sub
Private Sub Cmd2_Click()
Timer1.Enabled = True
Flag = 0
End Sub
Private Sub Cmd3_Click()
Timer1.Enabled = False
End Sub
VB
开
发
基
础
知
识
Private Sub Timer1_Timer()
If Flag = 0 Then
If Shape1.Width<200 Or Shape1.Height<200 Then
MsgBox "不能再缩小", , "注意"
Timer1.Enabled = False
Exit Sub
' 结束本事件过程
End If
Shape1.Width = Shape1.Width - 200
Shape1.Height = Shape1.Height - 200
Else
Shape1.Width = Shape1.Width + 200
Shape1.Height = Shape1.Height + 200
End If
End Sub
例如：设计倒计时程序。界面设计如下图所示。
VB
开
发
基
础
知
识
代码：
VB
开
发
基
础
知
识
Dim h As Integer, m As Integer, s As Integer
Private Sub Command1_Click()
Label1.Caption = ""
If Text1 = "" Then
MsgBox "请先输入定时时间"
Text1.SetFocus
Exit Sub
Private Sub Command2_Click()
End If
Timer1.Enabled = False
Timer1.Enabled = True
m = Val(Text1)
End Sub
s = 60
End Sub
代码：
VB
开
发
基
础
知
识
Private Sub Form_Load()
Command1.Caption = "开始"
Command2.Caption = "停止"
Timer1.Interval = 400
Timer1.Enabled = False
Label1.Caption = ""
End Sub
Private Sub Timer1_Timer()
s=s-1
If s <= 0 Then
m=m–1
s = 59
If m = 0 Then
Label1.Caption = ""
MsgBox "定时时间到！"
Timer1.Enabled = False
Exit Sub
End If
End If
Label1.Caption = m - 1 & " 分 "
&s&"秒"
End Sub
4.4 滚动条
VB
开
发
基
础
知
识
在VB工具箱中,有两个滚动条控件Hscroll和
Vscroll，它们除了类型名不同、放置位置不同
外，其他都一样。
作用：它是为不能自动支持滚动的应用程序和控
件提供滚动功能，也可作为数据输入的工具。
滚动箭头
滚动块
滚动箭头
4.4.1 常用属性
VB
开
发
基
础
知
识
（1）Max属性和Min属性
这两个属性用来设置滚动条所能代表的最大值和最小值.。
Max属性的默认值为32767，Min属性的默认值为0。
（2）Value属性
Value 属性（缺省值为 0）是一个整数，它对应于滚动
框在滚动条中的位置。当滚动框位置在最小值时，它将移动
到滚动条的最左端位置（水平滚动条）或顶端位置（垂直滚
动条）。当滚动框在最大值时，它将移动到滚动条的最右端
或底端位置。
（3）SmallChange属性
最小变动值，单击箭头时移动的增量值。
（4）LargeChange属性
最大变动值，单击空白处时移动的增量值。
VB
开
发
基
础
知
识
垂
直
滚
动
条
水
平
滚
动
条
SmallChange
Min
Value Max SmallChange
LargeChange LargeChange
Max：最大值
-32 768~32 767
Min：最小值
-32 768~32 767
SmallChange 最小变动值，单击箭头时移动的增量值。
LargeChange 最大变动值，单击空白处时移动的增量值。
Value
滑块所处位置所代表的值。
4.4.2 常用事件
VB
开
发
基
础
知
识
滚动条最常用的事件是Scroll和Change事件。
（1）Scroll事件
在滚动条控件的滑块被拖动的过程中，会连续
触发多个Scroll事件。在单击滚动箭头或滚动条
时不发生。
（2）Change事件
当滚动条控件滑块所处位置发生变化引起
Value属性值改变时触发Change事件。
例：显示滚动条滑块当前位置所代表的值和改
VB
开
发
基
础
知
识
变文本字体大小。
.
VB
开
发
基
础
知
识
Private Sub Form_Load()
HScroll1.Min = 0
HScroll1.Max = 100
Label1.Caption = "滚动条当前值为：" & HScroll1.Value
End Sub
Private Sub HScroll1_Change()
Label1.Caption = "滚动条当前值为：" & HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
Label1.Caption = "滚动条正在拖动中......："
Text1.FontSize = HScroll1.Value
End Sub
作业：设计一个调色板应用程序如下图所示，使用三个
VB
开
发
基
础
知
识
滚动条作为三种基本颜色的输入工具，合成的颜色显示
在文本框Text1中，当完成调色以后，用设置“前景颜色”
和“设置背景颜色”设置Text2的颜色。
用户界面
运行结果
4.5 图像框
VB
开
发
基
础
知
识
图像框（Image）和图片框（PictureBox），在程
序设计中可用于美化程序界面
可用于接受或输出图像图形数据，显示的图像可
以是位图文件（.bmp）、图标文件（. ico）、栅
图形文件（.gif）和静态图像文件（.jpg或.jpeg）
等。
图像框由控件工具箱中拖放到窗体上后，其外观
是一个虚线框。
1. 作用:显示图像
4.5 图像框
VB
开
发
基
础
知
识
2.常用属性
设置Picture属性
如何显示图像:在属性窗口中设置
对象名.Picture=LoadPicture("图形文件名")
如何清除图像
在属性窗口中删除Picture属性内容
对象名.Picture=LoadPicture()
设 Stretch属性（特点）
设 Stretch=False： 表示控件要调整大小与图形适合；
设 Stretch=True：图形要调整大小以便与控件相适合:
4.5 图像框
VB
开
发
基
础
知
识
3.事件
图像框的常用方法有Move和Refresh，其常
用事件与窗体基本相同。
4.6 图片框
VB
开
发
基
础
知
识
 和图像框相比，图片框象除了可以接受和输出
一般图形以外，还可用于创建动画图形
 图片框对象支持Print方法，可以在对象中输
出文本
 和窗体对象一样，图片框也属于容器对象，因
此在对象中还可以放置其它控件对象。
 如果控件不足以显示整副图像，则裁剪图像以
适应控件的大小。
1.作用

作为控件的容器；显示文字或图形。

显示图像
4.6 图片框
VB
开
发
基
础
知
识
2.常用属性
如何显示图像: 设置Picture属性
在属性窗口中设置
对象名.Picture=LoadPicture("图形文件名")
如何清除图像
在属性窗口中删除Picture属性内容
对象名.Picture=LoadPicture() (也清除文字)
打印与清除文字
打印:对象名.Print ……
清除:对象名.Cls
特点：自动调整控件大小以适应图像:
AutoSize=True
不能延伸图形以适应控件的大小。
4.6 图片框
VB
开
发
基
础
知
识
3.事件和方法
除Move和Refresh方法以外，还支持Print
方法，有关该方法的调用可参考窗体的同名方
法。图片框的常用事件与窗体基本相同。
图片框与图像框的区别？
VB
开
发
基
础
知
识
图片框和图像框是Visual Basic中用来显示图形的两种
基本控件，用于在窗体的指定位置显示图形信息。图片
框与图像框的用法基本相同，但有以下区别：
（1）图片框是“容器”，可以作为父控件，而图像框不
能作为父控件。也就是说，在图片框中可以包含其他控
件，而其他控件不能“属于”一个图像框。
（2）图片框可以通过Print方法接收文本，并可接收由像
素组成的图形，而图像框不能接收用Print方法输入的信
息，也不能用绘图方法在图像框上绘制图形。
（3）图像框比图片框占用的内存少，显示速度快。在用
图片框和图像框都能满足需要的情况下，应优先考虑用
图像框。
4.7 “文本字体设置”的具体实现
VB
开
发
基
础
知
识
 教材P110
 4.5.1 界面设计和属性设置
 4.5.2 代码编写
界面设计和属性设置
VB
开
发
基
础
知
识
 1.界面设计
 “文本字体设置”程序的界面上需要添加的控件
见图所示：
VB
开
发
基
础
知
识
 2.属性设置
代码编写
VB
开
发
基
础
知
识
 代码具体编写 实例。
小结
VB
开
发
基
础
知
识
4.1 选择类控件与框架
4.1.1 单选按钮
1．常用属性
（1）Caption属性。
（2）Value属性。
（3）Alignment属性。
2．常用事件 ：单选按钮使用最多的是Click事件。
4.1.2 复选框
4.1.3 框架
4.2 列表类控件
 4.2.1 列表框
 4.2.2 组合框
小结
VB
开
发
基
础
知
识
4.3 定时器
4.3.1 常用属性
4.3.2 事件
4.4 滚动条
4.4.1 常用属性
（1）Max属性和Min属性
（2）Value属性
（3）SmallChange属性
（4）LargeChange属性
4.4.2 常用事件
滚动条最常用的事件是Scroll和Change事件。
小结
VB
开
发
基
础
知
识
4.5 图像框
4.5.1 常用属性
4.5.2 事件
4.6 图片框
4.6.1 常用属性
4.6.2 常用事件
作业：
VB
开
发
基
础
知
识
 完成【任务（实验7） 】“文本字体设置”的具体
实现。
VB
小
结
开
发 常用基本控件
基
础
知Label控件通常用于为其他界面控件作提示描述。
Label控件和TextBox控件都可以用于显示文字，但前者不能进行编辑，后者可以。
PictureBox控件和Image控件都用于显示图片，通过属性Picture来设置图片。
滚动条可以用来输入介于某个区间的数值，即Min属性和Max属性之间的整数。
识滚动条有两个重要的事件：Change事件和Scroll事件。
通过任意方式造成文本框Text属性的变化就会引发TextBox控件的Change事件。
PictureBox控件比Image控件的功能强大，它可以做为其它控件的容器。
利用TextBox控件的SelStart、SelLength和SelText属性可以指定光标插入点的
PictureBox控件的AutoSize属性可以使控件尺寸适应图片尺寸，Image控件的
Timer控件可以每隔指定的时间间隔就自动产生一个定时事件（Timer事件），它
位置，选取一段连续的文本，或在插入点所在位置粘贴指定文本。
Stretch属性可以使图片尺寸适应控件尺寸。
在运行时不可见。
按钮可以有文字风格，图形风格或两者相结合的风格。按钮的Caption属性中利
用“&”符号可以指定快捷访问键。
选中按钮会发生Click事件。Default和Cancel属性可以将命令按钮设置为窗体的
缺省命令按钮和缺省取消按钮。