(完整版)VB常用标准控件(一)

表单的常用控件陈耀清摄于三亚西安工大北信经济、市营、国贸适用1.标签2.文本控件3.计时器4.命令按钮5.组合框6.单选钮7.复选框陈耀清摄于太湖（2001年2月）8.微调按钮9.图像10.表格11.命令按钮组12.页框13.形状14.线条本章主要内容6.1文本控件Label和Text陈耀清摄于三亚海滨2003.8标签一般用于在程序的运行中显示不变的文本信息，常用来标注不具有Caption

特性的控件。标签控件的图标为

标签的默认名称为LableX，其中“X”为建立文本框先后顺序的序号。如对象名：Lable1、Lable2等。标签的属性可分为通用属性和其他属于性。其中通用属性是许多控件共同具有的属性。6.1.1标签Lable通用属性,实用于LableText(无Caption)FormcommandPictrueimage等控件控件的的通用属性汇总如下：Caption显示在对象上的字符Name对象名称FontBold

粗体FontItalic

斜体Fontname

字体名Fontsize

字大小FontUnderline

下画线Height对象的高度Width对象的宽度Left左边矩Top上边矩Backcolor

背景色Forecolor

前景色Enabled是否有效(true有效false无效)Visible是否可见(true可见false隐藏)一、

标签（Lable)的通用属性1.名称与标题

Name名称

Caption标题(给出标签中显示的文本).

2.大小和位置

Height

高度

Width

宽度

Lift

左边距

Top

顶边距6.1标签的属性3.字体、字号和字形FontName

字体FontSize

字号FontBold

粗体FontItalic

斜体FontUnderline

下画线Fontstirkethru

删除线6.1标签的属性以上属性为通用属性,实用于LableText(无Caption)FormcommandPictrueimage二、

标签（Lable)的其他属性1.

对齐方式与大小调整Alignment0左对齐显示

1右对齐显示

2居中显示AutosizrTrue自动调整大小以容下标题

False保持设计时的大小.超出字符不显示WordWrap

True在垂直方向改变大小与标题匹配

False在水平方向改变大小与标题匹配6.1标签的属性2.外观属性Visible对象可见不可见

TRUE可见False不可见Enabled对象有效

True有效,清晰显示

False无效,灰色显示BackStyle

标签透明与不透明

0透明1不透明（默认）BorderStyle

标签的边框

0无边框（默认）1有边框6.1标签的属性PrivateSubLabel1_Click()Label1.FontSize=22:Label1.FontName="华文行楷"Label1.WordWrap=False‘水平方向改变大小与内容匹配

BorderStyle=0:Label1.BackStyle=0‘无边框

标签透明

Label1.ForeColor=RGB(0,0,255)Label1.Caption=“风急天高猿啸哀,褚青沙白乌飞回。；无边落木萧萧下,不尽长江滚流来。"Label2.FontSize=22:Label2.FontName="方正舒体"Label2.WordWrap=False

BorderStyle=0:Label2.BackStyle=0Label2.ForeColor=RGB(255,0,0)Label2.Caption=“万里悲秋常作客,百年多病独登台。；艰难苦恨繁霜鬓,潦倒新停浊酒杯。“EndSub例:标签的字体字形设置.Caption属性.边框.透明设置PB06PB07

例:标签中字形、字体、字号的设置PrivateSubLabel1_Click()Label1.Caption=“信息管理"Label1.Parent.FontName="华文行楷"Label1.FontSize=40Label1.FontItalic=True'斜体

Label1.FontUnderline=True'加下画线

Label1.Alignment=2'居中

Label1.BorderStyle=0'无边框

Label1.BackStyle=0'透明Label1.ForeColor=RGB(255,0,0)'设置前景(字符)为红色EndSub6.1.2文本框（Text)文本框是一个文本编辑区，一般用于在程序的运行中输入、编辑和显示文本。文本框控件的图标为

文本框的默认名称为TextX，其中“X”为建立文本框先后顺序的序号。如对象名：Text1、Text2等。6.1.2文本枉的属性一、Text的通用属性：Text显示在文本框中的字符（无Capation属性）Name对象名称Enabled是否有效(true有效清晰显示，false无效灰色显示)Visible是否可见(true可见false隐藏)FontBold

粗体FontItalic

斜体Fontname

字体名Fontsize

字大小FontUnderline

下画线Height高度Width宽度Left左边矩Top上边矩二、文本框的其也属性1.外观属性BackColor

背景色ForeColor

前景(字符)色BorderStyle

标签的边框

0无边框（默认）

1有边框6.1标签的属性前景色、背景色、有边框和无边框的设置效果MaxLength

允许最大字符数

0允许32k多行文本(默认)Multiline

设置本文是否换行

True允许多行文本

False不允许换行Scrollbars为文本框设置滚动条

0无滚动条

1只有水平滚动条

2只有垂直滚动条

3同时有水平和垂直滚动条2.文本显示方式三、文本框的事件和方法1.文本框的事件Clisk

