《Visual Basic程序设计案例教程》课件第6章

第6章常用控件

6.1单选框、复选框和Frame控件6.2滚动条6.3列表框和组合框6.4计时器6.5图像框和图片框习题6.1单选框、复选框和Frame控件案例1利用单选框和复选框设置文本的字体、颜色

1．学习目标设计一个小型编辑器，用户可以在文本框中输入一段文字，单击单选框和复选框，可以改变文本的字体、字型和颜色。通过本案例的学习，掌握单选框(OptionButton)和复选框(CheckBox)的Value、Caption、BackColor、Visible等属性和Click事件的用法。

2．相关知识

1)单选框和复选框的区别单选框(OptionButton)和复选框(CheckBox)是在设计用户界面时，常用于选择的控件。单选框也称为单选按钮，利用OptionButton控件所制作的选项只可单选，即对于同一组的多个单选框，VB规定一次只能选择其中之一，这是单选框与复选框的主要区别，也是单选框名称的由来。而利用CheckBox控件则可制作出供使用者进行多项选择的选项，即如果有多个复选框，用户可以任意选择它们的状态组合，且每个复选框都是独立的、互不影响的。单击复选框时，若框里出现一个选中标志“√”，则表明该项被选中；再单击它，则标记消失，表示已取消选中操作，如图6.1所示。图6.1单选框和复选框

2)单选框和复选框的常见属性前面介绍的大多数属性都适用于单选框和复选框，如Caption、Name、BackColor、ForeColor、Picture、Height、Width、Enabled、Visible、Font等。复选框和单选框常用Value属性返回或设置对象的状态，即控件是否被选中。复选框的Value属性可以设置为0、1或2(0表示复选框未被选中，1表示复选框被选中，2表示该复选框无效(呈灰色))；单选框的Value属性可设置为True或False，True表示该对象被选中，False则相反。

3．程序实现

1)界面设计初始界面如图6.2所示。

2)属性设置属性设置如表6.1所示。设置属性后的界面如图6.3所示。图6.2初始界面表6.1属性设置图6.3设置属性后的界面

3)编写代码代码编写如下：

PrivateSubCommand1_Click()

Image1.Visible=False

Command1.Visible=False

Command2.Visible=False

Text1.Visible=True

Option1.Visible=True

Option2.Visible=True

Check1.Visible=True

Check2.Visible=True

EndSub

PrivateSubCommand2_Click()

End

EndSub若选中复选框1使文本变成斜体，则Text1的FontItalic属性设为True；若选中复选框2使文本变成红色，则设置Text1的前景色为红色。代码如下：

PrivateSubCheck1_Click()

IfCheck1.Value=1Then

Text1.FontItalic=True

Else

Text1.FontItalic=False

EndIfEndSub

PrivateSubCheck2_Click()

IfCheck2.Value=1Then

Text1.ForeColor=vbRed

Else

Text1.ForeColor=vbBlack

EndIf

EndSub单选框决定文本的字体是宋体还是隶书，如果选中单选框1，则文本字体为宋体；若选中单选框2，则文本字体为隶书。代码如下：

PrivateSubOption1_Click()

Text1.FontName="宋体"

EndSub

PrivateSubOption2_Click()

Text1.FontName="隶书"

EndSub运行程序，结果如图6.4所示。图6.4复选框和单选框

4．思考在本案例中，若增加一个复选框Check3，则

(1)怎样设置属性，使得该复选框上显示“粗体”？

(2)怎样增加代码，使得选中复选框Check3后，文本框中的文本变成粗体?案例2利用Frame控件将单选按钮分组

1．学习目标将单选按钮“宋体”和“黑体”分成“字体”组，将单选按钮“10号”和“14号”分成“字号”组，使得可以从每组中任选其中一个单选按钮。通过本案例的学习，掌握框架(Frame)的Caption属性和利用Frame控件将单选按钮分组的方法。

