VISUAL BASIC标准控件课件

第8章VisualBasic标准控件

教学目的要求：

•掌握VB标准控件的常用属性、方法和事件

教学重点：

•标准控件的常用属性、方法和事件

教学难点：

事件的响应

教学方法：

大屏幕投影演示

时间安排:

6学时

控件的公共属性

控件有很多共同的属性。

1.Name属性

Name属性在代码中用于标识窗体、控件或数据访问对象

的名称，在运行时是只读的。

每当建立一个新控件时，VB为其建立一个缺省名称，该

名称由一个表示控件类型的标识符加上一个唯一的整数组

成。例如，第一个新的命令按钮名称是CommandL第二个

新的命令按钮名称是Command2,第一个新的标签名称是

Label1,而在窗体上创建的第三个文本框的名称是Text3。

控件的Name属性必须以一个字母开始，并且最长可达40

个字符。它可以包括字母、数字和下划线，但不能包括标

点符号或空格。为同类型的控件取相同的Name属性，可以

创建控件数组。

2.Caption属性

Caption属性用于确定对象的标题。对于窗体，该属性表

示要显示在标题栏中的文本。当窗体最小化时，该文本被显

示在窗体图标中。当创建一个新的对象时，缺省标题与缺省

的Name属性值相同，该缺省标题包括对象名和一个整数，

如Commandl或Forml。一般要对缺省的Caption属性进行修改

,以产生一个描述得更清楚的标题。

可以在Caption属性中为控件指定一个访问键。在设置

Caption属性时，可在要指定为访问键的字符前加一个

符号。运行时，同时按下Alt键和带下划线的字符相当于单

击相应的寺空件。

Label忘件i示题的大小没有限制。对于窗体和所有别的有

标题的控件，标题大小的限制是255个字符。

3.Enabled属性

该属性用来确定一个窗体或控件是否能够对用户产生

的事件作出响应。若将控件的Enabled属性设置为True（

缺省值），则控件有效，允许控件对事件作出响应；若控

件的Enabled属性设置为False,则控件无效，阻止控件对

事件作出响应。

运行时，可以根据应用程序的当前状态，决定使某些

控件无效或有效。将可视控件Enabled属性设置为False使

控件呈暗灰色显示。

4.Visible属性

该属性用来确定一个窗体或控件是否可见。若将控件的

Visible属性设置为True（缺值），则控件在运行时可见；若将控

件的Visible属性设置为False,则控件在运行时不可见。

对窗体用Show或Hide方法，分别和在代码中将窗体的

Visible属性设置为True或False的果是一样的。

5.Left、Top、Height、Width属性

Left>Top>Height和Width属性用于设置或返回控件的位

置或尺寸。其中Left属性表示控件内部的左边与它的容器的

左边之间的距离。Top属性表示控件的内顶部和它的容器的

顶边之间的距离：

对于窗体，Left、Top,Height和Width属性总以级为单位

来表示的；对于控件，它们的度量单位取决于它的容器的

坐标系统。

6.BackColor>ForeColor属性

BackColor属性用来返回或设置控件的背景颜色。ForeColor属性用来

返回或设置在控件里显示图片和文本时的前景颜色。

颜色的设置方法：

1）直接输入一个颜色值。

2）使用标准RGB颜色：使用调色板或在代码中使用RGB或QBColor

函数指定的颜色。

3）使用系统缺省颜色：使用对象浏览器中的对象库所列的系统颜色

常量指定的颜色。

对于所有的窗体和控件，BackColor属性的缺省设置值为由常量

vbWindowBackground定义的系统缺省颜色，而ForeColor属性的缺省设

置值为由常量vbWindowText定义的系统缺省颜色。

在Label和Shape控件中，如果BackStyle属性的设置值为0（透明），则

忽略BackColor属性。

若在Form对象或PictureBox控件中设置BackColor属性，则所有已经

打印的文本或用绘图方法绘制的图形都将被擦除掉。设置ForeColor属

性值不会影响已经打印的文本或绘制的图形。

7.FontName>FontSize>FontBold>Fontltalic>

FontStrikethru、FontUnderlineJM性

FontName：决定在控件中显示的文本所用的字体。

FontSize：决定在控件中显示的文本所用的字体大小。

