《Visual Basic语言程序设计教程（第二版）》课件第4章 控件

工具箱控件图解4.1

概述指示器标签框架复选框组合框水平滚动条时钟目录列表框形状图象框OLE图片框文本框命令按钮单选按钮列表框垂直滚动条驱动器列表文件列表LINEData控件是VB中预先定义好了的、程序中能够直接使用的对象，每个控件都有自己的属性、事件和方法。VB有三种控件：标准控件：存在于工具栏中，不可删除。被封装在VB的.exe文件中，不可以删除。ActiveX控件：由第三方制造的，以独立文件存在，扩展名为.ocx,使用前必须添加到工具栏中。可插入的对象：如Execl,Word等能添加到工具栏中，所以也是控件。向工具箱中添加控件的方法如果想使用标准工具箱中没有的控件，则必须将该控件添加到工具箱中。添加过程如下：

4.1

概述向窗体上添加控件，有三种方法：方法一：单击工具箱中的某控件图标，该图标反相显示；移动鼠标至窗体上，光标变为“+”，按下鼠标左键不放，向右下方拖动鼠标；当控件为合适大小时松开鼠标，一个控件就添加好了。方法二：双击工具箱中的某控件图标，在窗体中就添加了该控件，与第一种方法不同的是，所添加控件大小、位置是固定的。方法三：按如下步骤操可以添加多个某种类型的控件：按住Ctrl键，不要松开；单击工具箱中要画的控件的图标，然后松开Ctrl键；按第一种方法在窗体上画出控件(可以画一个或多个)；画完控件后，单击工具箱中的指针图标(或其他图标)。4.1

概述4.2.1标签（Label）标签控件主要用于标注没有Caption属性的控件的用途或向用户显示运行结果的。标签在运行时不具有交互性，不能响应用户事件。标签控件的属性Alignment：设置标签中文本的对齐方式。语法格式：4.2基本控件对象名.Alignment={0|1|2}属性值说明0(默认值)从左边开始显示标题，即左对齐1从右边开始显示标题，即右对齐2从中间开始显示标题，即居中对齐标签控件的属性AutoSize：设置标签是否能够自动调整大小以显示所有的内容。语法格式：

其中：属性值为False(默认值)表示显示控件的原始大小，属性值为True表示根据控件中的内容自动调整控件大小。BackStyle：设置标签的背景样式。语法格式：

其中：属性值为1(默认值)表示背景是不透明的；属性值为0表示背景是透明的。4.2标签（Label）对象名.AutoSize={True|False}对象名.BackStyle={0|1}标签控件的属性BorderStyle：设置标签的边框样式。语法格式：

其中：属性值为0(默认值)表示无边框；属性值为1表示单线边框。Caption：设置标签的文本内容。语法格式：4.2.1标签(Label)对象名.Caption[=字符串]对象名.BorderStyle={0|1}标签控件的事件和方法标签具有Click(单击)，DbClick(双击)等事件，但一般不需要编写代码。标签的方法中常用的只有Move，其基本语法如下：

其中：left，top，width，height分别表示移动目的位置的坐标和大小。left为必要参数，其他三个为可选参数。

4.2.1标签(Label)对象名.Move

left,top,width,height例4.1设计一个界面说明标签的基本属性的使用界面设计属性设置对象名属性名属性值Label1Caption默认值Label2Caption学习VBAutoSizeTrueBackStyle0(透明)BorderStyle1(单线边框)运行结果4.2.2文本框（Text）文本框是一个文本编辑区域，主要用于接收用户的输入、输出、修改等信息，可以输入单行文本，也可以输入多行文本，在程序运行过程中具有良好的交互性。文本框控件的属性Name：设置文本框的名称。Text：设置文本框中显示的文本内容。语法格式：

4.2

基本控件对象名.Text=字符串文本框控件的属性Locked：设置文本框是否可以被编辑。语法格式：

