1、表單的常用控件陳耀清攝于三亞西安工大北信經濟、市營、國貿適用第1頁，共44頁。1.標簽2.文本控件3.計時器4.命令按鈕5.組合框6.單選鈕7. 復選框陳耀清攝于太湖（2001年2月）8.微調按鈕9.圖像10.表格11.命令按鈕組12.頁框13.形狀14.線條本章主要內容第2頁，共44頁。6.1文本控件Label和Text陳耀清攝于三亞海濱2003.8第3頁，共44頁。標簽一般用于在程序的運行中顯示不變的文本信息，常用來標注不具有Caption 特性的控件。 標簽控件的圖標為 標簽的默認名稱為LableX，其中“X”為建立文本框先后順序的序號。如對象名：Lable1、Lable2等。標簽的屬性

2、可分為通用屬性和其他屬于性。其中通用屬性是許多控件共同具有的屬性。6.1.1 標簽 Lable通用屬性,實用于Lable Text(無Caption) Form command Pictrue image等控件 第4頁，共44頁。控件的的通用屬性匯總如下：Caption 顯示在對象上的字符 Name 對象名稱FontBold 粗體FontItalic 斜體Fontname 字體名Fontsize 字大小 FontUnderline 下畫線Height 對象的高度 Width 對象的寬度 Left 左邊矩 Top 上邊矩Backcolor 背景色Forecolor 前景色Enabled 是否有效

3、 (true 有效 false無效)Visible 是否可見 (true 可見 false隱藏)第5頁，共44頁。一、 標簽（Lable) 的通用屬性1.名稱與標題 Name 名稱 Caption 標題(給出標簽中顯示的文本). 2.大小和位置 Height 高度 Width 寬度 Lift 左邊距 Top 頂邊距6.1 標簽的屬性第6頁，共44頁。3.字體、字號和字形FontName 字體FontSize 字號FontBold 粗體FontItalic 斜體 FontUnderline 下畫線Fontstirkethru 刪除線6.1 標簽的屬性以上屬性為通用屬性,實用于Lable Text

4、(無Caption) Form command Pictrue image 第7頁，共44頁。二、 標簽（Lable) 的其他屬性1. 對齊方式與大小調整Alignment 0 左對齊顯示 1 右對齊顯示 2 居中顯示Autosizr True 自動調整大小以容下標題 False 保持設計時的大小.超出字符不顯示WordWrap True 在垂直方向改變大小與標題匹配 False 在水平方向改變大小與標題匹配6.1 標簽的屬性第8頁，共44頁。2. 外觀屬性Visible 對象可見不可見 TRUE 可見 False 不可見Enabled 對象有效 True 有效,清晰顯示 False 無效,灰

5、色顯示BackStyle 標簽透明與不透明 0 透明 1 不透明（默認） BorderStyle 標簽的邊框 0 無邊框（默認） 1 有邊框6.1 標簽的屬性第9頁，共44頁。Private Sub Label1_Click() Label1.FontSize = 22 : Label1.FontName = 華文行楷 Label1.WordWrap = False 水平方向改變大小與內容匹配 BorderStyle = 0 :Label1.BackStyle = 0 無邊框 標簽透明 Label1.ForeColor = RGB(0, 0, 255) Label1.Caption = “風急

6、天高猿嘯哀, 褚青沙白烏飛回。； 無邊落木蕭蕭下, 不盡長江滾流來。 Label2.FontSize = 22 : Label2.FontName = 方正舒體 Label2.WordWrap = False BorderStyle = 0 : Label2.BackStyle = 0 Label2.ForeColor = RGB(255, 0, 0) Label2.Caption = “萬里悲秋常作客, 百年多病獨登臺。； 艱難苦恨繁霜鬢, 潦倒新停濁酒杯。“ End Sub例:標簽的字體字形設置.Caption 屬性.邊框.透明設置PB06第10頁，共44頁。PB07例:標簽中字形、字體、

7、字號的設置Private Sub Label1_Click() Label1.Caption = “信息管理 Label1.Parent.FontName = 華文行楷 Label1.FontSize = 40 Label1.FontItalic = True 斜體 Label1.FontUnderline = True 加下畫線 Label1.Alignment = 2 居中 Label1.BorderStyle = 0 無邊框 Label1.BackStyle = 0 透明Label1.ForeColor = RGB(255, 0, 0) 設置前景(字符)為紅色End Sub第11頁，共4

