第6章-常用标准控件

第6章常用标准控件本章要点文本控件（标签、文本框）图形控件（图片框、图像框、直线和形状）按钮控件（命令按钮）选择控件(复选框、单选按钮、列表框、组合框)滚动条计时器和框架焦点与Tab顺序6.1概述工具箱控件图指示器标签框架复选框组合框水平滚动条时钟目录列表框形状图象框OLE图片框文本框命令按钮单选按钮列表框垂直滚动条驱动器列表文件列表直线Data控件是VB中预先定义好了的、程序中能够直接使用的对象，每个控件都有自己的属性、事件和方法。VB有三种控件：标准控件：存在于工具栏中，不可删除。被封装在VB的.exe文件中，不可以删除。ActiveX控件：由第三方制造的，以独立文件存在，扩展名为.ocx,使用前必须添加到工具栏中。可插入的对象：如Execl,Word等能添加到工具栏中，所以也是控件。6.1概述向工具箱中添加控件的方法如果想使用标准工具箱中没有的控件，则必须将该控件添加到工具箱中。添加过程如下：工程-部件-控件工程-部件-可插入对象6.1文本控件标签：只能显示文本，不能进行编辑。文本框：既可显示文本，又可输入文本。默认名称(name):Labelx和Textx(x为1,2…)6.1.1标签标签：用来显示文本信息，它所显示的信息只能通过Caption属性设置或修改，不能直接编辑。可以为其他控件添加描述性信息(文本框、列表框、组合框等)标签的属性属性值说明0(默认值)从左边开始显示标题，即左对齐1从右边开始显示标题，即右对齐2从中间开始显示标题，即居中对齐Alignment：设置标签中文本的对齐方式。AutoSize：设置标签是否能够自动调整大小以显示所有的内容。其中：属性值为False(默认值)表示显示控件的原始大小，属性值为True表示根据控件中的内容自动调整控件大小。Appearance：设置标签的外观是否以3D效果显示。1为3D效果显示，0为平面效果显示。BackStyle：设置标签的背景样式。语法格式：对象.Backstyle[=0或1]

其中：属性值为1(默认值)表示背景是不透明的；属性值为0表示背景是透明的。BorderStyle：设置标签的边框样式。其中：属性值为0(默认值)表示无边框；属性值为1表示单线边框。Caption：设置标签的文本内容。标签中的文本只能通过Caption属性显示。Enabled：激活属性（该属性用来确定一个窗体或控件是否能够对用户产生的事件做出反应）其中：属性值为True时，允许对象对事件作出反应；False时，禁止对事件做出反应，在这种情况下，对象变为灰色(运行后才能看到效果)。WordWrap:该属性用来决定标签标题的显示方式。为了是WordWrap起作用，应把Autosize属性设置为True。标签的事件和方法标签具有Click(单击)，DbClick(双击)等事件，但一般不需要编写代码。标签的方法中常用的只有Move，其基本语法如下：

其中：left，top，width，height分别表示移动目的位置的坐标和大小。left为必要参数，其他三个为可选参数。一般情况下标签不使用其他方法。对象名.Moveleft,top,width,height例题：设计一个界面说明标签的基本属性的使用

界面设计属性设置对象名属性名属性值Label1Caption默认值Label2Caption学习VBAutoSizeTrueBackStyle0(透明)BorderStyle1(单线边框)运行结果6.1.2文本框文本框是一个文本编辑区域，主要用于接收用户的输入、输出、修改等信息，可以输入单行文本，也可以输入多行文本，在程序运行过程中具有良好的交互性。文本框的属性Name：设置文本框的名称。Text：设置文本框中显示的文本内容。语法格式：对象名.Text=字符串Locked：设置文本框是否可以被编辑。语法格式：

其中：属性值为False（默认值）表示文本内容可以编辑；属性值为True表示文本内容只能读但不能修改。MaxLength：设置文本框中输入的字符串最大长度。其中：属性值为0（默认值）表示文本框中字符串的长度为任意值，只受操作系统内存的限制；属性值为大于0的整数，该整数表示能够输入的最大字符数目。对象名.Locked={True|False}MultiLine：设置文本框是否可以输入多行文本。语法格式：其中：属性值为False（默认值）表示只能单行显示，不能显示多行；属性值设置为True，表示可以多行显示文本，若文本行数超过文本框宽度，系统会自动为文本框添加滚动条。按Ctrl+Enter键可以插入一个空行。