其中：属性值为False（默认值）表示文本内容可以编辑；属性值为True表示文本内容只能读但不能修改。MaxLength：设置文本框中输入的字符串最大长度。其中：属性值为0（默认值）表示文本框中字符串的长度为任意值，只受操作系统内存的限制；属性值为大于0的整数，该整数表示能够输入的最大字符数目。4.2.2文本框(TextBox)对象名.Locked={True|False}文本框控件的属性MultiLine：设置文本框是否可以输入多行文本。语法格式：其中：属性值为False（默认值）表示只能单行显示，不能显示多行；属性值设置为True，表示可以多行显示文本，若文本行数超过文本框宽度，系统会自动为文本框添加滚动条。PasswordChar：设置是否在文本框中显示用户所输入的字符串。语法格式为：其中：该属性如被设置为某一字符，如“*”，则无论在Text属性值中输入什么，在文本框中都只显示“*”。

4.2.2文本框(TextBox)对象名.MultiLine={True|False}对象名.PasswordChar="*"

注意：该属性有效的前提是MultiLine属性必须设置为False。文本框控件的属性ScrollBars：设置文本框滚动条的模式。语法格式：

4.2.2文本框(TextBox)对象名.ScrollBars={0|1|2|3}属性值说明0（默认值）表示没有滚动条1表示只有水平滚动条2表示只有垂直滚动条3表示既有水平滚动条又有垂直滚动条文本框控件的属性SelLength、SelStart和SelText：控制文本框中的插入点和文本选定操作，这些属性仅能在运行时使用。语法格式：

其中：SelLength设置选定文本的长度，只能在代码中使用，若值为0，表示未选中任何内容。SelStart设置选定文本的起始点，只能在代码中使用，第一个字符位置是0。SelText设置当前选定文本的内容，只能在代码中使用4.2.2文本框(TextBox)

对象名.SelLength=数值对象名.SelStart=数值对象名.SelText=字符串Text1.SelStart=1Text1.SelLength=3Text2.Text=Text1.SelText文本框控件的事件Change：当用户改变文本框的内容时，该文本框的Change事件被触发，该事件对应的代码结构如下：4.2.2文本框(TextBox)

PrivateSub

Text1_Change()

…EndSub4.2.2文本框(TextBox)例：程序运行时，通过用户输入，同步设置窗体的标题，即用户输入什么，窗体标题就同步显示什么。分析：接收用户输入用户输入的内容保存在文本框的什么属性中窗体的标题与文本框内容一致——赋值将文本框内容Text赋予窗体的标题属性Caption同步显示代码：——文本框textForm1.caption=text1.text——文本框Change事件PrivateSubText1_Change()

Form1.Caption=Text1.TextEndSub4.2.2文本框(TextBox)例：程序运行时，用户输入密码时，在另一个文本框中显示用户输入的密码。分析：接收用户输入用户输入的内容保存在文本框的什么属性中文本框2与文本框1内容一致同步显示代码：——文本框TextText2.text=text1.text——文本框Change事件PrivateSubText1_Change()

EndSubText2.Text=Text1.Text文本框控件的事件KeyPress：当文本框被选中时，按任意键该文本框的KeyPress事件被触发，该事件对应的代码结构如下：

其中：KeyAscii是按键事件的参数，反映了按键对应键名的ASCII码值，输入数据时，通过KeyPress事件过程来识别输入字符是否正确，达到判断检查的功能。一般经常用以上两个事件过程中设置代码，来实现对输入文本框中的内容进行检查、验证和确认。4.2.2文本框(TextBox)

PrivateSub

Text_KeyPress(KeyAscii

As

Integer)…EndSub4.2.2文本框(TextBox)例：判断文本框中输入的内容是否为数字按键盘上某键，如果输入的值不是0～9之间的数字，则在窗体上显示相关的提示信息，否则没有任何提示。PrivateSubText1_KeyPress(KeyAsciiAsInteger)

IfKeyAscii<Asc("0")OrKeyAscii>Asc("9")ThenPrint"你输入的不是数字"EndIfEndSub文本框控件的方法SetFocus：可以设置焦点，其获得焦点的显示效果是焦点（光标）在文本框中闪动。语法格式：让指定的对象获得焦点。设置焦点，本方法可使指定的文本框(或其他有聚焦能力的对象)成为焦点，也就是当前文本框，成为焦点的文本框中具有闪动的光标.4.2.2文本框(TextBox)对象名.SetFocus口令口令口令例设计一个程序可检查密码是否正确，密码为“12345”口令口令4.2.2文本框控件(TextBox)PrivateSubCommand1_Click()pass=Text1.Text