2．相关知识框架(Frame)控件为控件容器，可以将多种不同类型的控件按不同的分组进行存放，以方便管理和设定控件。其属性与设定方法多半都与前面介绍过的相同，包括Caption、Name、BackColor、ForeColor、Picture、Height、Width、Enabled、Visible、Font等属性。当需要在同一窗体内建立几组互相独立的单选按钮时，就需要用框架将每一组单选按钮框起来，从而将OptionButton控件分成几组。注意：为了将控件分组，首先需要绘制Frame控件，然后绘制Frame里面的其他控件。

3．程序实现

1)界面设计初始界面如图6.5所示。

2)属性设置属性设置如表6.2所示。设置属性后的界面如图6.6所示。图6.5初始界面表6.2属性设置图6.6设置属性后的界面

3)编写代码代码编写如下：

PrivateSubForm_Load()

Option1.Value=True

Option3.Value=True

EndSub

PrivateSubOption1_Click()

Text1.FontName="华文行楷"

EndSub

PrivateSubOption2_Click()

Text1.FontName="楷体_GB2312"

EndSub

PrivateSubOption3_Click()

Text1.FontSize=16

EndSub

PrivateSubOption4_Click()

Text1.FontSize=20

EndSub运行程序，结果如图6.7所示。图6.7利用Frame控件将单选按钮分组6.2滚动条案例3利用滚动条控制窗体的背景色

1．学习目标利用滚动条控制窗体的背景色，使其随滚动条值的改变而改变。通过本案例的学习，掌握水平滚动条的Value、Max、Min等属性和Change事件的用法。

2．相关知识滚动条分为水平滚动条(HScrollBar)和垂直滚动条(VScrollBar)两种，其图标如图6.8所示。图6.8滚动条图标水平滚动条和垂直滚动条除方向不同外，其结构和操作方法都是相同的。滚动条的两端各有一个滚动箭头，在滚动箭头之间有一个滚动块，如图6.9所示。滚动块从一端移至另一端时，其Value属性值随之发生变化。水平滚动条最左端代表最小值，最右端代表最大值；而垂直滚动条最上端为最小值，最下端为最大值。滚动条的值由Min(最小)和Max(最大)两个属性设置，取值范围为－32768～32767。图6.9滚动条结构滚动条常用的属性有Value、LargeChange和SmallChange等。

(1) Value属性：该属性用来返回或设置滚动块的当前位置。缺省值为Min值，改变该属性则滚动块的位置随之发生变化。取值范围在Max值与Min值之间。

(2) LargeChange属性：该属性用来设置当用户单击滚动块和滚动箭头之间的区域时，Value属性值增加或减小的幅度。

(3) SmallChange属性：该属性用来设置当用户单击滚动箭头时，Value属性值的改变量。即每单击滚动箭头一次时，滚动块移动的步长。滚动条常见的事件有Change和Scroll。当在滚动条内拖动滚动块时，将产生Scroll事件，从而触发了一个Scroll事件过程。对Change事件而言，只有在滚动块位置改变后才触发一个Change事件过程。

3．程序实现

1)界面设计初始界面如图6.10所示。

2)属性设置属性设置如表6.3所示。设置属性后的界面如图6.11所示。图6.10初始界面表6.3属性设置图6.11设置属性后的界面

3)编写代码代码编写如下：

PrivateSubHScroll1_Change()

Label2.Caption=HScroll1.Value

Form1.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)

EndSub

PrivateSubHScroll2_Change()

Label4.Caption=HScroll2.Value

Form1.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)

EndSub

PrivateSubHScroll3_Change()

Label6.Caption=HScroll3.Value

Form1.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)

EndSub运行程序，结果如图6.12所示。图6.12利用滚动条控制窗体的背景色6.3列表框和组合框案例4利用列表框显示数据

1．学习目标利用列表框显示1到50之间能被6整除的自然数。通过本案例的学习，掌握列表框(ListBox)的Clear、AddItem等方法的使用。

2．相关知识列表框(ListBox)可以提供许多选项供用户选择。如果选项超过列表框的长度，VB会自动提供垂直滚动条。

1)列表框的常用属性

(1) ListCount属性：返回列表框中项目的个数。该属性为只读属性，只能在程序中引用。

