chap7（常用標(biāo)準(zhǔn)控件）

第七章常用標(biāo)準(zhǔn)控件

--構(gòu)成用戶界面的基本元素1主要內(nèi)容控件簡述復(fù)選框、單選按鈕列表框、組合框圖片框、圖像框定時(shí)器框架滾動條線條形狀27.0控件簡述分類內(nèi)部控件:標(biāo)準(zhǔn)控件（工具箱內(nèi)20個(gè)）ActiveX控件:擴(kuò)展名為.OCX可插入對象名稱控件創(chuàng)建后有一個(gè)默認(rèn)的名稱如：command1,form1等。一般使用有一定意義的控件名稱

名字組成:前綴(3個(gè)小寫字母)+英語單詞

<控件的類型><控件的用途>3常用控件名稱前綴控件前綴舉例FormfrmfrmCaleLabellbllblOptionsTexttxttxtNameCommandButtoncmd，btncmdOK,btnEndCheckBoxchkchkStyleOptionButtonoptoptColorFramefrafraOptionsComboBoxcbocboPlayerHScrollBarhsbhsbTempVScrollBarvsbvsbVolumnTimertmrtmrHourListBoxlstlstNumbers4

焦點(diǎn)

概念:只有具有焦點(diǎn)的控件對象才能接受用戶由鼠標(biāo)和鍵盤的輸入。控件接收到焦點(diǎn)時(shí)的外觀顯示：其內(nèi)側(cè)有一個(gè)虛線框5

控件對象獲得焦點(diǎn)時(shí):觸發(fā)GetFocus事件失去焦點(diǎn)時(shí):觸發(fā)LostFocus事件?？丶@得焦點(diǎn)的途徑

運(yùn)行時(shí)：按Tab鍵，快捷鍵，鼠標(biāo)點(diǎn)擊編程時(shí)：調(diào)用SetFocus方法。如text1.SetFocus6注意：只有當(dāng)控件的Enable和Visible屬性均為True時(shí)，控件才能接受焦點(diǎn)某一控件獲得焦點(diǎn)時(shí)，其它控件將失去焦點(diǎn)窗體內(nèi)的所有控件都不能接受焦點(diǎn)時(shí)，窗體才能接受焦點(diǎn)不是所有控件都能接受焦點(diǎn)如Timer、shape、frame、label、line、image等。7Tab順序定義：程序運(yùn)行中，用戶按下Tab鍵時(shí)，焦點(diǎn)在控件上移動的順序。演示默認(rèn)的Tab順序：控件對象建立的順序調(diào)整：通過控件的TabIndex屬性87.1復(fù)選框7.2單選按鈕常用來表示“選中”和“不選”兩種狀態(tài)，用戶可以通過改變它們的狀態(tài)而執(zhí)行不同的操作.主要屬性單選鈕的Value：False－未被選中

True

－被選中檢查框的Value：0

－未被選中

1

－被選中

2

－禁止操作，灰顯主要事件：Click 9例顏色背景測試。PrivateSuboption1_Click()Ifoption1.ValueThentext1.BackColor=vbBlack

endif

EndSubPrivateSuboption2_Click()Ifoption2.ValueThentext1.BackColor=vbYellowEndSub107.3框架(Frame)作用:容器控件。為控件提供可標(biāo)識的分組?？稍诠δ苌线M(jìn)一步分割一個(gè)窗體。例，把OptionButton控件分成幾組。使用步驟：先繪制Frame控件，后繪制Frame里面的控件。(此時(shí)，框架和里面的控件可以同時(shí)移動)常用屬性：Caption117.4列表框(ListBox)作用顯示項(xiàng)目列表，用戶可從中選擇一項(xiàng)或多項(xiàng)。若項(xiàng)目總數(shù)超過了可顯示的項(xiàng)目數(shù)，就自動在ListBox控件上添加滾動條。常用屬性

12屬性名屬性值說明Cloummns0(默認(rèn))項(xiàng)目安排在一列中、且ListBox豎直滾動>0項(xiàng)目安排在多個(gè)列中，先填第一列，再填第二列，等等。ListBox水平滾動并顯示指定數(shù)目的列List字符串?dāng)?shù)組每個(gè)數(shù)組元素對應(yīng)一個(gè)項(xiàng)目ListCount整型數(shù)據(jù)列表框項(xiàng)目數(shù)ListIndex當(dāng)前被用戶選中的項(xiàng)目序號,即對應(yīng)的List數(shù)組的下標(biāo),若無選中項(xiàng)目,值為-1MultiSelect0(默認(rèn))只允許單選1簡單多項(xiàng)選擇2擴(kuò)展多項(xiàng)選擇Selected邏輯型數(shù)組分別對應(yīng)列表框中的每一項(xiàng),若某數(shù)組元素的值為True,則表示對應(yīng)的項(xiàng)目被選中,否則表示未被選中SortedTrue項(xiàng)目排序False項(xiàng)目不排序Text字符型數(shù)據(jù)返回當(dāng)前被選中的項(xiàng)目內(nèi)容13事件