Ifpass="12345"ThenLabel2.Caption=“口令正确！"

ElseLabel2.Caption=“口令错，重新输入！"

EndIfEndSub4.2.3命令按钮（CommandButton）命令按钮通常在Click事件中编写一段程序，当用户用鼠标单击这个按钮时，就会启动这段程序，执行某一特定的功能。命令按钮控件的属性Caption：设置命令按钮的标题。Default：设置命令按钮是否为默认按钮，即当运行程序时，用户按回车键时，就激活它。语法格式：其中，属性值为False（默认值）表示该按钮不响应Default事件；属性值为True表示该命令响应Default事件，即当用户按Enter键时，与单击该按钮效果相同。Cancel：设置命令按钮是否为Cancel按钮，即当用户按Esc键时，是否触发它的Click事件。语法格式：

4.2基本控件对象名.Cancel={True|False}对象名.Default={True|False}注意：在一个窗体内，只能有一个Default命令按钮,也只能有一个Cancel命令按钮。命令按钮控件的属性Enabled：设置命令按钮是否能被按下。语法格式：

其中:属性值为True（默认值）表示该按钮能被响应；属性值为False表示该按钮不能被响应，以灰色显示。Picture：设置命令按钮上显示的图形。语法格式：4.2.3命令按钮(CommandButton)对象名.Enabled={True|False}对象名.Picture=LoadPicture("图形文件名")命令按钮控件的属性Style：设置命令按钮的类型。语法格式：

ToolTipText：设置当鼠标在命令按钮上暂停时显示的文本。

4.2.3命令按钮(CommandButton)对象名.Style={0|1}属性值说明0(默认值)表示为标准按钮，只显示Caption属性设置的文本1表示为图形风格，只显示由Picture属性指定的图片对象名.ToolTipText=字符串命令按钮控件的事件Click、MouseDown、MouseUp：当单击鼠标时就会触发该三个事件。他们触发的顺序为MouseDown、Click、MouseUp事件。

4.2.3命令按钮(CommandButton)对象名.Default={True|False}注意：MouseDown和MouseUp只能通过单击鼠标触发；而Click既可通过单击鼠标触发，还可以在按钮获得焦点时按空格或回车键触发。4.2.3命令按钮(CommandButton)

命令按钮的主要方法SetFocus：设置焦点。设置为焦点的按钮在其表面有一个虚边框注意：

命令按钮不支持双击事件。BackColor属性和Picture属性在Style属性值为1（图形方式）下，才能显示出来。4.2.3命令按钮(CommandButton)

PrivateSubCommand1_Click()Form1.MoveLeft+500,Top-500,Width+500,Height+500EndSubPrivateSubCommand2_Click()Form1.MoveLeft-500,Top+500,Width-500,Height-500EndSubPrivateSubCommand3_Click()EndEndSub例：设计一个窗体，说明命令按钮的基本属性、事件、方法的使用。4.2.3命令按钮(CommandButton)

界面设计属性设置见课本运行结果代码如下：PrivateSubCommand1_Click()

Label4.Caption="+"Text3.Text=Val(Text1.Text)+Val(Text2.Text)EndSubPrivateSubCommand2_Click()

Label4.Caption="-"Text3.Text=Val(Text1.Text)-Val(Text2.Text)EndSubPrivateSubCommand3_Click()

Label4.Caption="*"Text3.Text=Val(Text1.Text)*Val(Text2.Text)EndSubPrivateSubCommand4_Click()

Label4.Caption="/"Text3.Text=Val(Text1.Text)/Val(Text2.Text)EndSub4.3常用控件4.3.1图形控件VB中的图形控件分为图片框(PictureBox)、图像框(Image)、直线控件和形状控件。图形控件的使用能美化界面和增加界面的趣味性。4.3.1.1图片框图片框控件可以用来显示.bmp、.ico、.jpeg、.jpg、.gif等图片类型的文件，且可以绘制图形、显示文本或计算结果，还可以作为容器放置其它控件。