FontBold：决定在控件中显示的文本是否为粗体样式。

Fontltalic：决定在控件中显示的文本是否为斜体样式。

FontStrikethru：决定在控件中显示的文本是否带有删除线。

FontUndedine：决定在控件中显示的文本是否带有下划线。

对于PictureBox控件及Form和Printer对象，设置这些属性

不会影响在控件或对象上已经打印的文本。对于其他控件，

这些属性的改变会在屏幕上立刻生效。

8.Font对象属性

Font对象在设计时不能直接使用。取而代之的是，在“属

性”窗口中通过选择控件的Font属性并单击属性按钮“…”

,在打开的对话框中直接设置其属性。在代码中，可以使用

以

下格式引用该对象的属性：

〈控件名＞.Fontv属性名〉

属性名，可以是：Name,返回或设置Font对象的字体名

称；Size,返回或设置Font对象使用的字体大小；Bold,返

回或设置Font对象的字形是粗体或非粗体；Italic,返回或设

置Font对象的字形为斜体或非斜体；Underline,返回或设置

Font对象的字形为带下划线或不带下划线；Strikethrough,

返回或设置Font对象的字形为有删除线或无删除线。

8.1命令按钮CommadButton屋性-CoMajadl

|CoBBaikdlCommandButton三］

VB中最常用的控件之一.常用来接受用户的操按字母序I按分类序I

（名称）Commandl

作信息，激发相应的事件过程，是用户与程序Appearance1-3D

BackColor□剑8000000F&

交互的最简便的方法CancelFalse

CaDtion&Computer计算机

CausesValidationTrue

DefaultFalse

DisabledPicture(None)

DownPicture(Hone)

命令按钮DragiconClone)

DragMode0-Manual

EnabledTrue

Font宋体

、、工程1-Foral(FOFB)

Height615

HelpContextID0

Index

Left960

MaskColor□axoocococo&

Mouseicon(None)

MousePointer0-Default

OLEDropMode0-None

Picture(None)

RightToLeftFalse

Style0-Standard

Tabindex0

TabStop__________True

ion

，设置对象的标题栏中或图标下面的文

主要属性

Name

Caption

Font

CanceledDefault

Enabled

Style

Picture

DownPicture和Disab

ValueComtnandl.Value=True自按钮的Click事件

Visible

事件

命令按钮可以接受许多事件,如:

,鼠标单击(Click)

•鼠标按下(MouseDown)

•鼠标抬起(MouseUp)

•键盘按下或松开事件(Load)

其中鼠标单击事件最常用.

方法

可以用SctFocus方法将焦点定位在指定的命令按钮上.

如cmdOk.SetFocus

表示将焦点定位在名称为cmdOk的命令按钮上.

8.2标签（Label）与文本框（Text）

一.标签（Label）

VB提供的标签控件只能显示文本，而不能对文本进行编辑。

标签通常用于标注本身具有Caption属性的控件。例如，可

以使用标签为文本框附加描述信息。标签也常用于输出。

i属t生

Caption属性：字符型。标签的标题。

Alignment属性：数值型。确定标签中标题的对齐方式，有以下设置值：

O-LeftJustify缺省值，标题从标签的左边开始显示。

1-RightJustif标题靠右显示。

2-Center标题居中显示。

AutoSize属性：布尔型。设置为True时，可根据标题自动调整标签的大小；

设置为False（缺省值）时，标签保持设计时定义的大小，太长的标题内容将不能显

示出来。

BackStyle属性：数值型。缺省值为1,标签不透明；设置为0时，标签透明。

Wordwrap属性：布尔型。设置为True时，标签将在垂直方向变化大小以与标

题相适应，此时，Autosize属性应设置为True；设置为False时（缺省值），标签不

能在垂直方向上扩展。

例-1□1x|

E工程1_Foral(Code),1□!x|