(2)List属性：返回或设置列表框中包含的选项。该属性是一个一维字符串数组，每个数组元素的值对应列表框中一个项目的显示文字。

List()数组下标的下界为0，上界为ListCount－1。下标为0的元素对应列表框中第一个项目，依此类推。List属性既可以在设计时设置，也可以在程序中增减或引用。例如，List1.List(2)对应列表框中第三项的值。

List1.List(2)="课程VB"

(3) ListIndex属性：返回当前被选中项目的序号。如果第一个项目被选中，则ListIndex的值为0，依此类推；如果当前没有项目被选中，则ListIndex的值为－1。该属性只能在程序中设置或引用。

(4) MultiSelect属性：决定列表框是否支持多选。该属性只能在设计时设置。其中：

0－None：不允许多重选择，只能选择一项。

1－Simple：简单的多重选择。用鼠标单击或按空格键来选定或取消选定的一个选项。

2－Extended：扩展的多重选择。类似于Windows中选择文件夹中的多个文件，按住Shift键的同时单击鼠标，选择连续的多个项目；或者按住Ctrl键的同时单击鼠标，选择不连续的多个项目。

(5) SelCount属性：返回当前被选中项目的个数。该属性只能在程序中引用。

(6) Selected属性：返回一个项目是否被选中。该属性只能在程序中设置或引用。

Selected是一个逻辑型数组。数组元素值为True，表示相应的项目被选中；若为False，则表示未被选中。例如，List1.Selected(1)=True表示选中List1中的第二项。

(7) Sorted属性：决定列表框中的项目是否按字母顺序排序。如果Sorted为True，则项目按字母顺序递增排列；如果Sorted为False，则不排序(默认)。该属性只能在设计时设置，在运行时是只读的。

(8) Style属性：设置列表框的风格。该属性只能在设计时设置。其中：Stytle为0，表示是标准风格；Stytle为1，表示是复选框风格，在每个项目前增加一个复选框，以表示该项是否被选中。

(9) Text属性：返回或设置当前选项的文本内容。该属性只能在程序中设置或引用。

2)列表框的方法

(1) AddItem方法：向列表框中添加一个新项目。其语法格式为：列表框对象名.AddItem字符串表达式[，位置]说明：把字符串插入到列表框中指定的位置上(位置从0开始)，如果省略了第二个参数“位置”，则新项目被加到最后。

(2) RemoveItem方法：从列表框中删除指定位置上的项目。其语法格式为：列表框对象名 .RemoveItem位置

(3) Clear方法：清除列表框中所有项目。其语法格式为：列表框对象名 .Clear

3)列表框的常用事件列表框可触发的事件有Click、DblClick等。

3．程序实现

1)界面设计初始界面如图6.13所示。

2)属性设置属性设置如表6.4所示。设置属性后的界面如图6.14所示。图6.13初始界面表6.4属性设置图6.14设置属性后的界面

3)编写代码代码编写如下：

PrivateSubCommand1_Click()

DimnAsInteger

List1.Clear

Forn=1To50

IfnMod6=0ThenList1.AddItemStr(n)

Nextn

EndSub运行程序，结果如图6.15所示。图6.15利用列表框显示1到50之间能被6整除的自然数案例5列表框的添加、删除操作

1．学习目标利用列表框进行项目的添加、删除。通过本案例的学习，掌握列表框的ListCount、List、ListIndex等属性和RemoveItem方法的使用。

2．程序实现

1)界面设计初始界面如图6.16所示。图6.16初始界面

2)属性设置属性设置如表6.5所示。设置属性后的界面如图6.17所示。表6.5属性设置图6.17设置属性后的界面

3)编写代码代码编写如下：

PrivateSubForm_Load()

List1.AddItem"武汉"

List1.AddItem"桂林"

List1.AddItem"上海"

EndSub

PrivateSubCommand1_Click()

DimcityAsString,iAsInteger

city=Text1.Text

Ifcity=""ThenExitSub

Fori=0ToList1.ListCount－1 ‘ListCount属性返回列表框中项目的个数

Ifcity=List1.List(i)ThenExitSub '如果列表框中已有该项，则不添加

Nexti

List1.AddItemcity