4.3.1图形控件图片框常用属性Align：设置图片框在窗体中的显示方式，语法格式：

对象名.Align={0|1|2|3|4}属性值说明0-None默认值，表示无特殊显示1-AlignTop表示图片框停靠在窗体上端并与窗体一样宽2-AlignBottom表示图片框停靠在窗体底部并与窗体一样宽3-AlignLeft表示图片框停靠在窗体左端并与窗体一样高4-AlignRight表示图片框停靠在窗体右端并与窗体一样高4.3.1图形控件图片框常用属性AutoSize：设置控件是否能自动调整大小以适应图片内容。语法格式：其中:属性值为False（默认值）表示图片框不能自动改变大小以适应其中的图形，保持原始尺寸，如果图形比图片框大，则超出的部分将被剪切掉；属性值为True表示图片框可以自动调整图片框大小以显示图片的全部内容。对象名.AutoSize={True|False}4.3.1图形控件图片框常用属性Picture：设置图片框控件中显示的图片。在界面设计时，可直接利用属性窗口中的Picture属性设置相应图片的目录装入图片；在程序运行时，可使用LoadPicture函数装载图片，语法格式为：对象名.Picture=LoadPicture("图形文件名")4.3.1图形控件图片框图片框控件的事件图片框常用的事件是Click和DblClick，分别是单击和双击图片框时发生的事件。图片框控件的方法图片框常用的方法有Print、Cls、Move和SetFocus。同时，图片框支持Pset、Point、Circle和Line等绘图方法。装载图片装载图片有三种方法：方法1：在界面设计时，通过Picture属性装载图片，在Picture属性中选择需要装入的图形文件名。方法2：在程序运行期间，用LoadPicture函数装载。方法3：在界面设计时，利用菜单中的“编辑”→“粘贴”功能，将剪贴板中的图片粘贴到图形控件中。4.3.1图形控件图片框卸载图片语法格式：保存图片SavePicture函数的功能是用来保存在图片框中处理过的图像。语法格式：

例如：SavePicturePicture1.Image,"aa.bmp"

[对象.]Picture=LoadPicture(“”)SavePicture对象名.Image,保存文件名例：设计一个窗体，通过命令按钮单击实现两个图片框控件中图片之间的切换。4.3.1图形控件界面设计和运行结果4.3.1图形控件对象属性属性值CommandButtonNameCommand1Caption交换PictureBoxNamePicture1Pictured:\6.jpgPictureBoxNamePicture2Pictured:\7.jpg属性设置如下表：4.3.1图形控件代码编写如下PrivateSubCommand1_Click()

Picture1.Picture=Picture2.PicturePicture2.Picture=LoadPicture("d:\6.jpg")EndSub4.3.1图形控件4.3.1.2图像框图像框也是用来显形图片，如.bmp、.ico、.jpeg

、.jpg

图片格式。其装载显示图片的速度较图片框快。常用属性Appearance:设置图像框在运行时是否以3D效果显示.Picture：设置图像框控件中显示的图形。图像框的Picture属性与图片框使用方法相同，既可以通过属性窗口设置图像框的Picture属性来添加图片，也可以通过LoadPicture函数来装载图片。

4.3.1图形控件图像框常用属性Stretch：设置是否调整图形的大小以适应图像框控件。图像框没有Autosize属性，但可以使用Stretch属性来拉伸图像大小，使其适应图像框的大小。其中:

属性值为False（默认值）表示当图形载入时，图像框本身调整大小，使得图形可以填满图像框；属性值为True表示当图形载入时，图形自动按照图像框的大小来调整大小，使图形填满整个图像框。4.3.1图片控件