VisualBasicICOBBand4▼][Click

=3PrivateSubCommandl_C1ick0

设计界面;程序要计教藉..Labell.BorderStyle=1

------.........ACommandl.Visible=False

Command2.Visible=True

EndSub

PrivateSubCommand2_Click()

Label1.BorderStyle=0

Commandl.Visible=True

Command2.Visible=False

有边框EndSub

..-SA：.

PrivateSubCommand3JC1xck0

Labell.BackStyle=0

透明不透明Command3.Visible=False

Command4.Visible=True

运行界面EndSub

PrivateSubCommand4_Click()

Labell.BackStyle=1

Command3.Visible=True

Command4|Visible二False

EndSub

2n

VisualBasic

程序设计教程

代码

百的e无刈s

建明

2.事件

标签控件可以支持Click、DblClick等事件。

例

设窗体上有一个标签控件LabelL其AutoSize属性值为True,

双击该标签控件，则标签的标题字体增加10磅，可以通过

如下代码实现：

PrivateSubLabell_DblClick()

Labell.Fontsize=Labell.FontSize+10

EndSub

3.方法

标签控件支持Move方法，用于实现控件的移动。

Move方法的格式：

[v对象名>・]Move<left>[,[<top>][,[<width>][,<height>]]]

<left>：指示对象左边的水平坐标（x-轴）。

<top>：指示对象顶边的垂直坐标（y-轴）。

<width>：指示对象新的国度。、

<height>：指示对象新的高度。

例如，设窗体上有一个标签控件Labell,单击该标签控件，使该标签

控件向右移动50嶷，可以通过如下代码实现：

PrivateSubLabeli_Click（）

Labell.MoveLabell.Left+50

EndSub

二.文本框(TextBox)

TextBox

1.属性

1)Te：

字符串类型。返回或设置文本框中显示的内容。

例如：Text1.Text="欢迎使用VisualBasic”

2)MultiLine属性：

布尔型。当MultiLine属性为True时，文本框可以输入或显示多行文

本，且会在输入的内容超出文本框时自动换行。默认值为False。

在设计阶段，在属性窗口设置Text属性值时，通过按下Ctrl+Enter组

合键实现文本的换行。

在运行阶段，如果窗体上没有缺省按钮，则在多行文本框(TextBox)

控件中按下回车键可以把光标移动到下一行；如果有缺省按钮存在，

则必须按下Ctrl+Enter组合键才能移动到下一行。

3)

字符串类型。当MuitiLine属性值为False时，该属性可以用于口令

输入。在缺省状态下，该属性被设置为空串，用户从键盘输入时，每

个字符都可以在文本框中显示出来。如果把PasswordChar属性设置为一

个字符，如星号(*),则在文本框中键人字符时，只显示星号，不显示

键人的字符。Text属性接收的仍是用户输入的文本。

4)：

数值型。该属性用于确定文本框是否带滚动条。有以下4种选择：

O-None没有滚动条

1-Horizontal只有水平滚动条

2-Vertical只有垂直滚动条

3—Both同时具有水平和垂直滚动条

只有当MultiLine属性值为True时，文本框才显示滚动条。

5)：

数值型。在程序运行期间返回或设置选择的字符数。

例如：Text1.Seilength=Len(Textl.Text)

表示选中文本框Textl中所有字符。

6)SelStart属性：

数值型。在程序运行期间返回或设置当前选择文本的起始位置。

例如：Textl.SelStart=0

表示选择文本的起始位置从第一个字符开始。

7)Locked属性：

布尔型。指定运行时文本框内容是否可以编辑。默认值为False,

表示可以编辑。

2.事件和方法

1)：

当用户向文本框输人新的内容，或在程序代码中对文本框的Text属性

进行赋值从而改变了文本框的Text属性时，将触发Change事件。

例：建立三个文本框和两个命令按钮。运行时，用户在文本框

Textl中输入内容的同时，文本框Text2和Text3显示相同的内

容，但显示的字体不同。单击“清除”，按钮清空三个文本框

中的内容，单击“退出”按钮结束程序的运行

■Forol-inixi

Textl

Text2

Text3

■Fornl-1□!x|

清除退出欢迎使用VisualBasicl

欢迎使用VisualBasic

|欢迎使用VisuaIBasic

清除退出

2)

当运行时用Tab键或用鼠标选择对象，或用SetFOCUS方法使光标落在对象上时,

触发该事件，称之为“获得焦点”。该事件适用于窗体和大部分可接受键盘输入

的控件。

E工程I-For*l-1□!x|

Text2LostFocus

PrivateSubCommandl_C1ick()