单击文本框时触发该事件Change向文本框中输入字符或改变或新设置文本框的属性都可触发该事件.GotFocus

当焦点进入文本框时触发该事件LostFocus

当文本框失去焦点时触发该事件2.文本框常用方法:SetFocus

[对象.]SetFocus

将光标移到指定的文本框中6.1文本控件PrivateSubCommand1_Click()Command1.Move200,8000,1500,700Command2.Move200,9000,1500,700Text1.FontName="华文行楷":Text1.FontSize=20Text1.Text="长安一片月，万户捣衣声。秋风吹不尽，总是玉关情。何日平胡虏，良人罢远征。"+"明朝驿使发，一夜絮征袍。素手抽针冷，哪堪把剪刀。裁缝寄远道，几日到临洮。"EndSubPrivateSubText1_Change()‘Text1的Change事件

Text2.FontName="华文行楷":Text2.FontSize=20Text2.BorderStyle=0Text2.Text=Text1.TextEndSubPB09例：命令按钮的移动定位，文本框的字体、字形设置，Text属性PrivateSubCommand1_Click()Text1.FontSize=20Text1.Text="McrosoftVisualBasic"EndSubPrivateSubText1_Change()‘文本框的Change事件

Text2.FontSize=20Text2.Text=LCase(Text1.Text)Text3.FontSize=20Text3.Text=UCase(Text1.Text)EndSubPrivateSubCommand2_Click()EndEndSub6.1文本控件程序PA03例：Change事件，字体字号设置例：文本框的Change事件、Text属性、BorderStyle属性PrivateSubCommand1_Click()Text1.FontName="华文行楷":Text1.FontSize=20Text1.Text=“长安一片月，万户捣衣声。秋风吹不尽，总是玉关情。何日平胡虏，良人罢远征。明朝驿使发，一夜絮征袍。素手抽针冷，哪堪把剪刀。裁缝寄远道，几日到临洮。"EndSubPrivateSubText1_Change()Text2.FontName="华文行楷":Text2.FontSize=20Text2.BorderStyle=0Text2.Text=Text1.TextEndSubPrivateSubCommand2_Click()EndEndSubPB09Text1Text2PB09PrivateSubCommand1_Click()EndEndSubPrivateSubText1_Change()

MultiLine=True‘接受多行文本

ScrollBars=3‘设置滚动条

Text1.FontSize=24Text1.PasswordChar=“*”‘输入的字符显示为"*"Text2.FontSize=24Text2.BackColor=RGB(200,250,150)Text2.Text=Text1.Text‘Text1文本复制到Text2中EndSub例：设置输入的字符的显示字符.

Text.PassWordChar=*PB02PrivateSubScore_LostFocus()x=Val(Score.Text)

FontSize=20:Text1.FontSize=20Text2.FontSize=20:Text3.FontSize=20Ifx<0Orx>100Then

Score.Text=""

Score.SetFocusText1.ForeColor=RGB(255,0,0)Text1.Text="请重新输入！"ElseText1.Text=xs=s+x:Text2.Text=sn=n+1:Text3.Text=Format(s/n,"###.#0")

Score.Text=“"EndIfEndSubScore6.1文本控件PD07例：Text的SetFocus属性、事件，Text与Lable的作用四、Lable与Text作用和用法比较PD07图中用白线圈出的部分均Lable,用红线圈出的部分均Text,1.作用:

在程序运行中不变的字符应放在标签中.

变动的内容放在Text中.2.用法Lable中的字符用Caption属性实现:Text中的内容用Text属性实现例如:Lable1.Caption=“请输入成绩:”Text1.Text=Score6.2图形控件6.2

图形控件

------Image和PictureBox6.2.1图片框与图像框一、图片框与图像框的比较1.图片框是容器,图像框则不是.2.图片框可以通过Print接改文本,图像框则不能。3.图像框有Stretch属性图片框则无此属性图片框有Autosize属性,图像框无此属性4.图像框比图片框占用内存少,运行速度快5.图片框的默认名称为PictureX，图像框图为ImageX.PictureBox图片框图标Image图像框图标6.2图形控件二、图片框和图像框的通用属性NameHeightWidthLeftTopFontBoldFontItalicFontNameFontSizeFontUnderlineEnabledVisibleAutoRedraw6.1图形控件三、图像框的Stretch属性与图片框的Autosize属性1.图像框的Stretch属性

Image1.Stretch=True图形自动调整其大小,以与图像框匹配

Image1.Stretch=Falsr

图形不能调整其大小图片框无此属性.2.图片框的Autosize属性

Picture1.Autosize=True图像框自动调整其大小,

以与图形匹配

Picture1.Autosize=Falsr

图像框不能调整其大小图像框无此属性.PrivateSubPicture1_Click()Picture1.FontSize=16Picture1.FontName="黑体"Picture1.AutoSize=TruePicture1.Print"图片框通过print接收文本"EndSubPrivateSubPicture2_Click()Picture2.AutoSize=TruePicture2.Picture=LoadPicture("L:\PIC\P9.GIF")EndSubPF09Picture的Print属性和Autosize属性运行前（左）和运行后（右）的窗体4.Stretch属性（图像框的属性）