图像框图像框控件的事件和方法图像框常用的事件和方法都不多。常用的事件有：DbClick、Click、MouseDown、MouseMove、MouseUp。常用的方法有：Move方法。图片框和图像框的区别：图片框可以作为“容器”，可以存放其他控件，图像框不可以；图片框可以通过Print方法输出文本也可以用绘图方法绘制图形，图像框不可以；图像框比图片框占用内存少，显示速度快，如只显示图片则优先使用图像框；图片框有Autosize属性，而图像框有Stretch属性例：设计一个窗体，说明图像框中Stretch属性的应用。4.3.1图片控件界面设计4.3.1图片控件属性设置如下:对象属性属性值CommandButtonNameCommand1Caption交换PictureBoxNamePicture1PictureBoxNamePicture2VisibleFalseImageNameImage1StretchTrue4.3.1图片控件代码编写如下PrivateSubForm_Load()Picture1.Picture=LoadPicture("C:\JadeVista.jpg")Image1.Picture=LoadPicture("C:\风景06.jpg")EndSubPrivateSubCommand1_Click()Picture2.Picture=Picture1.PicturePicture1.Picture=Image1.PictureImage1.Picture=Picture2.PictureEndSub4.3

常用控件4.3.2框架和选择控件4.3.2.1框架（Frame）在VB中，可以作为其他对象容器的有窗体、图片框和框架。框架的主要作用是将窗体上的控件进行分组，让窗体界面整齐。框架控件的属性Caption：设置框架的标题，说明框架的功能。Enabled：设置框架及框架内控件是否可用。属性值为True（默认值）表示框架可用，属性值为False则表示框架和其上的控件不可用。Visible：设置框架及框架内控件是否可见。

4.3.2框架和选择控件框架（Frame）框架控件的事件框架的常用事件是Click，在框架上单击鼠标时触发。向框架添加控件的方法先框架后控件：先添加一个框架，在框架处于激活状态时，在工具栏中选择要添加的控件添加到框架中。先控件后框架：即添加窗体中已存在的控件到框架中。先添加一个框架，然后将窗体中要添加的控件剪贴到框架中。

判断一个控件是否已添加到框架上，主要是看移动框架时该控件是否也跟随一起移动。4.3.2框架和选择控件4.3.2.2单选按钮（OptionButton）

单选按钮控件是多选一控件，只能从多个选项中选择一个，各选项间的关系是互斥的，同一时刻只能选择同一组中的一个单选按钮。单选按钮控件的属性Caption：设置单选按钮的标题。Alignment：设置单选按钮中文字的对齐方式。其中：属性值为0（默认值）表示靠左对齐，圆形按钮位于控件的左边，文字显示在右边；属性值为1表示靠右对齐。对象名.Alignment={0|1}4.3.2框架和选择控件单选按钮（OptionButton）

单选按钮控件的属性Value：设置单选按钮在执行时是否被选中。语法格式：

其中：属性值为False（默认值）表示单选按钮处于未选中状态；为True表示单选按钮被选中。在一组单选按钮控件中，有且只有一个单选按钮能被选中，该控件的Value值变成True的同时，其他控件的Value属性将自动变成False。

对象名.Value={True|False}4.3.2框架和选择控件单选按钮（OptionButton）

单选按钮控件的属性Style：设置单选按钮的显示方式。语法格式：

其中：属性值为0（默认值）表示单选按钮用标准方式（Standard）显示；为1表示单选按钮用图形方式（Graphical）显示。此属性与命令按钮的Style属性相似。

对象名.Style={0|1}4.3.2框架和选择控件单选按钮（OptionButton）

单选按钮控件的属性Picture：给单选按钮装载图形。

注意：只有在Style属性设置为图形方式时Picture属性才有效。4.3.2框架和选择控件单选按钮（OptionButton）

单选按钮控件的事件单选按钮的常用事件为Click，当用户在一个单选按钮上单击时触发。4.3.2框架和选择控件例4.9设计一个窗体选择不同字体、不同字号的选项，文本框的文字会产生相应的变化。界面设计属性设置见书4.3.2框架和选择控件代码设计：PrivateSubOption1_Click()IfOption1.Value=TrueThenLabel1.FontName="宋体"EndSubPrivateSubOption2_Click()IfOption2.Value=TrueThenLabel1.FontName="隶书"EndSubPrivateSubOption3_Click()IfOption3.Value=TrueThenLabel1.FontName="黑体"EndSub4.3.2框架和选择控件代码设计：PrivateSubOption4_Click()IfOption4.Value=TrueThenLabel1.FontSize=30EndSubPrivateSubOption5_Click()IfOption5.Value=TrueThenLabel1.FontSize=40EndSubPrivateSubOption6_Click()IfOption6.Value=TrueThenLabel1.FontSize=50EndSub4.3.2框架和选择控件运行结果4.3.2框架和选择控件4.3.2.3复选框（CheckBox）

