VB中常用的控件

控件的分類

需要在窗體中放置各種控件，才能實現(xiàn)用戶與應用程序之間的信息交互內(nèi)部控件標簽,文本框,命令按鈕等控件的常用屬性概念:屬性是用來描述和反映對象特征的參數(shù)Name(名稱):所有對象都具有,當在代碼中引用這個對象時,要給出它的名稱.Caption(標題):決定了控件上顯示的內(nèi)容.Enabled:決定了對象在運行時是否允許用戶進行操作.True為允許,False為禁止.Visible:決定了對象在運行時是否可見.True為可見,False為不可見.Font:決定了字符的格式,如字體(FontName,字符型),字號(FontSize,整型),字形(粗體FontBold,斜體FontItalic,帶下劃線FontUnderline,帶刪除線FontStrikethru,邏輯型).Height,Width,Top,Left:給出了控件的大小與位置.ForeColor,BackColor:設(shè)置控件的前景色和背景色.其值是一個十六進制常數(shù).如黑色&H80000008&Rgb(r,g,b)0-255YXTopHeightLeftWidth屬性的設(shè)置方法通過屬性窗口來直接設(shè)置只讀屬性,如Name在代碼中通過賦值實現(xiàn)方法:對象名稱.屬性名稱=設(shè)置值如:Command1.Caption=“確定”Label1.BorderStyle=0/1Text1.FontSize=11Label1.Visible=True/False說明：一般不需要對全部屬性一一設(shè)置,只有當系統(tǒng)提供的默認值不滿足要求時,才重新設(shè)置.對象為窗體時，可以省略對象名稱。標簽〔Label)作用:用于顯示靜態(tài)的,不可修改的文本信息常用作窗體中某些沒有Caption屬性控件的標識說明.如文本框,列表框等.還可為窗體添加說明性文字標簽的屬性名稱：設(shè)置標簽的名稱。Caption:設(shè)置標簽的標題。Font:字體ForeColor和BackColor:前景色和背景色Alignment:改變標簽文本相對于標簽的對齊方式Height,Width:高度和寬度AutoSize:是否可以自動改變尺寸,以適應其內(nèi)容的變化,值為True和False.如為True,那么標簽會根據(jù)其內(nèi)容改變水平方向的尺寸WordWrap:可使標簽框根據(jù)其內(nèi)容自動進行垂直方向的改變,并保持寬度的不變要使Wordrap有效,必須使AutoSize的屬性為True標簽常用事件最常用的事件是Click(單擊)事件和DblClick(雙擊)事件。