Text3.Text-VaiCTextl.Text)+Vai(Text2.Text)Text1获得焦点

EndSub___________________

PrivateSubCommand2_Click()

End

EndSub_____________________

PrivateSubTextl_GotFocus0

Text3.Text=

Textl.SelStart=0

Textl.SelLength=LenCTextl.Text)

EpdSub

PrivateSubText2_LostFocus0

Text3.Text=""一

Text2.SelStart=0

Text2.SelLength=Len(Text2.Text)

EndSub

Text2获得焦点

3)

当按下Tab键使光标离开当前文本框，或者用鼠标选择窗体的其他对

象时触发该事件，称之为“失去焦点”。

4)：

当在键盘上按下某个键时触发该事件。KeyPress事件返回一个参数

KeyAscii,该参数值为整数，表示所按下键的ASCII码。

5)；etFocus方方：

SetFocus方法是文本框常用的方法，该方法是把光标移到指定的文本框

中，使该文本框获得焦点。

当在窗体上建立了多个文本框后，可以使用该方法把光标置于所需要

的文本框上。使用格式如下：

[〈对象名>.]SetFocus

例如，将焦点定位在文本框Textl中，使用语句：Textl.SetFocus

8.3定时翁Timer

主要属性

Enabled是否可用为False不发生Timer事件

Interval定时间隔单位为ms,取值范围为045535

事件

Timer到达Interval指定的时间时就触发一次该事件

PrivateSubTimerl_Timer()

IfImage1.VisibleThen

Image1.Visible=False

Image2.Visible=True

Else

Image1.Visible=True

Image2.Visible=False

EndIf

EndSub

8.4滚动条

VB提供两种滚动条控件：

•水平滚动条HScrollBar

•垂直滚动条VScrollBar。

两种滚动条除方向不同外，结构和操作方法完全一样。

HScrollBar

1.属性

.Max属性：滚动条所能表示的最大值。当滚动块移动到

滚动条的最右端或底部时，滚动条的Value属性值等于

Max值。

.Min属性：滚动条所能表示的最小值。当滚动块移动到

滚动条的最左端或顶部时，滚动条的Value属性值等于

Min值。

.LargeChange属性：当用户单击滚动块和滚动箭头之间

的区域时，滚动条Value属性值的改变量。

.SmallChange属性：当用户单击滚动箭头时，滚动条的

Value属性值的改变量。

.Value属性：滚动条的当前位置值，该值始终介于Max

和Min属性值之间（包括这两个值）o

2.事件

.Change事件：当滚动块移动后或在代码中对Value属性

进行赋值后产生该事件。

.Scroll事件：当在滚动条内拖动滚动块时产生该事件。

3.例8-2

PrivateSubHScrolll_Change(IndexAsInteger)

Labelrgb(Index).Caption=HScroll1(Index).Value

Picturel.BackColor=RGB(HScroll1(0).Value,_

HScrolll(l).Value,HScroll1(2).Value)

EndSub控

件

PrivateSubHScroll1_Scroll(IndexAsInteger)数

HScrolllChange(Index)组

L

EndSuba

b

e

k

g

控件数组HScrolllb

8.5选项按钮(OptionButton)、复选框(CheckBox)与框架(Frame)

1.框架(Frame)

框架在工具箱中的名称为Frame,主要用做控件的容器，也

用于修饰界面。

容器的作用是对控件进行分组，放在容器中的控件跟随其

容器移动，删除容器将同时删除其中的所有控件。

要将控件放在容器中，可以先选中容器，然后在容器中直

接画控件。也可以将事先画好的控件复制到剪贴板，再选中

容器，然后粘贴控件。

框架具有以上介绍的控件的公共属性，其中要特别注意的

是Enabled属性，当框架的Enabled属性设置为False时，框架

的标题变成暗灰色，而框架中的所有对象将同时无效。

框架不响应鼠标事件，不能在其中显示文本和图形。

2.选项按钮(OptionButton)

选项按钮在上具箱中的名称为OptionButton,用于提供

一个可以打开或关闭的选项。在使用时，一般将几个选项

按钮组成一组，在同一组中，用户只能选择其中的一项。

在Frame控件、PictureBox控件或者窗体这样的容器中绘

制选项按钮控件，就可以把这些控件分组。同一容器中的