复选框的功能类似于单选按钮，不同的是：一组单选按钮中只允许选定其中的一个；而在组复选框中却可以选择多个，即复选框的功能是独立的，各选项间不互斥。复选框控件的属性Caption：设置复选框标题。Value：设置复选框在执行时的状态。语法格式：

对象名.Value={0|1|2}属性值说明0(默认值)未选中，此时复选框前面小方块没有“√”标志1选中状态，此时复选框前面小方块带有“√”标志2处于禁止选择状态，复选框呈现“√”标志但以灰色显示。4.3.2框架和选择控件复选框（CheckBox）复选框控件的属性Style：设置复选框的显示方式。Picture：用于给图形复选框装载图形。

注意：只有在Style属性设置为图形方式时Picture属性才有效。4.3.2框架和选择控件复选框（CheckBox）复选框控件的事件和方法复选框的常用事件为Click，当用户在一个复选框上单击鼠标按钮时发生。复选框不支持鼠标双击事件，系统把一次双击解释为两次单击事件。复选框支持的方法较少，常用的主要有：SetFoucs、Move。

复选框应用设计一个窗体，说明复选框的基本应用方法。

界面设计对象属性属性值LabelNameLabel1Caption我的爱好是CheckBoxNameCheck1Caption音乐CheckBoxNameCheck2Caption足球CheckBoxNameCheck3Caption看书CheckBoxNameCheck4Caption购物CommandButtonNameCommand1Caption确定CommandButtonNameCommand2Caption清除4.6框架和选择控件代码设计：

PrivateSubCommand1_Click()

a=Check1.Captionb=Check2.Captionc=Check3.Captiond=Check4.CaptionIfCheck1.Value=1ThenLabel1.Caption=Label1.Caption&""&aIfCheck2.Value=1ThenLabel1.Caption=Label1.Caption&""&bIfCheck3.Value=1ThenLabel1.Caption=Label1.Caption&""&cIfCheck4.Value=1ThenLabel1.Caption=Label1.Caption&""&dEndSubPrivateSubCommand2_Click()a=""b=""c=""d=""Label1.Caption="我的爱好是："EndSub4.3.3列表框和组合框列表框和组合框都是通过列表的形式显示多个选项，供用户来选择。列表框是一个为用户提供选择的列表，用户可从中单击选取自己所需的一个或多个选项。如果选项太多，超出列表框设计的大小时，不能一次全部显示，VB会自动加上垂直滚动条。组合框的功能与列表框相近，其主要特点是它综合了列表框和文本框的特性。在程序运行时，用户既可以在组合框中选择已有的选项，选中的内容自动放入文本框中；又能够在文本框中直接输入所需的内容。列表框控件组合框控件4.3.3列表框和组合框列表框控件列表框控件的属性List：设置列表框中列表项的内容。List属性值是一个一维数组，每个数组元素是列表框中的一个选项。其中：该属性既可以在设计时通过属性窗口设置，又可在代码窗口中设置；属性窗口设置时，每添加一个列表项，按Ctrl+Enter键可以换行继续添加下一个列表项，直接按Enter键表示添加结束；代码窗口设置时，采用如下格式：例如：

List1.list(0)="武汉"'列表框的第一项

List1.list(2)="北京"'列表框的第三项对象名.list(下标)=字符串注意：List数组的第一个元素的下标是0，即List(0)为第一个元素，往后依次为List(1)、List(2)、List(3)…，如果List数组中有n个元素，则最后一个列表项对应的数组元素为List(n-1)。4.3.3列表框和组合框列表框控件列表框控件的属性ListCount：表示当前列表框中选项的总数。

注意：任何列表框中的选项从0开始，到ListCount-1结束，通常和List属性一起使用，此属性只能在程序中引用。4.3.3列表框和组合框列表框控件列表框控件的属性ListIndex：设置和返回选中的选项，即下标序号。如果没有任何选项选中，其值为-1。