Text1.Text=""

EndSub

PrivateSubCommand2_Click()

IfList1.ListIndex>-1Then

List1.RemoveItemList1.ListIndex

'ListIndex属性返回当前被选中项目的序号

EndIf

EndSub运行程序，结果如图6.18所示。图6.18利用列表框进行项目的添加、删除案例6利用列表框删除多项

1．学习目标从列表框中选择一个或多个项目进行删除操作。通过本案例的学习，掌握列表框的MultiSelect、SelCount、Selected等属性的用法。

2．程序实现

1)界面设计初始界面如图6.19所示。

2)属性设置属性设置如表6.6所示。设置属性后的界面如图6.20所示。图6.19初始界面表6.6属性设置图6.20设置属性后的界面

3)编写代码代码编写如下：

PrivateSubForm_Load()

List1.AddItem"湖北"

List1.AddItem"湖南"

List1.AddItem"北京"

List1.AddItem"天津"

List1.AddItem"重庆"

EndSub

PrivateSubCommand1_Click()

DimiAsInteger

IfList1.SelCount=1Then

'SelCount属性返回当前被选中项目的个数

List1.RemoveItemList1.ListIndex

'如果选择一项，则直接删除

ElseIfList1.SelCount>1Then

'如果选择项目多于一项，则用循环完成删除操作

Fori=List1.ListCount-1To0Step －1

'ListCount属性返回列表框中项目的个数

IfList1.Selected(i)=TrueThen '数组元素值为True，表示相应的项目被选中

List1.RemoveItemi

EndIf

Nexti

EndIf

EndSub运行程序，结果如图6.21所示。图6.21从列表框中选择一个或多个项目进行删除操作案例7利用组合框进行选择

1．学习目标利用组合框选择文化程度、业余爱好。通过本案例的学习，掌握组合框的Text属性、AddItem方法和KeyPress事件的用法。

2．相关知识组合框(ComboBox)是单独控件，可以看作是列表框和文本框组合而成的控件。组合框的常用属性、方法、事件与列表框和文本框基本相同。

1)组合框的常用属性

(1) Style属性：Style属性取值及含义如下。① Style属性值为0，即常量vbComboDropDown(下拉式组合框)。不操作时仅显示文本框及其右边的下拉箭头；执行时，用户可以直接在文本框中输入内容，也可以用鼠标单击文本框右边的下拉箭头打开列表框，从列表中选择，选中项的内容将显示在文本框中。②Style属性值为1，即常量vbComboDropSimple(简单组合框)。文本框右边没有下拉箭头，文本框和列表框一直显示在窗体上，列表框不能收起。用户可以在列表框中选择选项，也可以在文本框中直接输入。③  Style属性值为2，即常量vbComboDropList(下拉式列表框)。外观与下拉式组合框相似，区别是只能从列表框中进行选择，不能在文本框中输入。

(2)其他常用属性：对应于文本框，组合框有SelLength、SelStart、SelText、Text等属性；对应于列表框，组合框有ListIndex、Sorted、List、ListCount等属性。组合框无MultiSelect、SelCount、Selected等属性。

2)组合框的常用方法组合框的常用方法有AddItem、Clear、RemoveItem等。对于组合框来说，把用户在文本框部分输入的内容添加到列表框部分的语句格式为：组合框的对象名.AddItem组合框对象名.Text[，位置]

3)组合框的常用事件组合框的常用事件有Click、DblClick、KeyPress、Change等。

3．程序实现

1)界面设计初始界面如图6.22所示。

2)属性设置属性设置如表6.7所示。设置属性后的界面如图6.23所示。图6.22初始界面表6.7属性设置图6.23设置属性后的界面

3)编写代码代码编写如下：

PrivateSubForm_Load()

Combo1.AddItem"专科"

Combo1.AddItem"本科"

Combo1.AddItem"硕士"

Combo2.AddItem"文学"

Combo2.AddItem"体育"

Combo2.AddItem"旅游“

EndSub

PrivateSubCombo2_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then'KeyAscii=13表示按回车键

Combo2.AddItemCombo2.Text,0