主要用于顯示項(xiàng)目，實(shí)際很少需要編寫列表框的事件處理代碼。常用方法（在程序運(yùn)行期間修改列表框的內(nèi)容）AddItem----添加ListBox

控件中的項(xiàng)目。每插入一項(xiàng),ListCount自動加1格式:對象.AddItem項(xiàng)目[,index]14列表框或組合框字符串表達(dá)式0至ListCount-1間的值。表示新增項(xiàng)目的位置。缺省為添加到最后。RemoveItem----將指定位置的項(xiàng)目刪除，同時(shí)ListCount自動減1格式:對象.RemoveItem位置值Clear

格式：對象.clear

功能：清除所有項(xiàng)目，ListCount置015例編寫一個(gè)能對列表框進(jìn)行項(xiàng)目添加、修改、刪除操作的應(yīng)用程序。☆16Privatesubform_load()List1.additem"文化基礎(chǔ)"List1.additem"VB6.0"List1.additem"操作系統(tǒng)"List1.additem"多媒體技術(shù)"List1.additem"網(wǎng)絡(luò)技術(shù)基礎(chǔ)"Endsub17PrivatesubcmdAdd_click()List1.addItemtext1.texttext1=""Endsub18PrivatesubcmdDel_click()List1.RemoveItemlist1.listIndexEndsubPrivatesubcmdMod_click()Text1.Text=List1.texttext1.setFocus

cmdAdd.enabled=false:cmdDel.enabled=falsecmdMod.enabled=false:cmdMod_ok.enabled=trueEndsub19Privatesub

cmdMod_ok_click()

List1.list(list1.listindex)=text1.textcmdAdd.enabled=True:cmdDel.enabled=TruecmdMod.enabled=True:cmdMod_ok.enabled=falseText1.text=""Endsub7.5組合框(ComboBox)作用:TextBox+ListBox

既可以在控件的文本框部分輸入信息，也可以在控件的列表框部分選擇一項(xiàng)。20組合框?qū)傩?1Style0（缺省值）下拉式組合框。顯示在屏幕上的是文本編輯框和一個(gè)下拉箭頭，可以輸入項(xiàng)目或從列表中選取項(xiàng)目。1簡單組合框。它列出所有項(xiàng)目供用戶選擇，右邊沒有下拉箭頭，列表框不能被收起或拉下，與文本框一起顯示在屏幕上?？梢栽谖谋究蛑休斎肓斜砜蛑袥]有的項(xiàng)目。2下拉式列表框。與“下拉式組合框”類似，區(qū)別是不能輸入列表框中沒有的項(xiàng)。Text存放用戶所選項(xiàng)目內(nèi)容或直接輸入的文本22事件

Style屬性值可響應(yīng)事件

0Click,DblClick,Change,DropDown1Click,DblClick,Change2Click,DropDown

一般情況下，組合框只用于讀取其text屬性。單擊組合框中向下的箭頭時(shí)觸發(fā)方法

AddItem,RemoveItem,Clear7.6滾動條分類水平滾動條(HScrollBar)

垂直滾動條(VScrollBar)23滾動箭頭滾動框?qū)傩?4屬性名

說明Value滾動框在滾動條上的當(dāng)前位置MaxValue所能表示的最大值MinValue所能表示的最小值LargeChange當(dāng)用戶單擊滾動框和滾動箭頭之間的區(qū)域時(shí)，滾動條控件的Value屬性值的改變量SmallChange當(dāng)用戶單擊滾動箭頭時(shí)，滾動條控件的Value屬性值的改變量。事件Scroll

拖動滾動框時(shí)觸發(fā),單擊滾動箭頭或滾動條時(shí)不發(fā)生Change

滾動框被移到新位置后，或

Value值發(fā)生變化時(shí)觸發(fā)2526例說說編寫以下程序的步驟。步驟建立控件：4個(gè)標(biāo)簽、1個(gè)文本框、1個(gè)滾動條設(shè)置標(biāo)簽的caption、borderStyle屬性設(shè)置滾動條屬性

max、min、

largeChange、smallChange滾動條的事件編程