选项按钮控件为一个组。运行时，在选择一个选项按钮时,

同组中的其他选项按钮控件会自动取消选样。

1.属性

表示选项按钮的状态。Value属性为True时

，表示选择了该按钮；Value属性为False时，表示没有选择

该按钮。Value属性的缺省值为False。

.决定选项按钮中的文本的对齐方式。

Alignment属性为O-LeftJustify时表示左对齐;1-RightJustify

的表示右对齐。

用于控制选项按钮的外观。可以将Style属

性设置为1—Graphical使其显示成与命令按钮相同的形状，

运行时按钮可以在按下和抬起两种状态间切换，这时还可

以为其设置颜色或添加图形。

2.事件

选项按钮常用的事件为Click事件.当运行时单击选项

按钮，使选项按钮从未选择状态变成选择状态时，或在

代码中将一个选项按钮的Value属性从False改为True时，

产生Click事件。可以在该事件过程中编写代码，表示选

择该选项按钮时要执行的操作。也经常不直接在选项按

钮的事件过程中编写代码，只是使用选项按钮进行选择

，而在其他事件过程（如命令按钮的单击事件）中根据选项

按钮的Value值进行判断，以执行相应的操作。

3.例8-3

椎

,|n|x|架

框

架

3.复诜框（Chee理处）

复选框在工具箱中的名称为CheckBox。与选项按钮类

似，该控件一般用于提供一个可以打开或者关闭的选项。

选择复选框控件后，该控件将显示符号V,而取消选择

后，符号V消失。也可以设置复选框使其处于第三种状

态，即灰度状态。同样可以按功能对复选框进行分组，

但同一组中的复选框可以有多个同时被选中。

复选框和选项按钮功能相似，但二者之间也存在着重

要差别：在一个窗体中可以同时选择任意数量的复选框

控件；但是在一个组中，在任何时侯只能选择一个选项

按钮。

1.属性

复选框的Value属性用来确定其状态.即选

择、取消选择或灰度状态。Value值为0表示取消选择状态；

Value值为1表示选择状态；而Value值为2使复选框处于灰度

状态，常利用这种状态来表示部分选中或不确定状态。

设置或返回一个值，决定复选框中的

文本的对齐方式。Alignment属性为O-LeftJustify时表示左对

齐,Alignmen瞩性为1-RightJustify时表示右对齐。

.Style属性：与选项按钮相同，可以将复选框的Style属性

设置为1-Graphical使其显示成按钮的形状，同时还可以为其

设置颜色或添加图形。

2.事件

复选框常用的事件为，运行时单击复选框时，或

在代码中改变复选框的Value属性值时，产生Click事件。可

以在该事件过程中编写代码，表示选择或取消选择该复选框

时要执行的操作。也经常不直接在复选框的事件过程中编写

代码，只是使用复选框进行选择，而在其他事件过程（如命令

按钮的单击事件）中根据复选框的Value值进行判断，以执行

相应的操作。

回

For»l

宋

3.例8-3白日依山尽,体

体

仿

宋

体

黄河入海流.黑

体

欲穷千里目,楷

更上一层楼.

Ld

样式

r粗体厂魁建厂下划线

8.6列表框(listBOX)和组合框(ComboBox)

一、列表框(1istBOX)

列表框在工具箱中的名称为ListBox。该控件用

于显示项目列表，从列表中可以选择一项或多项。

如果项目总数超过了可显示的项目数，VB会自动

给列表框加上滚动条。

1.属性

返回或设置列表框的列衷部分的项目。在设

计时可以在属性窗口中直接输入列表项目，输入每一列表

项后使用Ctrl+Enter键换行。运行时，引用列表框中的第

一项为List（O）、第二项为List［（l）……

.Sly!.,返回或设置列表框的显示样式。如果该属

性设置为0（缺省值），则列表框按传统的列表样式显示列

表项；如果该属性设置为1,则在列表框中的每一个文本

项的旁边都有一个复选框，这时在列表框中可以同时选择

多项。

,Columns属性：返回或设置列表框是按单列显示（垂直

滚动）还是按多列显示（水平滚动）。当Columns值为0时，列

表框为垂直滚动的单列形式；当Columns值大于0时，列表