对象名.MultiLine={True|False}PasswordChar：设置是否在文本框中显示用户所输入的字符串。语法格式为：其中：该属性如被设置为某一字符，如“*”，则无论在Text属性值中输入什么，在文本框中都只显示“*”。使用该属性可以设置密码。对象名.PasswordChar=

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

对象名.ScrollBars={0|1|2|3}属性值说明0（默认值）表示没有滚动条1表示只有水平滚动条2表示只有垂直滚动条3表示既有水平滚动条又有垂直滚动条注意：只用当MultiLine属性被设置为True时，才能用ScrollBars属性在文本框中设置滚动条。SelLength、SelStart和SelText：控制文本框中的插入点和文本选定操作，这些属性仅能在运行时使用。语法格式：对象名.SelLength=数值对象名.SelStart=数值对象名.SelText=字符串其中：SelLength设置选定文本的长度，只能在代码中使用，若值为0，表示未选中任何内容。SelStart设置选定文本的起始点，只能在代码中使用，第一个字符位置是0。SelText设置当前选定文本的内容，如果没有选择文本，则该属性含有一个空字符串。只能在代码中使用。文本框事件Change：当用户改变文本框的内容时，该文本框的Change事件被触发，该事件对应的代码结构如下：

PrivateSubText1_Change()…EndSub例：程序运行时，通过用户输入，同步设置窗体的标题，即用户输入什么，窗体标题就同步显示什么。PrivateSubText1_Change()

Form1.Caption=Text1.TextEndSub例：程序运行时，用户输入密码时，在另一个文本框中显示用户输入的密码。PrivateSubText1_Change()

EndSubText2.Text=Text1.TextGotFocus(获得焦点事件)GotFocus：当文本框具有输入焦点（即处于活动状态时，触发该事件）LostFocus(失去焦点事件)LostFocus:当文本框失去输入焦点（即处于非活动状态时，触发该事件）文本框方法SetFocus：可以设置焦点，其获得焦点的显示效果是焦点（光标）在文本框中闪动。语法格式：该方法可以把焦点移动到指定的文本框中。当在窗体上建立了多个文本框后，可以用该方法把光标置于所需要的文本框。对象名.SetFocus例设计一个程序可检查密码是否正确，密码为“12345”PrivateSubCommand1_Click()

pass=Text1.TextIfpass="12345"ThenLabel2.Caption=“口令正确！"ElseLabel2.Caption=“口令错，重新输入！"EndIfEndSub例计算三角形面积程序。设计一个窗体，窗体中含有3个标签框和4个文本框，3个标签框用来显示提示信息，3个文本框用来输入三角形的边长，剩下的文本框显示计算结果，要求每个三角形的输入数据和计算结果显示在一行，能多行显示。例跟踪输入程序设计一个窗体，窗体中含有2个标签框和1个文本框，运行程序时，在文本框中输入字母，在两个标签框中分别用大写和小写字母显示。6.2图形控件

VB中的图形控件分为图片框(PictureBox)、图像框(Image)、直线（Line）和形状(Shape)控件。图形控件的使用能美化界面和增加界面的趣味性。6.2.1图片框和图像框图片框和图像框是VB中显示图形的两种基本控件。默认名称Picturex和Imagex图片框图片框控件可以用来显示.bmp、.ico、.jpeg、.jpg、.gif等图片类型的文件，且可以绘制图形、显示文本或计算结果，还可以作为容器放置其它控件。图片框属性1.与窗体相同的属性2.其他属性3.CurrentX和CurrentY属性2.其它属性Align：设置图片框在窗体中的显示方式，语法格式对象名.Align={0|1|2|3|4}属性值说明0-None默认值，表示无特殊显示1-AlignTop表示图片框停靠在窗体上端并与窗体一样宽2-AlignBottom表示图片框停靠在窗体底部并与窗体一样宽3-AlignLeft表示图片框停靠在窗体左端并与窗体一样高4-AlignRight表示图片框停靠在窗体右端并与窗体一样高AutoSize：设置控件是否能自动调整大小以适应图片内容。语法格式：对象名.AutoSize={True|False}属性值为False（默认值）表示图片框不能自动改变大小以适应其中的图形，保持原始尺寸，如果图形比图片框大，则超出的部分将被剪切掉；属性值为True表示图片框可以自动调整图片框大小以显示图片的全部内容。Picture：设置图片框控件中显示的图片。在界面设计时，可直接利用属性窗口中的Picture属性设置相应图片的目录装入图片；在程序运行时，可使用LoadPicture函数装载图片，语法格式为：对象名.Picture=LoadPicture("图形文件名")3.CurrentX和CurrentY属性用来设置下一个输出的水平（CurrentX）或垂直（CurrentY）坐标。只能在运行期间使用。格式：[对象.]CurrentX[=X][对象.]CurrentY[=Y]对象可以是窗体、图片框和打印机。图片框的事件和方法事件有Click和DbClick方法有Print、Cls、Move和SetFocus。

