(完整版)VB常用標(biāo)準(zhǔn)控件(一)

表單的常用控件陳耀清攝于三亞西安工大北信經(jīng)濟(jì)、市營(yíng)、國(guó)貿(mào)適用1.標(biāo)簽2.文本控件3.計(jì)時(shí)器4.命令按鈕5.組合框6.單選鈕7.復(fù)選框陳耀清攝于太湖（2001年2月）8.微調(diào)按鈕9.圖像10.表格11.命令按鈕組12.頁(yè)框13.形狀14.線條本章主要內(nèi)容6.1文本控件Label和Text陳耀清攝于三亞海濱2003.8標(biāo)簽一般用于在程序的運(yùn)行中顯示不變的文本信息，常用來(lái)標(biāo)注不具有Caption

特性的控件。標(biāo)簽控件的圖標(biāo)為

標(biāo)簽的默認(rèn)名稱為L(zhǎng)ableX，其中“X”為建立文本框先后順序的序號(hào)。如對(duì)象名：Lable1、Lable2等。標(biāo)簽的屬性可分為通用屬性和其他屬于性。其中通用屬性是許多控件共同具有的屬性。6.1.1標(biāo)簽Lable通用屬性,實(shí)用于LableText(無(wú)Caption)FormcommandPictrueimage等控件控件的的通用屬性匯總?cè)缦拢篊aption顯示在對(duì)象上的字符Name對(duì)象名稱FontBold

粗體FontItalic

斜體Fontname

字體名Fontsize

字大小FontUnderline

下畫(huà)線Height對(duì)象的高度Width對(duì)象的寬度Left左邊矩Top上邊矩Backcolor

背景色Forecolor

前景色Enabled是否有效(true有效false無(wú)效)Visible是否可見(jiàn)(true可見(jiàn)false隱藏)一、

標(biāo)簽（Lable)的通用屬性1.名稱與標(biāo)題

Name名稱

Caption標(biāo)題(給出標(biāo)簽中顯示的文本).

2.大小和位置

Height

高度

Width

寬度

Lift

左邊距

Top

頂邊距6.1標(biāo)簽的屬性3.字體、字號(hào)和字形FontName

字體FontSize

字號(hào)FontBold

粗體FontItalic

斜體FontUnderline

下畫(huà)線Fontstirkethru

刪除線6.1標(biāo)簽的屬性以上屬性為通用屬性,實(shí)用于LableText(無(wú)Caption)FormcommandPictrueimage二、

標(biāo)簽（Lable)的其他屬性1.

對(duì)齊方式與大小調(diào)整Alignment0左對(duì)齊顯示

1右對(duì)齊顯示

2居中顯示AutosizrTrue自動(dòng)調(diào)整大小以容下標(biāo)題

False保持設(shè)計(jì)時(shí)的大小.超出字符不顯示W(wǎng)ordWrap

True在垂直方向改變大小與標(biāo)題匹配

False在水平方向改變大小與標(biāo)題匹配6.1標(biāo)簽的屬性2.外觀屬性Visible對(duì)象可見(jiàn)不可見(jiàn)

TRUE可見(jiàn)False不可見(jiàn)Enabled對(duì)象有效

True有效,清晰顯示

False無(wú)效,灰色顯示BackStyle

標(biāo)簽透明與不透明

0透明1不透明（默認(rèn)）BorderStyle

標(biāo)簽的邊框

0無(wú)邊框（默認(rèn)）1有邊框6.1標(biāo)簽的屬性PrivateSubLabel1_Click()Label1.FontSize=22:Label1.FontName="華文行楷"Label1.WordWrap=False‘水平方向改變大小與內(nèi)容匹配

BorderStyle=0:Label1.BackStyle=0‘無(wú)邊框

標(biāo)簽透明

Label1.ForeColor=RGB(0,0,255)Label1.Caption=“風(fēng)急天高猿嘯哀,褚青沙白烏飛回。；無(wú)邊落木蕭蕭下,不盡長(zhǎng)江滾流來(lái)。"Label2.FontSize=22:Label2.FontName="方正舒體"Label2.WordWrap=False

BorderStyle=0:Label2.BackStyle=0Label2.ForeColor=RGB(255,0,0)Label2.Caption=“萬(wàn)里悲秋常作客,百年多病獨(dú)登臺(tái)。；艱難苦恨繁霜鬢,潦倒新停濁酒杯?！癊ndSub例:標(biāo)簽的字體字形設(shè)置.Caption屬性.邊框.透明設(shè)置PB06PB07

例:標(biāo)簽中字形、字體、字號(hào)的設(shè)置PrivateSubLabel1_Click()Label1.Caption=“信息管理"Label1.Parent.FontName="華文行楷"Label1.FontSize=40Label1.FontItalic=True'斜體

Label1.FontUnderline=True'加下畫(huà)線

Label1.Alignment=2'居中

Label1.BorderStyle=0'無(wú)邊框

Label1.BackStyle=0'透明Label1.ForeColor=RGB(255,0,0)'設(shè)置前景(字符)為紅色EndSub6.1.2文本框（Text)文本框是一個(gè)文本編輯區(qū)，一般用于在程序的運(yùn)行中輸入、編輯和顯示文本。文本框控件的圖標(biāo)為