PrivateSubHScroll1_Scroll()Label4.Caption="movingto"+Str(HScroll1.Value)Text1.Text=Str$(HScroll1.Value)EndSub277.7定時(shí)器(Timer)功能每當(dāng)經(jīng)過一個(gè)Interval屬性所設(shè)定的時(shí)間間隔，就引發(fā)Timer事件，執(zhí)行一次timer事件的代碼。用于背景進(jìn)程中，運(yùn)行時(shí)不可見事件：Timer28屬性Interval：設(shè)定時(shí)鐘觸發(fā)事件的時(shí)間間隔。有效值:1～65535單位:毫秒

(1秒=103毫秒)Enabled：決定該控件是否對時(shí)間的推移做響應(yīng)。

False---關(guān)閉Timer控件

True---打開Timer控件。倒計(jì)時(shí)總是從Interval屬性的設(shè)置值開始。29例數(shù)字時(shí)鐘?！頟rivateSubTimer1_Timer()Label1.FontName="timesnewroman"Label1.FontSize=48Label1.Caption=Time$EndSub30獲取系統(tǒng)當(dāng)前時(shí)間例：顯示隨機(jī)數(shù)據(jù)☆PrivateSubForm_Load()Timer1.Enabled=FalseEndsubPrivateSubcmdStart_Click()Timer1.Enabled=TrueEndsubPrivateSubcmdStop_Click()Timer1.Enabled=False:Endsub31PrivateSubTimer1_Timer()DimrndValue&RandomizerndValue=Int((10000000*Rnd)+1)Text1.FontSize=46Text1.FontName="timesnewroman"Text1.Text=Str$(rndValue)EndSub327.8圖片框7.9圖像框共同點(diǎn)：用于在窗體的指定位置顯示圖形信息，可裝入多種格式的圖形文件。區(qū)別圖片框：更靈活可作為父控件，即可以包含其他控件可用print方法接收文本圖像框：占用內(nèi)存更少，顯示速度快，優(yōu)先考慮不可作為父控件不可用print方法接收文本33VB為二者提供的屬性與窗體屬性相同的屬性

enabled、name、visible、height、topCurrentX和CurrentY屬性只能用在程序，用來設(shè)置下一個(gè)輸出的坐標(biāo)（水平或垂直）。

Picture1.CurrentX=340(單位：twip)Picture屬性設(shè)置顯示的圖形文件。VB支持的圖形文件格式Stretch屬性（圖像框)

自動調(diào)整圖像框中圖形內(nèi)容的大小34VB支持的圖形格式名稱擴(kuò)展名

說明

備注JPEG.jpg一種支持8位和24位顏色的壓縮位圖格式GIF.gif支持256種顏色的壓縮位圖格式Metafile圖元文件.wmf.emf將圖形定義為編碼的線段和圖形要與OS兼容Bitmap位圖.bmp.dib將圖形定義為由點(diǎn)組成的圖形Icon圖標(biāo).ico.cur特殊類型的位圖35圖形文件的裝入在設(shè)計(jì)階段裝入

way1:

通過picture屬性

way2:

利用剪貼板把圖形粘貼到窗體、圖片框或圖像框☆

在運(yùn)行期間裝入

[對象.]picture=LoadPicture("文件名"

）例：picture1.picture=LoadPicture("c:\arw4.ico")picture1.picture=LoadPicture()刪除原圖片367.10線條線條用來在窗體、框架或圖片框中創(chuàng)建簡單的線段。一般通過屬性窗口可設(shè)置其位置、長度、顏色和樣式等外觀。3738屬性名稱屬性值

說

明BorderColor顏色值設(shè)置直線的邊框顏色BorderStyle0（Transparent）設(shè)置邊框樣式為透明，即不可見1（Solid）（默認(rèn)值）設(shè)置邊框樣式為實(shí)線2（Dash）設(shè)置邊框樣式為虛線3（Dot）設(shè)置邊框樣式為點(diǎn)線4（Dash-Dot）設(shè)置邊框樣式為點(diǎn)劃線5（Dash-Dot-Dot）設(shè)置邊框樣式為雙點(diǎn)劃線6（InsideSolid）設(shè)置邊框樣式為內(nèi)實(shí)線BorderWidth整型數(shù)值設(shè)置邊框?qū)挾萖1，Y1線條控件的起始點(diǎn)坐標(biāo)X2，Y2線條控件的終止點(diǎn)坐標(biāo)7.11形狀屬性shape

用來確定所畫形狀的幾何特性，有6種值，對應(yīng)不同的幾何形狀。