框为水平滚动形式，显示的列数由Columns值决定。

返回列表框中被选择的项目。如果列表框的名

称为Listl,则ListLText的值总是与List1.List(Listl.Listlndex)的

值相同。Text属性为只读属性。

：返回或设置列表框中当前选择项目的索引

,在设计时不可用。列表框的索引从0开始，即第一项的索引

为0,第二项的索引为1……，若没有在列表框中选择项目，则

Listindex的值为-1。对于可以做多重选择的列表框，若同时选

择了多个项目，Listindex返回所选项目的最后一项的索引。

注：List,Listindex,Text之间存在如下等价关系：

Listl.Text=Listl.List(Listl.Listindex)

.ListCount属性：返回列表框中列表部分项目的总个数。

ListCount属性值总是比最大的Listindex值大1。

.Sorted属性：指定列表项目是否自动按字母表顺序排序。

将Sorted设置为True表示列表项目按字母表顺序排序，设置

为False(缺省值)表示列表项目不按字母表顺序排序。

:返回或设置在列表中的一个项的选择

状态。该属性在设计时不可用。

返回或设置一个值，该值指示是否

能够同时选择列表框中的多个项（复选），以及如何进行

复选，在运行时是只读的。有以下几种取值：

O-None为缺省值，表示不允许复选。

1-Simple表示单击鼠标或按空格键可在列表中选择或取消选择列

表项。

2-Extended表示按下Shift键井单击鼠标，或按下Shift健以及一个箭

头键将在以前选择项的基础上扩展选择到当前选择项。按下Ctrl键并

单击鼠标可在列表中选择或取消选择列表项。

2.事件

列表框接受Click、DblClick>GotFocus>LostFocus等大

多数控件的通用事件，但通常不编写Click事件过程，而是

当单击某个命令按钮或双击列去框时读取列表框的Text属性

值。

3.方法

向列表框中添加新的项目，使用格式为：