8、4頁。6.1.2 文本框（Text) 文本框 是一個文本編輯區，一般用于在程序的運行中輸入、編輯和顯示文本。 文本框控件的圖標為 文本框的默認名稱為TextX，其中“X”為建立文本框先后順序的序號。如對象名：Text1、Text2等。6.1.2 文本枉的屬性第12頁，共44頁。一、Text的通用屬性：Text 顯示在文本框中的字符（無Capation屬性）Name 對象名稱Enabled 是否有效 (true 有效清晰顯示，false無效灰色顯示)Visible 是否可見 (true 可見 false隱藏)FontBold 粗體FontItalic 斜體Fontname 字體名Fontsize

9、 字大小 FontUnderline 下畫線Height 高度 Width 寬度 Left 左邊矩 Top 上邊矩第13頁，共44頁。二、文本框的其也屬性1. 外觀屬性BackColor 背景色ForeColor 前景(字符)色BorderStyle 標簽的邊框 0 無邊框（默認） 1 有邊框6.1 標簽的屬性前景色、背景色、有邊框和無邊框的設置效果第14頁，共44頁。MaxLength 允許最大字符數 0 允許32k多行文本(默認)Multiline 設置本文是否換行 True 允許多行文本 False 不允許換行Scrollbars 為文本框設置滾動條 0 無滾動條 1 只有水平滾動條 2

10、 只有垂直滾動條 3 同時有水平和垂直滾動條2. 文本顯示方式第15頁，共44頁。三、文本框的事件和方法1.文本框的事件Clisk 單擊文本框時觸發該事件Change 向文本框中輸入字符或改變或新設置文本框的屬性都可觸發該事件.GotFocus 當焦點進入文本框時觸發該事件LostFocus 當文本框失去焦點時觸發該事件2.文本框常用方法:SetFocus 對象. SetFocus 將光標移到指定的文本框中6.1 文本控件第16頁，共44頁。Private Sub Command1_Click() Command1.Move 200, 8000, 1500, 700 Command2.Move

11、 200, 9000, 1500, 700 Text1.FontName = 華文行楷: Text1.FontSize = 20 Text1.Text = 長安一片月，萬戶搗衣聲。秋風吹不盡，總是玉關情。何日平胡虜，良人罷遠征。 + 明朝驛使發，一夜絮征袍。素手抽針冷，哪堪把剪刀。裁縫寄遠道，幾日到臨洮。End SubPrivate Sub Text1_Change() Text1的Change事件 Text2.FontName = 華文行楷: Text2.FontSize = 20 Text2.BorderStyle = 0 Text2.Text = Text1.TextEnd SubPB0

12、9 例 ：命令按鈕的移動定位，文本框的字體、字形設置，Text屬性第17頁，共44頁。Private Sub Command1_Click() Text1.FontSize = 20 Text1.Text = Mcrosoft Visual Basic End SubPrivate Sub Text1_Change() 文本框的Change事件 Text2.FontSize = 20 Text2.Text = LCase(Text1.Text) Text3.FontSize = 20 Text3.Text = UCase(Text1.Text) End SubPrivate Sub Comma

13、nd2_Click() EndEnd Sub6.1 文本控件程序PA03例：Change事件，字體字號設置第18頁，共44頁。例：文本框的Change事件、Text屬性、BorderStyle屬性Private Sub Command1_Click() Text1.FontName = 華文行楷: Text1.FontSize = 20 Text1.Text = “長安一片月，萬戶搗衣聲。秋風吹不盡，總是玉關情。何日 平胡虜，良人罷遠征。明朝驛使發，一夜絮征袍。素手抽針冷，哪堪把剪刀。裁縫寄遠道，幾日到臨洮。End SubPrivate Sub Text1_Change() Text2.Fon

14、tName = 華文行楷: Text2.FontSize = 20 Text2.BorderStyle = 0 Text2.Text = Text1.TextEnd SubPrivate Sub Command2_Click() EndEnd SubPB09第19頁，共44頁。Text1 Text2PB09第20頁，共44頁。Private Sub Command1_Click() EndEnd SubPrivate Sub Text1_Change() MultiLine = True 接受多行文本 ScrollBars = 3 設置滾動條 Text1.FontSize = 24 Text1