文本框的默認(rèn)名稱為TextX，其中“X”為建立文本框先后順序的序號(hào)。如對(duì)象名：Text1、Text2等。6.1.2文本枉的屬性一、Text的通用屬性：Text顯示在文本框中的字符（無(wú)Capation屬性）Name對(duì)象名稱Enabled是否有效(true有效清晰顯示，false無(wú)效灰色顯示)Visible是否可見(jiàn)(true可見(jiàn)false隱藏)FontBold

粗體FontItalic

斜體Fontname

字體名Fontsize

字大小FontUnderline

下畫(huà)線Height高度Width寬度Left左邊矩Top上邊矩二、文本框的其也屬性1.外觀屬性BackColor

背景色ForeColor

前景(字符)色BorderStyle

標(biāo)簽的邊框

0無(wú)邊框（默認(rèn)）

1有邊框6.1標(biāo)簽的屬性前景色、背景色、有邊框和無(wú)邊框的設(shè)置效果MaxLength

允許最大字符數(shù)

0允許32k多行文本(默認(rèn))Multiline

設(shè)置本文是否換行

True允許多行文本

False不允許換行Scrollbars為文本框設(shè)置滾動(dòng)條

0無(wú)滾動(dòng)條

1只有水平滾動(dòng)條

2只有垂直滾動(dòng)條

3同時(shí)有水平和垂直滾動(dòng)條2.文本顯示方式三、文本框的事件和方法1.文本框的事件Clisk

單擊文本框時(shí)觸發(fā)該事件Change向文本框中輸入字符或改變或新設(shè)置文本框的屬性都可觸發(fā)該事件.GotFocus

當(dāng)焦點(diǎn)進(jìn)入文本框時(shí)觸發(fā)該事件LostFocus

當(dāng)文本框失去焦點(diǎn)時(shí)觸發(fā)該事件2.文本框常用方法:SetFocus

[對(duì)象.]SetFocus

將光標(biāo)移到指定的文本框中6.1文本控件PrivateSubCommand1_Click()Command1.Move200,8000,1500,700Command2.Move200,9000,1500,700Text1.FontName="華文行楷":Text1.FontSize=20Text1.Text="長(zhǎng)安一片月，萬(wàn)戶搗衣聲。秋風(fēng)吹不盡，總是玉關(guān)情。何日平胡虜，良人罷遠(yuǎn)征。"+"明朝驛使發(fā)，一夜絮征袍。素手抽針冷，哪堪把剪刀。裁縫寄遠(yuǎn)道，幾日到臨洮。"EndSubPrivateSubText1_Change()‘Text1的Change事件

Text2.FontName="華文行楷":Text2.FontSize=20Text2.BorderStyle=0Text2.Text=Text1.TextEndSubPB09例：命令按鈕的移動(dòng)定位，文本框的字體、字形設(shè)置，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事件，字體字號(hào)設(shè)置例：文本框的Change事件、Text屬性、BorderStyle屬性PrivateSubCommand1_Click()Text1.FontName="華文行楷":Text1.FontSize=20Text1.Text=“長(zhǎng)安一片月，萬(wàn)戶搗衣聲。秋風(fēng)吹不盡，總是玉關(guān)情。何日平胡虜，良人罷遠(yuǎn)征。明朝驛使發(fā)，一夜絮征袍。素手抽針冷，哪堪把剪刀。裁縫寄遠(yuǎn)道，幾日到臨洮。"EndSubPrivateSubText1_Change()Text2.FontName="華文行楷":Text2.FontSize=20Text2.BorderStyle=0Text2.Text=Text1.TextEndSubPrivateSubCommand2_Click()EndEndSubPB09Text1Text2PB09PrivateSubCommand1_Click()EndEndSubPrivateSubText1_Change()

MultiLine=True‘接受多行文本

ScrollBars=3‘設(shè)置滾動(dòng)條

Text1.FontSize=24Text1.PasswordChar=“*”‘輸入的字符顯示為"*"Text2.FontSize=24Text2.BackColor=RGB(200,250,150)Text2.Text=Text1.Text‘Text1文本復(fù)制到Text2中EndSub例：設(shè)置輸入的字符的顯示字符.

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="請(qǐng)重新輸入！"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.作用:

在程序運(yùn)行中不變的字符應(yīng)放在標(biāo)簽中.

變動(dòng)的內(nèi)容放在Text中.2.用法Lable中的字符用Caption屬性實(shí)現(xiàn):Text中的內(nèi)容用Text屬性實(shí)現(xiàn)例如:Lable1.Caption=“請(qǐng)輸入成績(jī):”Text1.Text=Score6.2圖形控件6.2

圖形控件