Sorted：设置列表框中的选项是否按字母表顺序排序。语法格式：

其中：属性值为True表示列表框中的选项按字母表顺序排序；属性值为False则表示列表框中的选项不按字母表顺序排序。Sorted属性必须在属性窗口时设置，在运行时是只读的。

list1.sorted=true按字母顺序排列

list1.sorted=false按加入时的顺序排列

如果选中列表框的第五个元素，则ListIndex值为多少？对象名.Sorted={True|False}4.7列表框和组合框列表框控件列表框控件的属性Text：返回或设置最后选中的列表项的文本内容。只读属性，不能直接修改其值，用于获取选定列表项的内容。MultiSelect：设置该列表框是否能选择多项。语法格式：

对象名.MultiSelect={0|1|2}属性值说明0(None)单选，一次只能选择一个选项1(Simple)简单多选，鼠标单击或按Space键选取或取消选项2(Extended)高级多选，用Ctrl键与鼠标单击来选中或取消不连续的选项；用Shift键与鼠标单击来选中或取消连续的选项注意：若选择多项，则ListIndex和Text的属性只表示最后一次所选择的选项值。4.3.3列表框和组合框列表框控件列表框控件的属性SelCount：表示列表框中所选择的选项的数目。通常与Selected一起使用，以处理控件中所选的选项。

注意：注意：SelCount属性使用的前提是MultiSelect属性设置为1或2。4.3.3列表框和组合框列表框控件列表框控件的属性Selected：与List数组中的各个元素相对应的一个数组，记录List数组中每个选项是否被选取。例如，如果List(1)被选取，则Selected(1)的值为True，如果List(1)未被选取，则Selected(1)的值为False。如：list1.selected(0)=true表示选中第一项4.3.3列表框和组合框列表框控件列表框控件的属性Style：设置列表框控件的外观。语法格式：

属性值说明0(标准样式)不带复选框1(复选框样式)当复选框中出现“√”时表示选中该选项对象名.Style={0|1}

4.3.3列表框和组合框列表框控件列表框控件的事件Click事件：在列表框获得焦点时用户单击某个选项，或按下方向键，或按下选项的第一个英文字母，会触发该事件。DblClick事件：双击某个选项会触发该事件。列表框控件的方法AddItem：向列表框中添加列表项。语法格式：

对象名.AddItem选项字符串[,索引值]其中：选项字符串是要添加到列表框中的字符表达式；索引值是可选参数，用来指定新选项在列表框中的插入位置。若索引值为0，则插入到第一个选项位置；若索引值省略，当Sorted属性设置为True时，新选项将添加到恰当的排序位置，当Sorted属性设置为False时，新选项将添加到现有列表项的末尾。

例如:list1.additem"中国"list1.additem"美国",24.3.3列表框和组合框列表框控件列表框控件的方法RemoveItem：从列表框中删除指定选项。语法格式：

例如:list1.RemoveItem,0其中：索引值用来指定要删除的选项在列表框中的位置，每次只能删除一个选项。Clear：清除列表框中的全部选项。语法格式：对象名.RemoveItem索引值对象名.Clear4.3.3列表框和组合框设计一个窗体，要求：可以通过在列表框List1中选择，然后单击中间的命令按钮在列表框List2中执行相应的操作。界面如图所示：属性设置见书

4.3.3列表框和组合框代码设计：

PrivateSubForm_Load()List1.AddItem"苹果"List1.AddItem"香蕉"List1.AddItem"芒果"List1.AddItem"西瓜"List1.AddItem"哈密瓜"List1.AddItem"葡萄"List1.AddItem"椰子"List1.AddItem"榴莲"List1.AddItem"菠萝"List1.AddItem"蟠桃"EndSubPrivateSubCommand1_Click()

EndSubPrivateSubCommand2_Click()

EndSubPrivateSubCommand3_Click()

EndSubPrivateSubCommand4_Click()