'在组合框的文本框部分输入新的选项后按回车键，则新的选项添加到组合框中

EndIf

EndSub

PrivateSubCommand1_Click()

Label4.Caption="你的文化程度："+Combo1.Text

Label5.Caption="你的业余爱好："+Combo2.Text

EndSub运行程序，结果如图6.24所示。图6.24利用组合框选择文化程度、业余爱好6.4计时器案例8电子钟

1．学习目标利用计时器和标签控件设计电子钟。通过本案例的学习，掌握计时器的Interval属性和Timer事件的用法。

2．相关知识计时器(Timer)控件是利用系统内部的计时器计时的，它根据用户定制的时间间隔(Interval)触发计时器事件过程，即Timer控件可以有规律地每隔一段时间重复执行一次代码，其图标如图6.25所示。其缺省名为TimerX(X=1，2，3，…)。一般来说，只要跟时间有关的问题，就一定少不了计时器控件。建立计时器的操作十分简单，只要在工具箱中的计时器图标上双击，计时器就会被放置在窗体的正中央，其位置和大小不需要调整，因为它只有在设计阶段才出现在窗体上，运行后屏幕上并不显示。图6.25计时器图标

Timer有Name、Left、Top、Index、Enable、Tag及Interval等属性，其中最重要的是Interval(时间间隔)，它决定着系统多久触发一个计时器事件，以毫秒为单位，其取值范围为0～65535毫秒，因此最大的时间间隔不能超过65秒。如果将Interval设置为1000，则表示每1秒钟触发一个计时器事件；如果设置为0，则表示计时器被关闭，不产生计时器事件。计时器事件(Timer事件)是指在预定时间间隔过去之后，由Windows系统自动执行的Timer事件过程。该事件是系统内部所产生的动作，不是由用户引发的事件，因此计时器事件也称为系统事件。

3．程序实现

1)界面设计初始界面如图6.26所示。

2)属性设置属性设置如表6.8所示。设置属性后的界面如图6.27所示。图6.26初始界面表6.8属性设置图6.27设置属性后的界面

3)编写代码代码编写如下：

PrivateSubTimer1_Timer()

Label2.Caption=Now()'Now()返回系统日期和时间，格式为yyyy-mm-ddhh:mm:ss

EndSub运行程序，结果如图6.28所示。图6.28利用计时器和标签控件设计的电子钟

4．思考

(1)如果Timer1的Interval=2000，则运行结果是什么？

(2)如果不设置Timer1的Interval的值，即Timer1的Interval值为0，则运行结果是什么？案例9滚动字幕

1．学习目标设计滚动字幕，使滚动字幕内容“谁言寸草心，报得三春晖。”在窗体中从左向右反复地移动。通过本案例的学习，掌握计时器和标签的综合使用。

2．程序实现

1)界面设计初始界面如图6.29所示。

2)属性设置属性设置如表6.9所示。设置属性后的界面如图6.30所示。图6.29初始界面表6.9属性设置图6.30设置属性后的界面

3)编写代码代码编写如下：

PrivateSubTimer1_Timer()'Form1.ScaleWidth是Form1右下角的横坐标

IfLabel1.Left+Label1.Width>Form1.ScaleWidthThen

Label1.Left=Form1.ScaleLeft

'如果标签将要移出窗体Form1，则标签从最左开始往右移

'Form1.ScaleLeft是Form1左下角的横坐标

Else

Label1.MoveLabel1.Left+30'标签向右移

EndIf

EndSub运行程序，结果如图6.31所示。图6.31滚动字幕6.5图像框和图片框案例10图像框

1．学习目标利用计时器和图像框设计一个简单的动画。通过本案例的学习，掌握图像框的Picture、Visible等属性的用法。