True自动调整图片的大小，以与图像框大小相符(左)

Flase

不能调整图片大小(右)6.1图形控件PB04PB04四、图形文件的装入1.可装入图形控件的图形文件的格式Bitmap位图Icon图标.扩展名为ico或curMetafile图元文件,扩展名为WMF、EMFJPEG压缩位图格式，扩展名为JPGGIF压缩位图格式,扩展名为GIF(1)通过属性窗口的Picture设置，将选定的图形文件装入图像框、图片框、窗体中。(2)将剪切板中的图片贴粘到图片框或图片中去.(3)在运行期间装入图形文件。格式为:

[对象.]Picture=LoadPicture(“文件名”)“文件名”包括路径、文件名和扩展名。缺省路径则为当前路径。例如：FM=“L:\PIC\B2.BMP"Picture1.Picture=LoadPicture(FM)或：Picture1.Picture=LoadPicture(“L:\PIC\B2.BMP")

2.

装入图片的一般方法PrivateSubCommand1_Click()EndEndSubPrivateSubHScroll1_Change()X=HScroll1.ValueText1.Text=XN=Trim$(Str$(X))FM="L:\PIC\B"+N+".BMP"

Picture1.Picture=

LoadPicture(FM)EndSub

在文件夹“L:\PIC\“中存放有B1、B2、…B10的BMP图形文件，拖动动滚动条可依次观查这些图片。滚动条在本章稍后介绍。6.1图形控件PE01PrivateSubCommand1_Click()Image1.Picture=LoadPicture("l:\pic\p4.gif")Image2.Picture=LoadPicture("l:\pic\p6.gif")EndSubPrivateSubTimer1_Timer()Image3.Picture=Image1.PictureImage1.Picture=Image2.PictureImage2.Picture=Image3.PictureImage3.Picture=LoadPicture()EndSubPrivateSubCommand2_Click()EndEndSubPrivateSubCommand1_Click()Image1.Picture=LoadPicture("l:\pic\p4.gif")Image2.Picture=LoadPicture("l:\pic\p6.gif")EndSubPrivateSubTimer1_Timer()Image3.Picture=Image1.PictureImage1.Picture=Image2.PictureImage2.Picture=Image3.PictureImage3.Picture=LoadPicture()EndSubPrivateSubCommand2_Click()EndEndSubPrivateSubCommand1_Click()Image1.Picture=LoadPicture("l:\pic\p4.gif")Image2.Picture=LoadPicture("l:\pic\p6.gif")EndSubPrivateSubTimer1_Timer()Image3.Picture=Image1.PictureImage1.Picture=Image2.PictureImage2.Picture=Image3.PictureImage3.Picture=LoadPicture()EndSubPrivateSubCommand2_Click()EndEndSub例：两图片框定时交换图片(据例6.4修改)PD01PrivateSubCommand1_Click()IfImage1.Visible=TrueThenImage1.Visible=False‘不可见

Image2.Visible=True‘可见

ElseIfImage2.Visible=TrueThenImage2.Visible=FalseImage3.Visible=TrueElseImage3.Visible=FalseImage1.Visible=TrueEndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Image2.Visible=FalseImage3.Visible=FalseEndSub命令按钮按下时，按钮中出现图片，这一方法稍后介绍。6.3按钮控件PF02例图像框可见与不可见五、当前坐标的设置设置格式:[对象.]CurrentX[=X][对象.]CurrentY[=Y]对象可以是窗体、图片框和打印机。缺省对象为窗体；缺省[=X]、[=Y]为返回当前坐标。默认坐标单位为缇(tiwp)6.1图形控件6.2.2直Line和形状Shape一、直线Line的属性：Name直线的名称Visible可见与不可见(X1,Y1)(X2,Y2)直线的起点坐标、终点坐标BorderColor

直线的颜色BorderStyle

线型

0—透明1—实线2—虚线

3—点线

4—点划线5—双点划线6—内实线BorderWidth

直线的宽度二、形状Shape的属性：NameVisibleHeightWidthTopLeftBorderColor

形状边界线的颜色BorderWidth

形状边界线的宽度BorderStyle

形状边界线的线型

0—透明1—实线2—虚线

3—点线

4—点划线5—双点划线6—内实线BackStyle

0—形状透明1—形状可被选定的颜色填充BackColor

指定形状内部的填充色Fillstyle

选择形状的填充图案格式：Fillstyle=XX=0~7间的整数Shape设置形状图形

格式：Shape1.Shape=XX=0~5间的整数PrivateSubCommand1_Click()EndEndSubPrivateSubForm_Paint()Fori=0To7

FillStyle=iLine(1400*i,1150)-(1400*i+900,2050),,B

CurrentY=2300

CurrentX=1400*iPrint"填充式样";iNextiEndSubPB08Shape的FillStyle属性PE08PrivateSubCommand1_Click()Shape1.Sh