EndSubList2.AddItemList1.TextList2.RemoveItemList2.ListIndexList2.ClearEnd4.3.3列表框和组合框4.3.3.2组合框组合框(ComboBox)是由文本框(TextBox)与列表框(listBox)“组合”而成的控件。用户可以通过在文本框输入新文本内容或在列表框中单击列表选项选择已有内容。组合框的形式有三种：下拉组合框(默认方式)、简单组合框、下拉列表框。组合框控件的属性Style：功能是设置组合框的显示类型，在运行时为只读的。对象名.Style={0|1|2}属性值说明0（默认值）下拉式组合框，包括一个下拉式列表和一个文本框，可以输入文本或从下拉列表中选择列表项1简单组合框，包括一个文本框和一个无法下拉的列表，可以输入文本或选择列表项。2下拉式列表框，包括一个下拉式列表和一个文本框，但只能选择列表项，不能在文本框中输入4.3.3列表框和组合框组合框组合框控件的事件Change：当组合框内容改变时发生。Click：当用户在一个组合框上单击鼠标按钮时发生。组合框控件的方法AddItem：用来向组合框中添加选项。RemoveItem：从组合框中删除一个选项。Clear：清除组合框的所有内容。4.3.3列表框和组合框单击中间的命令按钮在文本框中显示选择的内容，如果需要的城市组合框中没有列出，可以通过组合框来进行添加界面如图所示：4.3.3列表框和组合框代码设计：

PrivateSubForm_Load()

Combo1.AddItem"武汉"Combo1.AddItem"北京"Combo1.AddItem"西安"Combo1.AddItem"重庆"Combo1.AddItem"长沙"Combo1.AddItem"海南"Combo1.AddItem"天津"Combo1.AddItem"南京"Combo1.AddItem"杭州"EndSubPrivateSubCombo1_Change()

EndSubPrivateSubCombo1_Click()

EndSubCombo1.AddItemCombo1.TextText1.Text=Combo1.Text4.3

常用控件4.3.4滚动条滚动条通常用来浏览内容或确定位置，也可以作为数据输入的工具。在实际应用中，滚动条也常用作数量、速度的指示器，如在一些多媒体应用中用来控制音量、画面的滚动速度等。滚动条分为水平滚动条（HScroll）和垂直滚动（VScroll）两种类型。滚动条的结构两端各有一个滚动箭头，在滚动条上有一个能够移动的小方块，叫做滚动滑块；水平滚动条的最小值在最左边，最大值在最右边，从左向右移动时，值依次递增；垂直滚动条的最小值在最上边，最大值在最下边，从上向下移动时，值依次递增。4.3.4滚动条滚动条控件的属性Max：设置滚动条的最大值。最大值为滚动滑块在右（或下）端时的值，其值介于-32768到32767之间，Max的默认值为32767。Min：设置滚动条的最小值。最小值为滚动滑块在左（或上）端时的值，Min的默认值为0。Value：表示滚动滑块所在位置对应的值。如果用户拖动滑动块，Value属性值随之改变，它是滚动滑块的位置与最大值、最小值换算而得的结果，取值范围为Min～Max。LargeChange：设置鼠标单击滚动条中间的空白处时，每次增加和减少的数值。系统默认的数值为1，取值范围为1～32767，用户可以自己修改SmallChange：设置鼠标单击滚动条两边的箭头时，每次增加和减少的数值。系统默认的数值为1，取值范围为1～32767，用户可以自己修改。4.3.4滚动条滚动条控件的事件滚动条控件的常用事件有Scroll事件和Change事件。Scroll（滑动）事件单击滚动箭头或单击滚动条均不能触发该事件，仅在移动滚动滑块时被触发。一般可用该事件来跟踪滚动条的动态变化。Change（变化）事件单击滚动箭头、单击滚动条或移动滚动滑块时均可触发该事件。一般可用该事件来获得移动后滚动条的最后值。4.3.4滚动条

利用水平滚动条和垂直滚动条的滚动，分别改变标签中文字的字体和颜色。

对象属性属性值LabelNameLabel1Caption滴水穿石HScrollBarNameHScroll1Max48Min8VScrollBarNameVScroll1Max3Min1LabelNameLabel2Caption字体颜色LabelNameLabel3Caption黑体LabelNameLabel4Caption宋体LabelNameLabel5Caption隶书界面设计：4.3.4滚动条PrivateSubHScroll1_Change()

Label1.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)EndSubPrivateSubVScroll1_Change()