15、.PasswordChar = “*” 輸入的字符顯示為* Text2.FontSize = 24 Text2.BackColor = RGB(200, 250, 150) Text2.Text = Text1.Text Text1文本復制到Text2中End Sub例：設置輸入的字符的顯示字符. Text.PassWordChar=*PB02第21頁，共44頁。Private Sub Score_LostFocus() x = Val(Score.Text) FontSize = 20 :Text1.FontSize = 20 Text2.FontSize = 20: Text3.FontS

16、ize = 20 If x 100 Then Score.Text = Score.SetFocus Text1.ForeColor = RGB(255, 0, 0) Text1.Text = 請重新輸入！ Else Text1.Text = x s = s + x: Text2.Text = s n = n + 1: Text3.Text = Format(s / n, #.#0) Score.Text = “ End IfEnd SubScore6.1 文本控件PD07例：Text的SetFocus屬性、事件，Text與Lable的作用第22頁，共44頁。四、 Lable與Text作用和用

17、法比較PD07圖中用白線圈出的部分均Lable,用紅線圈出的部分均Text,1. 作用: 在程序運行中不變的字符應放在標簽中. 變動的內容放在Text中.2. 用法Lable中的字符用Caption屬性實現:Text中的內容用Text屬性實現例如:Lable1.Caption=“請輸入成績:”Text1. Text=Score第23頁，共44頁。6.2圖形控件6.2 圖形控件 -Image和PictureBox第24頁，共44頁。6.2.1圖片框與圖像框一、圖片框與圖像框的比較1.圖片框是容器,圖像框則不是.2.圖片框可以通過Print接改文本, 圖像框則不能。3.圖像框有Stretch屬性圖

18、片框則無此屬性圖片框有Autosize屬性,圖像框無此屬性4.圖像框比圖片框占用內存少,運行速度快5.圖片框的默認名稱為PictureX，圖像框圖為ImageX.PictureBox圖片框圖標Image圖像框圖標6.2 圖形控件第25頁，共44頁。二、圖片框和圖像框的通用屬性NameHeightWidthLeftTop FontBoldFontItalicFontNameFontSizeFontUnderlineEnabledVisibleAutoRedraw6.1 圖形控件第26頁，共44頁。三、圖像框的Stretch屬性與圖片框的Autosize屬性1.圖像框的Stretch屬性 Imag

19、e1.Stretch=True 圖形自動調整其大小,以與 圖像框匹配 Image1.Stretch=Falsr 圖形不能調整其大小 圖片框無此屬性.2.圖片框的Autosize屬性 Picture1.Autosize=True 圖像框自動調整其大小, 以與圖形匹配 Picture1.Autosize= Falsr 圖像框不能調整其大小 圖像框無此屬性.第27頁，共44頁。Private Sub Picture1_Click()Picture1.FontSize = 16Picture1.FontName = 黑體Picture1.AutoSize = TruePicture1.Print 圖片

20、框通過print接收文本End SubPrivate Sub Picture2_Click()Picture2.AutoSize = TruePicture2.Picture = LoadPicture(L:PICP9.GIF)End SubPF09 Picture的Print屬性和Autosize屬性運行前（左）和運行后（右）的窗體第28頁，共44頁。4. Stretch屬性（圖像框的屬性） True 自動調整圖片的大小，以與圖像框大小相符(左) Flase 不能調整圖片大小(右)6.1 圖形控件PB04第29頁，共44頁。PB04第30頁，共44頁。四、 圖形文件的裝入1.可裝入圖形控件的

21、圖形文件的格式Bitmap 位圖Icon 圖標.擴展名為ico或curMetafile 圖元文件,擴展名為WMF、EMFJPEG 壓縮位圖格式，擴展名為JPGGIF 壓縮位圖格式,擴展名為GIF第31頁，共44頁。(1)通過屬性窗口的Picture設置，將選定的圖形文件裝入圖像框、圖片框、窗體中。(2)將剪切板中的圖片貼粘到圖片框或圖片中去.(3)在運行期間裝入圖形文件。格式為: 對象. Picture=LoadPicture(“文件名”)“文件名”包括路徑、文件名和擴展名。缺省路徑則為當前路徑。例如：FM = “L:PICB2.BMPPicture1.Picture = LoadPictur

22、e(FM) 或：Picture1.Picture = LoadPicture( “L:PICB2.BMP) 2. 裝入圖片的一般方法第32頁，共44頁。Private Sub Command1_Click() EndEnd SubPrivate Sub HScroll1_Change() X = HScroll1.Value Text1.Text = X N = Trim$(Str$(X) FM = L:PICB + N + .BMP Picture1.Picture = LoadPicture(FM)End Sub 在文件夾“L:PIC“中存放有B1、B2、B10的BMP圖形文件，拖動動滾動

23、條可依次觀查這些圖片。滾動條在本章稍后介紹。6.1 圖形控件PE01第33頁，共44頁。Private Sub Command1_Click() Image1.Picture = LoadPicture(l:picp4.gif) Image2.Picture = LoadPicture(l:picp6.gif)End SubPrivate Sub Timer1_Timer() Image3.Picture = Image1.Picture Image1.Picture = Image2.Picture Image2.Picture = Image3.Picture Image3.Picture

24、 = LoadPicture()End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Command1_Click() Image1.Picture = LoadPicture(l:picp4.gif) Image2.Picture = LoadPicture(l:picp6.gif)End SubPrivate Sub Timer1_Timer() Image3.Picture = Image1.Picture Image1.Picture = Image2.Picture Image2.Picture = Image3.Pict

25、ure Image3.Picture = LoadPicture()End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Command1_Click() Image1.Picture = LoadPicture(l:picp4.gif) Image2.Picture = LoadPicture(l:picp6.gif)End SubPrivate Sub Timer1_Timer() Image3.Picture = Image1.Picture Image1.Picture = Image2.Picture Image2.Pic

26、ture = Image3.Picture Image3.Picture = LoadPicture()End SubPrivate Sub Command2_Click() EndEnd Sub例：兩圖片框定時交換圖片(據例6.4修改)PD01第34頁，共44頁。Private Sub Command1_Click() If Image1.Visible = True Then Image1.Visible = False 不可見 Image2.Visible = True 可見 ElseIf Image2.Visible = True Then Image2.Visible = False

27、 Image3.Visible = True Else Image3.Visible = False Image1.Visible = True End If End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Image2.Visible = False Image3.Visible = FalseEnd Sub 命令按鈕按下時，按鈕中出現圖片，這一方法稍后介紹。6.3 按鈕控件PF02 例圖像框可見與不可見第35頁，共44頁。五、當前坐標的設置設置格式: 對象.CurrentX=X 對象.Current

28、Y=Y對象可以是窗體、圖片框和打印機。缺省對象為窗體；缺省=X 、=Y為返回當前坐標。默認坐標單位為緹(tiwp)6.1 圖形控件第36頁，共44頁。6.2.2 直Line和形狀Shape一、直線Line的屬性：Name 直線的名稱Visible 可見與不可見 (X1,Y1) (X2,Y2) 直線的起點坐標、終點坐標BorderColor 直線的顏色BorderStyle 線型 0透明 1 實線 2 虛線 3點線 4 點劃線 5 雙點劃線 6 內實線BorderWidth 直線的寬度第37頁，共44頁。二、形狀Shape的屬性：Name Visible Height Width Top Lef

29、tBorderColor 形狀邊界線的顏色BorderWidth 形狀邊界線的寬度BorderStyle 形狀邊界線的線型 0透明 1 實線 2 虛線 3點線 4 點劃線 5 雙點劃線 6 內實線BackStyle 0形狀透明 1 形狀可被選定的顏色填充BackColor 指定形狀內部的填充色第38頁，共44頁。Fillstyle 選擇形狀的填充圖案 格式： Fillstyle=X X=07間的整數Shape 設置形狀圖形 格式：Shape1. Shape=X X=05間的整數第39頁，共44頁。Private Sub Command1_Click()EndEnd SubPrivate Sub

30、 Form_Paint()For i = 0 To 7 FillStyle = i Line (1400 * i, 1150)-(1400 * i + 900, 2050), , B CurrentY = 2300 CurrentX = 1400 * i Print 填充式樣; iNext iEnd SubPB08Shape的FillStyle屬性第40頁，共44頁。PE08Private Sub Command1_Click() Shape1.Shape = 0： Shape2.Shape = 1 Shape3.Shape = 2： Shape4.Shape = 3 Shape5.Shape = 4： Shape6.Shape = 5 FontSize = 16 a = Shape2.Left - Shape1.Left F