〈对象名NAddltemv项目＞[,〈索引刁

格式中的〈索弓1＞表示要添加的位置。当〈索弓1＞省略时,

若Sorted属性设置为True,〈项目＞将添加到恰当的排序位置;

若Sorted属性设置为False,〈项目＞将添加到列表的末尾。

,RemoveItem方法：从列表框中移除项目，使用格式为：

〈对象名〉.Removeitem〈索引＞

格式中的〈索弓1＞用于指定要删除的项目的索引。

.Clear方法：清除列表框中的所有项目，使用格式为：

〈对象名NClear

4.举例

X

二、组合框(ComboBox)

组合框在工具箱中的名称为ComboBox。

组合框的作用与列表框类似，只是组合框控件将文本框和

列表框的特性结合在一起，既可以在控件的文本框(编辑域)

部分输入信息，也可以在控件的列表框部分选择一项。

另外，组合框可以将列表项折叠起来，使用时再通过下拉

列表进行选择，所以使用组合框比使用列表框更节省界面空

间。

1.属性

返回或设置组合框的列表部分的项目。在设

计时可以在属性窗口中直接输入列表项目，输入每一列表项

后使用Ctrl+Enter键换行。

用于指定组合框的显示形式，有以下几种取

值：

0为缺省值，组合框显示形式为下拉组合框，包括一个文本框和一个

下拉式列表。可以从列表中选择项目或在文本框中输人文本。该样式将

选项折叠起来，当需要选择时，单击组合框旁边的下拉箭头，弹出选项

列表，再用鼠标单击进行选择，选择后列表会重新折叠起来，只显示被

选择的项目。

1表示组合框显示形式为简单组合框。该形式同样包括一个文本框和一

个列表框，与下拉组合框不同的是，该形式不能将列表折叠起来。

2表示组合框显示形式为下拉列表框。这种样式仅允许从下拉列表中选

择，不能在文本框中输入文本，列表可以折叠起来。

当ComboBox控件的Style属性设置为0（下拉组合

框）或为1（简单组合框）时,该属性用于返回或设置编辑域中的

文本。而当Style属性设置为2（下拉列表框）时，该属性为只读

,运行时返回在列表中选择的项目。若列表框的名称为

Combo1,且运行时选择了某列表项，则Combol.Text的值总是

与Combo1.List（Combo1.Listindex）的值相同。

返回或设置在组合框下拉列表中当前选择

项目的索引，在设计时不可用。若没有选择项目，或者向文

本框部分输入了新的文本，则Listindex值为-1。

.ListCount属性：返回组合框的列表部分项目的总个数。

ListCount属性值总是比最大的Listindex值大1。

.Sorted属性：指定列表项目是否自动按字母表顺序排序。

将Sorted设置为True表示列表项目按字母表顺序排序，设置为

False（缺省值）表示列表项目不按字母表顺序排序。

2.事件

组合框的事件与Style属性有关，

当Style为0时，响应Click、Change>DropDown事件。

当Style为1时，响应Click、DblClick、Change事件。

当Style为2时，响应Click、DropDown事件。

当用户单击组合框的下拉箭头时，触发DropDown事件；而

组合框可以接受文本编辑时，则可以触发Change事件。通常

是在其他事件过程（如命令按钮的单击事件）中读取组合框的

Text属性。

3.方法

向组合框中添加新的项目，使用格式

为：

〈对象名NAddltem〈项目＞[,＜索引刁

格式中的〈索弓1＞表示要添加的位置。当〈索弓1＞省略时，

若〈Sorted〉属性设置为True,〈项目＞将添加到恰当的排序

位置；若〈Sorted〉属性设置为False,〈项目＞将添加到列表

的末尾。

.Removeitem方法：从组合框的列表中移除项目，使用

格式为：

〈对象名〉.Removeitem〈索引＞

格式中的〈索弓1＞用于指定要删除的项目的索引。

.Clear方法：清除列表框中的所有项目，使用格式为：

〈对象名〉.Clear

4.举例

在窗体Forml上建立一'列表框、两个选项按钮、一'个组

合框和一个文本框，当在列表框、选项按钮和组合框选

中某些内容时，用文本框将其显示出来。运行界面如图

所示。

&Z驱动器列表一1_录列表和文件列表框

自学内容

8.8图片框(PictureBox)和图像框(Image)

一、图片框(PictureBox)

图片框在工具箱中的名称为PictureBox,该控件可以用来显

示图像，包括位图文件(.bmp)、图标文件(.ico)、光标文件(.cur)、

元文件(wmf)、增强的元文件(.emf)>JPEG文件(.jpg)或GIF文

件(.gif)。

PictureBox控件也可以作为控件的容器，还可用于显示用

Print方法产生的文本和用图形方法绘制的图形。要清除用

Print方法在图片框中产生的文本和用图形方法绘制的图形，

使用Cis方法：

〈对象名〉.Cis

若使用LoadPicture函数清除图像，将同时清除文本和用图

形方法绘制的图形。

1.属性

设置图片框中显示的图片，可以在属性窗口

中设置其Picture属性,也可以在代码中使用LoadPicture函数进

行设置，格式如下：

〈对象名〉.Picture=LoadPicture(“v图形文件名>”)

要清除图片框中的图像，可以在属性窗口中直接删除其

Picture属性的内容，也可以在代码中使用LoadPicture函数进

行清除，格式如下：

〈对象名〉.Picture=LoadPictureO或

〈对象名〉.Picture=LoadPicture(“'‘)

.Autosize属性：若在图片框中加载.wm帔件，图像会自动

调整大小，以适应控件的大小;对于其他类型的文件，若控

件大小不足以显示整幅图像，则VB会自动裁剪图像.以适应

控件的大小；但不能调整图形以适应控件的大小。

将其设置为True,可以自动调整大小以显示整幅图像。

是否自动重新绘制图形

2.事件

常用事件有Resize、Paint、Click寺

3.方法

常用方法有Refresh、Move、Print及一组绘图方法等

象名

•对

.Pset[step](x,y)[,color]画点

象名

•对

.Point(x,y)返回指定点的颜色

名

象

•对

画线矩形填充矩形

名.line[step](x1,y1)-[step](x2,y2)[,color].[b][f]

对

•象

.Circle[step](x,y),radius[,coIor]画圆

•Step：可选项，带此参数时，点(x,y)是相对于当前位置(由CurrentX和CurrentY属性

决定)的坐标点，否则为绝对坐标。

4.举例

例1:画圆

■Foral-ln|x|