2．相关知识图片类控件主要用于在窗体的指定位置显示图形信息，常见的有图像框(Image)和图片框(PictureBox)。图像框只用来显示图形，而图片框除可以显示图形以外，还可以作为其他控件的容器和显示以Print方法输出的文本。图像框与图片框的缺省名分别为ImageX(X为1，2，3，…)和PictureX。如果只单纯地显示图形，则一般采用图像框。用图像框显示图形时，占用的内存比图片框的少。图像框有Stretch(拉伸)属性，当将它设为True时，装入的图形可根据图像框的大小自动压缩或扩大；当将它设为False时，图像框会自动改变大小以适应图形大小。图像框及图片框的图形加载都是通过设置Picture属性来完成的。其设置方法与其他控件的相同，可通过属性表或设置代码来完成。设置Picture属性时，只有符合以下6种格式的图形文件才能被加载：① .bmp位图文件，即Windows的标准文件；② .gif文件，属“无损压缩”文件；③ .jpg文件，是JPEG压缩文件，属“有损压缩”文件；④ .wmf文件，是绘图命令构成的文件；⑤ .ico图标文件或 .cur指针文件；⑥ .dib文件，即位图文件。此外，图形的加载也可以通过剪贴板来完成，即先使用任意图形软件工具制作一个图形，然后利用剪贴板的“复制”、“粘贴”命令将图形插入到所需位置。利用LoadPicture函数加载图形的语句形式：

<对象名>.Picture=LoadPicture([Filename])其中，对象名可以是图像框、图片框、窗体的名称；Filename是一个字符串，为包括路径在内的图形文件名，当省略Filename时表示清除控件已装载的图形。语句功能：在运行时，通过引用LoadPicture函数加载指定文件的图片。例如：运行时，要将D盘pict文件夹中图形文件a.jpg内保存的图片显示于图像框Image1中，则应执行语句：

Image1.Picture=LoadPicture("D:\pict\a.jpg")清除所显示的图片，则应执行语句：

Image1.Picture=LoadPicture()注意：采用在属性表中设置Picture属性、利用剪贴板复制图形和使用LoadPicture函数加载这三种方法加载图形时，可根据实际应用的需要选用相应的方法。

3．程序实现

1)界面设计初始界面如图6.32所示。

2)属性设置属性设置如表6.10所示。设置属性后的界面如图6.33所示。图6.32初始界面表6.10属性设置图6.33设置属性后的界面

3)编写代码代码编写如下：

PrivateSubTimer1_Timer()

DimsAsInteger

s=Int(Rnd*3)+1'利用Rnd函数随机产生1、2、3

SelectCases

Case1

Image1.Visible=True

Image2.Visible=False

Image3.Visible=False

Case2

Image2.Visible=True

Image1.Visible=False

Image3.Visible=False

Case3

Image3.Visible=True

Image1.Visible=False

Image2.Visible=False

EndSelect

EndSub运行程序，结果如图6.34所示。图6.34利用计时器和图像框设计的简单动画案例11图片框

1．学习目标设计一个简单的“看图学英文”的少儿多媒体教学软件。通过本案例的学习，掌握图片框的Picture属性和MouseMove事件的用法。

2．相关知识图片框的功能要比图像框的完善些，它可显示图形及以Print方法输出的文本，还可以作为其他控件的容器。

1)图像的处理用图片框加载及清除图形的方法与用图像框的一样，都是通过Picture属性、剪贴板或LoadPicture()函数来完成的。但是，使用图片框加载的图形不能被压缩或放大，为了显示完整的图形，只能由AutoSize属性决定是否改变PictureBox控件的大小以显示图形的全部内容。该属性设置为True时，图片框自动改变大小以显示全部内容；为False(缺省值)时，保持图片框大小不变，超出图片框区域的部分图形将被裁剪掉。

2)文本的处理在图片框上输出文本可以使用剪贴板将其他文件中的文本传输过来或使用Print方法输出，Print方法的基本语法为：

[对象.]Print[文本][{；|，}]其中，“对象”一般指窗体、图片框或打印机；“文本”参数为字符串或数字表达式；分号表示将光标直接定位在最后打印字符之后；逗号表示将光标定位在下一个打印区的开始位置，每14列为一个打印区。如果“文本”参数后无符号，则光标定位在下一行。例如：

PrivateSubPicture1_Click()

Picture1.Print'输出一个空行

Picture1.Print"VISUALBASIC6.0"

Picture1.Print

Picture1.Pri