图形文件的装入方法1.在设计阶段，通过Picture属性装入。在设计阶段，利用菜单中的“编辑”→“粘贴”功能，将剪贴板中的图片粘贴到图形控件中。方法2.在运行阶段，通过LoadPicture函数装入。语法格式：[对象.]Picture=LoadPicture(“文件名”)卸载图片[对象.]Picture=LoadPicture(“”)保存图片SavePicture函数的功能是用来保存在图片框中处理过的图像。语法格式：

SavePicture对象名.Image,保存文件名例如：SavePicturePicture1.Image,"aa.bmp“SavePicturePicture1.picture,“aa.bmp”

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

Picture1.Picture=Picture2.PicturePicture2.Picture=LoadPicture("d:\6.jpg")EndSub图像框图像框也是用来显形图片，如.bmp、.ico、.jpeg、.jpg图片格式。其装载显示图片的速度较图片框快。常用属性Picture：设置图像框控件中显示的图形。图像框的Picture属性与图片框使用方法相同，既可以通过属性窗口设置图像框的Picture属性来添加图片，也可以通过LoadPicture函数来装载图片。Appearance:设置图像框在运行时是否以3D效果显示。

Stretch：设置是否调整图形的大小以适应图像框控件。图像框没有Autosize属性，但可以使用Stretch属性来拉伸图像大小，使其适应图像框的大小。其中:属性值为False（默认值）表示当图形载入时，图像框本身调整大小，使得图形可以填满图像框；属性值为True表示当图形载入时，图形自动按照图像框的大小来调整大小，使图形填满整个图像框。图像框的事件和方法

常用的事件有：DbClick、Click、MouseDown、MouseMove、MouseUp。常用的方法有：Move方法。图片框和图像框的区别图片框可以作为“容器”，可以存放其他控件，图像框不可以；图片框可以通过Print方法输出文本也可以用绘图方法绘制图形，图像框不可以；图像框比图片框占用内存少，显示速度快，如只显示图片则优先使用图像框；图片框有Autosize属性，而图像框有Stretch属性;图片框比图像框更灵活，适用于动态环境，而图像框适用于静态环境；例：设计一个窗体，说明图像框中Stretch属性的应用。界面设计属性设置如下:对象属性属性值CommandButtonNameCommand1Caption交换PictureBoxNamePicture1PictureBoxNamePicture2VisibleFalseImageNameImage1StretchTrue代码编写如下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.PictureEndSub6.2.3直线和形状直线和形状的默认名称：Linex和Shapex。属性BorderColorBorderStyleBorderWidthBackStyleFillColorFillStyleShape6.3按钮控件命令按钮（CommandButton）命令按钮通常用来在单击时执行指定的操作。默认名称Commandx6.3.1属性CancelDefaultStylePictureDownPictureDisabledPictureTooltiptextCancel：设置命令按钮是否为Cancel按钮，即当用户按Esc键时，是否触发它的Click事件。语法格式：对象名.Cancel={True|False}注意：在一个窗体内，只允许有一个命令按钮的Cancel属性被设置为True,也只允许有一个命令按钮的Default属性被设置为True;Default：设置命令按钮是否为默认按钮，即当运行程序时，用户按回车键时，就激活它。语法格式：其中，属性值为False（默认值）表示该按钮不响应Default事件；属性值为True表示该命令响应Default事件，即当用户按Enter键时，与单击该按钮效果相同。对象名.Default={True|False}Style：设置命令按钮的类型。语法格式：对象名.Style={0|1}属性值说明0(默认值)表示为标准按钮，只显示Caption属性设置的文本1表示为图形风格，只显示由Picture属性指定的图片注意：该属性在运行期间是只读的。Picture：设置命令按钮上显示的图形。语法格式：对象名.Picture=LoadPicture("图形文件名")注意：使用该属性的前提，必须把Style属性设置为1，否则该属性无效。DownPicture：该属性设置当控件被单击并处于“按下”时显示的图形。注意：使用该属性的前提，必须把Style属性设置为1，否则该属性无效。DisabledPicture：设置被禁止操作时显示的图标。注意：使用该属性的前提，必须把Style属性设置为1，否则该属性无效。ToolTipText：设置当鼠标在命令按钮上暂停时显示的文本。