例題編寫一程序,要求:當單擊”向上移”按鈕時,標簽上移,當單擊”向下移”按鈕時,標簽下移.程序界面如下圖lbl.Top=lbl.Top–100lbl.Movelbl.Left,lbl.Top-100代碼實現(xiàn)PrivateSubcmdDown_Click()‘向下移lbl.Caption="再見"‘改變顯示的字符lbl.Top=lbl.Top+100‘向下移lbl.Left=lbl.Left+100’向右移EndSubPrivateSubcmdUp_Click()’向上移lbl.Caption="你好"lbl.Top=lbl.Top-100EndSub用Move方法實現(xiàn)移動PrivateSubcmdDown_Click()lbl.Movelbl.Left,lbl.Top+100‘向下移EndSub例題編寫一程序,要求:當單擊”左移”按鈕時,標簽左移,顯示”你好“字符，并且字體變?yōu)椤彪`書“，當單擊”右移”按鈕時,標簽右移，顯示”再見“字符，并且字體變?yōu)閹h除線.程序界面如下圖。程序代碼PrivateSubCommand1_Click()lbl1.Left=lbl1.Left-100lbl1.Caption="你好"Lbl.FontName="隸書"lbl1.FontStrikethru=FalseEndSubPrivateSubCommand2_Click()lbl1.Left=lbl1.Left+100lbl1.Caption="再見"lbl1.FontStrikethru=TrueEndSub文本框〔TextBox)是一個文本編輯區(qū)域,程序運行時可以用來顯示、輸入、編輯文本重要屬性Text:存放了文本框中實際要顯示的文本使用方法：在屬性窗口設(shè)置文本框初始顯示內(nèi)容，默認為Text1在運行時通過代碼設(shè)置或由用戶輸入。如Text1.text=“歡送進入奇妙的VB世界”當用戶對文本框的內(nèi)容進行了輸入、編輯后，可以用該屬性將當前內(nèi)容返回。如Text2.text=Text1.textMultiline:將其值設(shè)為True,可以在文本框中顯示或輸入多行文本.ScrollBars:給文本框加上滾動條,可以顯示較多內(nèi)容,有0~3四個值.只有當Multiline的值為True時,ScrollBars的設(shè)置才有效.Locked:指定文本框中的文本能否被編輯.邏輯值.假設(shè)值為False,那么文本框就相當于標簽.Enabled:設(shè)置文本框是否能對事件產(chǎn)生響應.PasswordChar:在用戶輸入密碼時將輸入字符用”*”等符號屏蔽.ToolTipText:設(shè)置文本框的提示符.MaxLength:最大長度。設(shè)置文本框允許輸入字符的最大數(shù)量。默認值為0，表示不受限制。SelStart:所選文本的起始點，第一個字符的位置為0SelLength:所選文本的長度SelText:選定文本的內(nèi)容,如果沒選中字符,那么為””.3個屬性在設(shè)計時不能用,在運行時能用,與剪貼板配合完成文本的剪切、復制和粘貼.如:Text1.SelStart=0Text1.SelLength=8Text2.Text=Text1.SelText這3條語句用來實現(xiàn)復制文本框Text1中選中的8個字符到文本框Text2中.常用事件和方法文本框支持Click、DblClick等鼠標事件，同時支持Change、GotFocus、LostFocus等事件

文本框常用方法：SetFocus方法例題編寫一個用戶登錄界面程序。要求，當用戶輸入合法的用戶名和密碼后，跳出一個”用戶成功登錄“的信息顯示框；當用戶名或密碼錯誤，那么跳出一個”用戶名或密碼錯誤“的信息警告框?！布僭O(shè)用戶名和密碼分別為：ws和123456。顯示界面如下圖。PrivateSubCommand1_Click()Iftxtuser.Text="ws"Andtxtpwd.Text="123456"ThenMsgBox"你是合法用戶,歡送進入",64,"歡送進入"ElseMsgBox"用戶名或密碼錯誤",16,"錯誤"EndIfEndSubPrivateSubCommand2_Click()txtuser.Text=""txtpwd.Text=""EndSub復制一局部文本的程序代碼PrivateSubCommand1_Click()Text1.SelStart=0Text1.SelLength=10Text2.Text=Text1.SelTextEndSub命令按鈕〔CommandButton〕作用：接收用戶的操作信息，并引發(fā)應用程序的某個操作可以在Caption屬性中為控件指定一個訪問鍵。例如，將命令按鈕的Caption屬性設(shè)置為“結(jié)束(&E)”，那么運行時，只要用戶同時按下Alt鍵和E鍵，就能執(zhí)行該按鈕命令。常用屬性Default屬性和Cancel屬性Default屬性和Cancel屬性分別用于設(shè)置“默認按鈕”和“取消按鈕”

Style屬性:設(shè)置命令按鈕的外觀

它有兩種選擇，一種為0-Standard，表示標準風格的命令按鈕，它不支持背景顏色BackColor和圖片屬性Picture。而1-Graphical，為“圖形顯示”風格，它既能設(shè)置BackColor，也能設(shè)置Picture屬性。所以要讓Command控件顯示圖形，需將其Style屬性設(shè)置為1。

命令按鈕常用事件和方法最常用的事件是Click(單擊)事件，但不支持DblClick(雙擊)事件。常用的方法是SetFocus方法。

主要屬性value:其值有三個：0，1，2。當復選框未被選中時，值為0；當復選框被選中時，值為1；2為灰色被選中并可用。復選框〔CheckBox)作用：用復選框可顯示多個選項，用戶可選定一個或多個選項。一些例子復選框的例子例題界面如下圖。選中紅色復選框,圖片框中顯示紅色；選中綠色,圖片框中顯示綠色；選中藍色,圖片框中顯示藍色單項選擇按鈕〔OptionButton)作用：用來顯示一組選項，用戶可以從中選擇一項。一些例子：屬性Value：其值為邏輯值，當被選中時，值為True,未被選中時，值為False.Caption.可用此屬性為單項選擇按鈕添加快捷鍵.代碼實現(xiàn)Dimr,g,bAsIntegerPrivateSubchkR_Click()IfchkR.Value=1Thenr=255Elser=0EndIfpic.BackColor=RGB(r,g,b)EndSubPrivateSubchkG_Click()IfchkG.Value=1Theng=255Elseg=0EndIfpic.BackColor=RGB(r,g,b)EndSubPrivateSubchkB_Click()IfchkB.Value=1Thenb=255Elseb=0EndIfpic.BackColor=RGB(r,g,b)EndSub例題界面如圖。分別單擊這些按鈕，結(jié)果如何？代碼實現(xiàn)〔1〕PrivateSubOptR_Click()pic.BackColor=RGB(255,0,0)EndSubPrivateSubOptG_Click()pic.BackColor=RGB(0,255,0)EndSubPrivateSubOptB_Click()pic.BackColor=RGB(0,0,255)EndSub框架〔Frame)作用:中選定一個單項選擇按鈕時，其它的自動關(guān)閉。如果需要在同一窗體中建立幾組相互獨立的單項選擇按鈕，就需要用框架將每組單項選擇按鈕框起來，使各組的操作互不影響。用框架將控件框起來，可以提供視覺上的區(qū)分和總體上的激活或屏蔽。創(chuàng)立框架及內(nèi)部控件時，必須先建立框架，然后在其中建立各種控件框架內(nèi)的所有控件將隨框架一起移動，顯示，消失和屏蔽。對框架的操作，也就是對其框住的內(nèi)部控件的操作。例如作業(yè)編寫一程序，界面如圖1所示。當點擊相應的單項選擇按鈕和復選框時，文本框中文字就相應地改變〔如圖2所示〕。代碼實現(xiàn)PrivateSubOptR_Click()txt.ForeColor=RGB(255,0,0)EndSubPrivateSubOptG_Click()txt.ForeColor=RGB(0,255,0)EndSubPrivateSubOptB_Click()txt.ForeColor=RGB(0,0,255)EndSubPrivateSubchkB_Click()txt.FontBold=Nottxt.FontBoldEndSubPrivateSubchkI_Click()txt.FontItalic=Nottxt.FontItalicEndSubPrivateSubchkU_Click()txt.FontUnderline=Nottxt.FontUnderlineEndSub或：PrivateSubchkB_Click()IfchkB.Value=1Thentxt.FontBold=TrueElsetxt.FontBold=FalseEndIfEndSubPrivateSubchkI_Click()IfchkI.Value=1Thentxt.FontItalic=TrueElsetxt.FontItalic=FalseEndIfEndSubPrivateSubchkU_Click()IfchkU.Value=1Thentxt.FontUnderline=TrueElsetxt.FontUnderline=FalseEndIfEndSub列表框(ListBox)作用:顯示工程列表，用戶從中選擇一個或多個，實現(xiàn)與用戶交互。屬性List:存放列表框的工程。是一個字符型的數(shù)組。下標從0開始。ListIndex:表示執(zhí)行時選中的列表項序號。其值為0，1，2…，未選中，那么為-1。ListCount:列表框中工程的個數(shù)。Selected:是一個邏輯數(shù)組。如Selected(0)=True表示第1項被選中。Selected(3)=trueSorted:是否按字母順序排列顯示。為邏輯值。MultiSelect:其值為0，1，2。0：禁止多項選擇，1：簡單多項選擇；2：擴展多項選擇。Text:選中的列表項的文本內(nèi)容。Style:樣式，取值0-standard，1-checkboxColumns:0,1,或大于1列表框的方法〔1〕AddItem:添加工程格式：ListBox.AddItemitem[,index]如：list1.AddItem“紫色“l(fā)ist1.AddItem“紅色“，0〔2〕RemoveItem:移除工程格式：list1.RemoveItem0〔3〕刪除所有工程list1.clear例：添加和刪除列表項建立兩個如下圖的列表框。左邊”選擇你喜歡的水果“的列表框中顯示一些水果的名稱。編程實現(xiàn)：〔1〕當用鼠標單擊左邊列表框中的水果名稱時，選中的水果就會出現(xiàn)在右邊的“你選中的水果”列表框中。〔2〕當在右邊的列表框中單擊水果時，可將水果名稱刪除。程序代碼PrivateSublst1_Click()lst2.AddItemlst1.TextEndSubPrivateSublst2_Click()lst2.RemoveItemlst2.ListIndexEndSub組合框〔ComboBox)作用：它組合了文本框和列表框的特性而形成的一種控件。在列表框中列出各項，如果用戶選中某個選項，在文本框中裝入該選項。如列表框中沒有該選項時，可在文本框中直接鍵入。中直接鍵入。屬性style:設(shè)置組合框的風格和類型Style=0,下拉式組合框?？梢灾苯虞斎胛谋尽Ｎ谋究蛴邢吕^。Style=1,簡單組合框?？芍苯虞斎胛谋荆部蓮牧斜碇羞x擇工程。Style=2,下拉式列表框。只能從列表中選擇工程，不能在文本框中輸入。例子例編程實現(xiàn)。當鼠標單擊選中組合框中的作者名時，右邊顯示該作者的作品。程序代碼PrivateSubcbo1_Click()SelectCasecbo1.TextCase"李白"lbl1.Caption=“靜夜思”&Chr(13)&Chr(13)&“床前明月光，”&Chr(13)&Chr(13)&“疑是地上霜?！?Chr(13)&Chr(13)&“舉頭望明月，"&Chr(13)&Chr(13)&"低頭思故土。"Case"杜甫"lbl1.Caption="絕句"&Chr(13)&Chr(13)&"兩個黃鸝鳴翠柳，"&Chr(13)&Chr(13)&"一行白鷺上青天。"&Chr(13)&Chr(13)&"窗含西嶺千秋雪，"&Chr(13)&Chr(13)&"門泊東吳萬里船。"Case"李清照"lbl1.Caption="絕句"&Chr(13)&Chr(13)&"生當作人杰，"&Chr(13)&Chr(13)&"死亦為鬼雄。"&Chr(13)&Chr(13)&"至今思項羽，"&Chr(13)&Chr(13)&"不肯過江東。"EndSelectEndSub滾動條〔ScrollBar)作用：在應用程序或控件中水平或垂直滾動屏幕，方便瀏覽信息。分類：水平滾動條〔HscrollBar)和垂直滾動條(VscrollBar)。屬性Min和Max：Min:滾動塊處于最左端或最上端時的值。默認為0。Max:滾動塊處于最右端或最下端時的值。默認為32767。Value:對應于滾動塊在滾動條中的位置。是一個整數(shù)。LargeChange:單擊滾動條時Value增加或減少的長度。SmallChange:單擊滾動條兩端的箭頭時Value增加或減少的長度。滾動條的事件(1)Scroll:在滾動條內(nèi)拖動滾動框時觸發(fā)的事件，可用來跟蹤滾動條中的動態(tài)變化。(2)Change：Value值改變時會觸發(fā)的事件，可用來得到滾動條最后的值。例程序運行開始時，界面如圖。當改變滾動框在滾動條中的位置時，文本框中的顯示值能顯示出滾動條的相應變化。滾動塊在最左端時，文本框顯示0，最右端時，文本框顯示100。代碼實現(xiàn)PrivateSubhsb_Change()txt1.Text=str(hsb.Value)+”mph”EndSubPrivateSubhsb_Scroll()txt1.Text=str(hsb.Value)+”mph”EndSub例如圖，用3個滾動條模擬三原色，產(chǎn)生顏色改變并顯示在一個圖片框的背景上。PrivateSubhsbb_Change()‘藍色Form1.BackColor=RGB(hsbr.Value,hsbg.Value,hsbb.Value)EndSubPrivateSubhsbg_Change()’綠色Form1.BackColor=RGB(hsbr.Value,hsbg.Value,hsbb.Value)EndSubPrivateSubhsbr_Change()‘紅色Form1.BackColor=RGB(hsbr.Value,hsbg.Value,hsbb.Value)EndSub程序代碼用控件數(shù)組實現(xiàn)設(shè)定控件中的Index屬性PrivateSubhsb_Change(IndexAsInteger)lbl(Index).Caption=hsb(Index).Valuepic.BackColor=RGB(hsb(0).Value,hsb(1).Value,hsb(2).Value)EndSub控件數(shù)組(