0---rectangle1---square2---Oval3---Circle4---RoundedRectangle5---RoundedSquare39例編寫程序，模擬交通信號燈的切換。☆PrivateSubForm_Load()Image2.Visible=FalseImage3.Visible=FalseEndSub40PrivateSubCommand1_Click()IfImage1.Visible=TrueThenImage1.Visible=False:Image2.Visible=TrueElseIfImage2.Visible=TrueThenImage2.Visible=False:Image3.Visible=TrueElseIfImage3.Visible=TrueThenImage3.Visible=False:Image1.Visible=TrueEndIfEndSub417.12綜合應(yīng)用4243例計(jì)算機(jī)配置。要求：（1）一個(gè)列表框提供計(jì)算機(jī)品牌選項(xiàng)。（2）兩個(gè)單選按鈕組分別提供CPU品牌和內(nèi)存容量大小選項(xiàng)。（3）一個(gè)復(fù)選框組提供配置計(jì)算機(jī)的其他設(shè)備選項(xiàng)。（4）用戶選擇各個(gè)選項(xiàng)后，單擊“確定”按鈕，右邊列表框中顯示用戶的選項(xiàng)信息。（5）用戶單擊“清除”按鈕，右邊列表框中將清除所有信息。

44PrivateSubForm_Load()'在左邊列表框中添加計(jì)算機(jī)品牌選項(xiàng)List1.AddItem"聯(lián)想"List1.AddItem"方正"List1.AddItem"IBM"List1.AddItem"三星"List1.AddItem"索尼"List1.AddItem"兼容機(jī)"List2.Clear'窗體加載時(shí)，清除右邊列表框中的信息EndSub45PrivateSubCommand1_Click()'“確定”按鈕的單擊事件過程List2.AddItemList1.Text'添加左邊列表框中的選項(xiàng)'添加CPU型號選項(xiàng)IfOption1.ValueThen List2.AddItemOption1.CaptionElseIfOption2.ValueThen List2.AddItemOption2.CaptionElse List2.AddItemOption3.CaptionEndIf'添加內(nèi)存大小選項(xiàng)IfOption4.ValueThenList2.AddItemOption4.CaptionElseList2.AddItemOption5.CaptionEndIf'添加其他配件選項(xiàng)IfCheck1.ValueThenList2.AddItemCheck1.CaptionIfCheck2.ValueThenList2.AddItemCheck2.CaptionIfCheck3.ValueThenList2.AddItemCheck3.CaptionEndSub46PrivateSubCommand2_Click()'“清除”按鈕的單擊事件過程List2.Clear'清除右邊列表框中的信息EndSub47例☆

48PrivateSubForm_load()'向列表框1中添加選項(xiàng)

List1.AddItem"宮爆雞丁" List1.AddItem"魚香肉絲" List1.AddItem"青菜蘑菇" List1.AddItem"清蒸廬魚" List1.AddItem"鐵板牛排"EndSub49另：將列表框的multiselect屬性設(shè)置為1，支持多選。PrivateSubCommand1_Click()'此按鈕用于向列表框2中加入點(diǎn)菜DimN%,C%'N----列表框1的選項(xiàng)總序號C----計(jì)數(shù)變量N=List1.ListCount-1C=0DoWhileC<=N IfList1.Selected(C)Then List2.AddItemList1.List(C)

List1.RemoveItemC N=N-1

Else C=C+1 EndIf LoopEndSub50判斷第c項(xiàng)是否被選中PrivateSubCommand2_Click()'此按鈕用于向列表框1中退回點(diǎn)菜DimN%,C%'N----列表框2的選項(xiàng)總序號C----計(jì)數(shù)變量N=List2.ListCount-1C=0DoWhileC<=N IfList2.Selected(C)Then List1.AddItemList2.List(C)

List2.RemoveItemC N=N-1

Else C=C+1 EndIf LoopEndSub51例題

☆52

例設(shè)計(jì)一個(gè)加法速度測試程序，當(dāng)用戶單擊“開始”按鈕后，開始計(jì)時(shí)，并在文本框1、2中顯示隨機(jī)產(chǎn)生的被加數(shù)和加數(shù)。用戶在文本框3中輸入答案，按回車鍵后程序在答案后面給出“√”“╳”指示對錯(cuò)。1分鐘后統(tǒng)計(jì)出題數(shù)量和做對數(shù)量。用戶可單擊“繼續(xù)”按鈕繼續(xù)測試或關(guān)閉窗口退出程序。53文本框3時(shí)鐘1命令按鈕1CmdStart標(biāo)簽5lbljudge、LblCountDimaAsInteger,bAsIntegerPrivateSubForm_Load()Text1.FontSize=30:Text2.FontSize=30Text3.FontSize=