对象名.ToolTipText=字符串命令按钮的事件Click、MouseDown、MouseUp：当单击鼠标时就会触发该三个事件。他们触发的顺序为MouseDown、Click、MouseUp事件。注意：命令按钮不支持双击DblClick事件。例1：窗体放大程序PrivateSubCommand1_Click()Form1.MoveLeft+500,Top-500,Width+500,Height+500EndSubPrivateSubCommand2_Click()

Form1.MoveLeft-500,Top+500,Width-500,Height-500EndSubPrivateSubCommand3_Click()EndEndSub例2:变化图形的按钮程序设计一个窗体，在窗体上添加2个图形按钮，运行程序时，若用户鼠标移动到按钮上，显示提示信息，单击该按钮，会改变按钮上的图形，同时使该按钮变为不能操作的按钮，使另一个按钮变为可操作的按钮。PrivateSubCommand1_Click()Print"请单击结束按钮"Command1.Picture=LoadPicture("F:\VB\3.jpg")Command1.Enabled=FalseCommand2.Enabled=TrueEndSubPrivateSubCommand2_Click()Print"请单击开始按钮"Command2.Picture=LoadPicture("F:\VB\1.jpg")Command2.Enabled=FalseCommand1.Enabled=TrueEndSubPrivateSubForm_Load()Command1.Enabled=TrueCommand2.Enabled=FalseEndSub6.4选择控件复选框单选按钮6.4.1属性ValueAlignmentStyle例1单选按钮的应用例2复选框的应用例3单选按钮的应用在窗体上建立一个单选按钮数组Opt1，含4个单选按钮，标题分别为“A”，”B”，“C”，“D”，初始状态下，“A”为选中状态。要求程序运行时，使得每单击命令按钮一次，就选中一个单选按钮，如果已经选中最后一个单选按钮，再单击命令按钮，则选中第1个单选按钮。PrivateSubCmd1_Click()IfOpt1(0).Value=TrueThenOpt1(0).Value=FalseOpt1(1).Value=TrueElseIfOpt1(1).Value=TrueThenOpt1(1).Value=FalseOpt1(2).Value=TrueElseIfOpt1(2).Value=TrueThenOpt1(2).Value=FalseOpt1(3).Value=TrueElseOpt1(3).Value=FalseOpt1(0).Value=TrueEndIfEndSub6.7计时器计时器是一个非常有用的控件，主要有两个功能：用于在程序中监视和控制时间进程，即每隔一段固定的时间就有规律地执行一次相同的任务。如定时检测系统或控件的状态、控制控件的移动、设置时钟、倒计时、秒表等；进行某种后台处理。因为计时器控件在设计时可见，运行时隐藏，所以它在界面上的位置和大小无关紧要。但在后台每隔一定的时间，系统就会自动触发一次计时器事件。计时器控件的属性

Enabled（响应）属性功能：设置计时器控件是否开始计时。语法格式：

其中，属性值为True（默认值）表示启动计时器开始计时；属性值为False则表示暂停计时器的使用，待将Enabled属性设置为True时继续运行计时器。Interval（间隔）属性功能：设置两个计时器事件之间的时间间隔。设置时以毫秒（ms）为单位，范围是0～65535ms，系统初始值设置为0。若希望每秒执行n个计时器事件，则将Interval属性的值设置为1000/n。当Interval属性的值为0时，则计时器无效。对象名.Enabled={True|False}对象名.Interval=数值计时器的事件计时器只有Timer事件。Timer事件具有周期性，在每隔Interval指定的时间间隔，就执行一次Timer事件过程。在实际运用中，经常用Timer事件来实现有规律的重复操作和简单的动画。注意：计时器事件发生越频繁，响应事件所使用的处理器事件就越多，这将降低系统综合性能。因此，除非有必要否则不要设置过小的时间间隔。例：设计一个窗体，运行窗体后，图片会不停地闪动。PrivateSubTimer1_Timer()

Picture1.Visible=Not(Picture1.Visible)EndSub对象属性属性值TimerNameTimer1EnabledTrueTimer1100PictureBoxNamePicture1Picture1D:\a003.bmp6.8框架在VB中，可以作为其他对象容器的有窗体、图片框和框架。框架的主要作用是将窗体上的控件进行分组，让窗体界面整齐。框架的属性

Caption：设置框架的标题，说明框架的功能。Enabled：设置框架及框架内控件是否可用。属性值为True（默认值