------Image和PictureBox6.2.1圖片框與圖像框一、圖片框與圖像框的比較1.圖片框是容器,圖像框則不是.2.圖片框可以通過(guò)Print接改文本,圖像框則不能。3.圖像框有Stretch屬性圖片框則無(wú)此屬性圖片框有Autosize屬性,圖像框無(wú)此屬性4.圖像框比圖片框占用內(nèi)存少,運(yùn)行速度快5.圖片框的默認(rèn)名稱為PictureX，圖像框圖為ImageX.PictureBox圖片框圖標(biāo)Image圖像框圖標(biāo)6.2圖形控件二、圖片框和圖像框的通用屬性NameHeightWidthLeftTopFontBoldFontItalicFontNameFontSizeFontUnderlineEnabledVisibleAutoRedraw6.1圖形控件三、圖像框的Stretch屬性與圖片框的Autosize屬性1.圖像框的Stretch屬性

Image1.Stretch=True圖形自動(dòng)調(diào)整其大小,以與圖像框匹配

Image1.Stretch=Falsr

圖形不能調(diào)整其大小圖片框無(wú)此屬性.2.圖片框的Autosize屬性

Picture1.Autosize=True圖像框自動(dòng)調(diào)整其大小,

以與圖形匹配

Picture1.Autosize=Falsr

圖像框不能調(diào)整其大小圖像框無(wú)此屬性.PrivateSubPicture1_Click()Picture1.FontSize=16Picture1.FontName="黑體"Picture1.AutoSize=TruePicture1.Print"圖片框通過(guò)print接收文本"EndSubPrivateSubPicture2_Click()Picture2.AutoSize=TruePicture2.Picture=LoadPicture("L:\PIC\P9.GIF")EndSubPF09Picture的Print屬性和Autosize屬性運(yùn)行前（左）和運(yùn)行后（右）的窗體4.Stretch屬性（圖像框的屬性）

True自動(dòng)調(diào)整圖片的大小，以與圖像框大小相符(左)

Flase

不能調(diào)整圖片大小(右)6.1圖形控件PB04PB04四、圖形文件的裝入1.可裝入圖形控件的圖形文件的格式Bitmap位圖Icon圖標(biāo).擴(kuò)展名為ico或curMetafile圖元文件,擴(kuò)展名為WMF、EMFJPEG壓縮位圖格式，擴(kuò)展名為JPGGIF壓縮位圖格式,擴(kuò)展名為GIF(1)通過(guò)屬性窗口的Picture設(shè)置，將選定的圖形文件裝入圖像框、圖片框、窗體中。(2)將剪切板中的圖片貼粘到圖片框或圖片中去.(3)在運(yùn)行期間裝入圖形文件。格式為:

[對(duì)象.]Picture=LoadPicture(“文件名”)“文件名”包括路徑、文件名和擴(kuò)展名。缺省路徑則為當(dāng)前路徑。例如：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圖形文件，拖動(dòng)動(dòng)滾動(dòng)條可依次觀查這些圖片。滾動(dòng)條在本章稍后介紹。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例：兩圖片框定時(shí)交換圖片(據(jù)例6.4修改)PD01PrivateSubCommand1_Click()IfImage1.Visible=TrueThenImage1.Visible=False‘不可見(jiàn)

Image2.Visible=True‘可見(jiàn)

ElseIfImage2.Visible=TrueThenImage2.Visible=FalseImage3.Visible=TrueElseImage3.Visible=FalseImage1.Visible=TrueEndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Image2.Visible=FalseImage3.Visible=FalseEndSub命令按鈕按下時(shí)，按鈕中出現(xiàn)圖片，這一方法稍后介紹。6.3按鈕控件PF02例圖像框可見(jiàn)與不可見(jiàn)五、當(dāng)前坐標(biāo)的設(shè)置設(shè)置格式:[對(duì)象.]CurrentX[=X][對(duì)象.]CurrentY[=Y]對(duì)象可以是窗體、圖片框和打印機(jī)。缺省對(duì)象為窗體；缺省[=X]、[=Y]為返回當(dāng)前坐標(biāo)。默認(rèn)坐標(biāo)單位為緹(tiwp)6.1圖形控件6.2.2直Line和形狀Shape一、直線Line的屬性：Name直線的名稱Visible可見(jiàn)與不可見(jiàn)(X1,Y1)(X2,Y2)直線的起點(diǎn)坐標(biāo)、終點(diǎn)坐標(biāo)BorderColor

直線的顏色BorderStyle

線型

0—透明1—實(shí)線2—虛線

3—點(diǎn)線

4—點(diǎn)劃線5—雙點(diǎn)劃線6—內(nèi)實(shí)線BorderWidth

直線的寬度二、形狀Shape的屬性：NameVisibleHeightWidthTopLeftBorderColor

形狀邊界線的顏色BorderWidth

形狀邊界線的寬度BorderStyle

形狀邊界線的線型

0—透明1—實(shí)線2—虛線

3—點(diǎn)線

4—點(diǎn)劃線5—雙點(diǎn)劃線6—內(nèi)實(shí)線BackStyle

0—形狀透明1—形狀可被選定的顏色填充BackColor

指定形狀內(nèi)部的填充色Fillstyle

選擇形狀的填充圖案格式：Fillstyle=XX=0~7間的整數(shù)Shape設(shè)置形狀圖形

格式：Shape1.Shape=XX=0~5間的整數(shù)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