第7章標(biāo)準(zhǔn)控件

按鈕控件文本框控件復(fù)選、單選按鈕時(shí)鐘控制控件列表框和組合框1/11/202317-1概述VisualBasic6.0的標(biāo)準(zhǔn)工具箱提供可很多常用控件，如圖7-1所示.圖7－11/11/202327-2

命令按鈕CommandButton控件按鈕是在Windows應(yīng)用程序中最常見的控件，比如“確認(rèn)”、“取消”等，還有很多圖形化的按鈕。控件最常用的事件是單擊（click）事件。在按鈕的Caption屬性的正文內(nèi)插入一個(gè)&符號(hào)，可使得此符號(hào)后的字符成為該按鈕的快捷鍵。1/11/202337-3標(biāo)簽Label控件標(biāo)簽控件是顯示用戶不能直接修改的靜態(tài)文本時(shí)使用的,象文本框這樣沒有Caption屬性的控件，可用標(biāo)簽控件來(lái)說(shuō)明.1/11/202347-4文本框TextBox控件

文本框一般用來(lái)獲取用戶輸入的文本，比如用戶名、口令等，可以輸入單行或多行.文本框的Text屬性記錄了文本框中的文本，它是一個(gè)字符串，可象普通的字符串變量一樣使用。利用文本框的選擇屬性包括SelLength、SelStart、SelText，可完成一些字處理功能。例如，可利用以下代碼選中文本框中的所有文本：Text1.SetFocusText1.SelStart=0Text1.SelLength=Len(Text1.Text)文本框的常用事件包括Change,GotFocus,LostFocus。1/11/202357-5實(shí)例：檢驗(yàn)密碼

【例1】編程實(shí)現(xiàn)檢驗(yàn)用戶輸入的密碼是否正確。程序運(yùn)行界面如圖7-2.

圖7－21/11/20236

分析：為了檢驗(yàn)用戶輸入的密碼，需要在名為Command1按鈕的單擊事件中編程，判斷密碼是否正確，若正確則提示用戶密碼正確，否則提示用戶密碼錯(cuò)誤，請(qǐng)重新輸入，由于設(shè)置了文本框的PassWordChar屬性，用戶輸入密碼時(shí)，只能看到“*”。另外，在文本框的LostFocus事件中調(diào)用了Command1的Click事件，這樣在文本框失去焦點(diǎn)時(shí)（按下“Tab”鍵），同樣會(huì)檢測(cè)密碼的正確性。1/11/20237編寫如下事件過(guò)程：PrivateSubCommand1_Click()IfText1.Text="111"Then

MsgBox"成功登陸！",vbInformation,"登陸"Else

MsgBox"密碼錯(cuò)誤！請(qǐng)重試",vbExclamation,"登陸"Text1.SetFocusEndIfEndSub1/11/202387-6框架控件框架是一個(gè)用戶可以組合其它控件的容器，一般來(lái)說(shuō)，框架中的控件稱為組，我們可用框架來(lái)分組邏輯相關(guān)的選項(xiàng)。要將控件放入框架，需先畫框架，然后再添加每個(gè)控件，這樣移動(dòng)框架時(shí)，框架內(nèi)的所有控件會(huì)隨之移動(dòng)。1/11/202397-7復(fù)選框CheckBox控件

復(fù)選框可以使用戶同時(shí)選中多個(gè)選項(xiàng)，類似于選擇開關(guān)。復(fù)選框最主要的屬性是“Value”，它的取值決定了復(fù)選框的狀態(tài)。它的值有：0－UnChecked,表示復(fù)選框未被選中；1－Checked，表示復(fù)選框被選中，在復(fù)選按鈕的小方框中會(huì)顯示“√”；2－Grayed，復(fù)選按鈕變?yōu)榛疑?。?fù)選框的“Caption”屬性是設(shè)置顯示的標(biāo)題。復(fù)選框常用的事件是Click，當(dāng)用戶單擊復(fù)選框時(shí)觸發(fā)。1/11/202310

7-8單選按鈕OptionButton控件單選按鈕只允許用戶在一組選項(xiàng)中選擇一個(gè)，一旦用戶選擇了另外一個(gè)，上一次選擇的按鈕會(huì)自動(dòng)清除。若將所有選項(xiàng)按鈕直接放在窗體上，則這些選項(xiàng)按鈕構(gòu)成一個(gè)組，也就是只能在其中選擇一項(xiàng)，若要?jiǎng)?chuàng)建多個(gè)組，則需要先創(chuàng)建框架或圖片框，然后把同組選項(xiàng)按鈕放進(jìn)去。如圖7-3所示，“小說(shuō)”框架中的所有選項(xiàng)按鈕為一組，“電影”框架中的所有選項(xiàng)按鈕為一組，所有窗體上的選項(xiàng)按鈕為一組。1/11/202311圖7－3圖7－41/11/202312

6-3-3數(shù)組參數(shù)的傳送【例4】設(shè)計(jì)程序運(yùn)行界面如圖7-4所示。進(jìn)入代碼窗口中，編寫如下事件過(guò)程：PrivateSubOption1_Click(IndexAsInteger)Text1.FontName=Option1(Index).CaptionEndSub1/11/2023137-9時(shí)鐘控制Timer控件該控件使得編程人員可以指定時(shí)鐘事件發(fā)生的間隔，來(lái)反復(fù)處理事情。時(shí)鐘控制控件不但可用來(lái)根據(jù)系統(tǒng)時(shí)鐘判斷某項(xiàng)任務(wù)的執(zhí)行，也可進(jìn)行后臺(tái)處理。時(shí)鐘控制控件最主要的屬性是Interval屬性，它用來(lái)設(shè)置或返回計(jì)時(shí)事件間隔的毫秒數(shù)。時(shí)鐘控制控件的另一個(gè)重要屬性是Enabled屬性，若要停止觸發(fā)時(shí)鐘事件，則可將此屬性值設(shè)置為False,否則為True。時(shí)鐘控制控件只有一個(gè)事件Timer事件，當(dāng)指定的時(shí)間間隔到達(dá)時(shí)觸發(fā)，如果沒有將該控件的Interval設(shè)置為0或Enabled屬性設(shè)置為False，則Timer事件就會(huì)不停的按照規(guī)定的時(shí)間間隔發(fā)生下去。

1/11/202314【例5】編程實(shí)現(xiàn)電子時(shí)鐘。程序運(yùn)行界面如圖7-5所示圖7－51/11/202315進(jìn)入代碼窗口中，編寫如下事件過(guò)程：PrivateSubForm_Load()Label1.Caption=Time&":"&aEndSubPrivateSubTimer1_Timer()StaticaAsSinglea=a+1Ifa>=100Thena=0IfLabel1<>CStr(Time)ThenLabel1=Time&":"&aEndSub1/11/202316

滾動(dòng)條控件是一個(gè)帶有指示器的長(zhǎng)條，用戶可選擇控件兩端的一個(gè)值。

ScrollBar控件通?？勺鳛檩斎朐O(shè)備，比如可按比例指示當(dāng)前位置，調(diào)整圖片顏色，控制聲音音量等。滾動(dòng)條控件有兩種：水平滾動(dòng)條和豎直滾動(dòng)條。當(dāng)滾動(dòng)條控件的數(shù)值發(fā)生改變時(shí)，將引發(fā)Change和Scroll事件中的一個(gè)。Change事件在指示器的位置發(fā)生改變或釋放鼠標(biāo)按鈕時(shí)發(fā)生。不過(guò)僅僅移動(dòng)指示器的位置，并不會(huì)觸發(fā)Change事件。7-10滾動(dòng)條控件1/11/202317

7-11列表框ListBox控件

列表框控件（ListBox）在列表中顯示一系列預(yù)先定義好的項(xiàng)目，以供用戶進(jìn)行選擇。默認(rèn)狀態(tài)下列表框的選項(xiàng)以垂直單列形式出現(xiàn)，也可設(shè)置為多列形式。列表框常用的屬性：List（列表）屬性：羅列或設(shè)置表項(xiàng)中的內(nèi)容?？梢栽诮缑嬖O(shè)置時(shí)直接輸入內(nèi)容。在程序運(yùn)行時(shí)，列表框中所有的選項(xiàng)，都可以通過(guò)List(下標(biāo)值)的形式表示。ListCount

屬性：返回列表框表項(xiàng)數(shù)量的數(shù)值，只在程序運(yùn)行時(shí)起作用

1/11/202318

ListIndex屬性：返回或設(shè)置控件中當(dāng)前選擇項(xiàng)目的索引號(hào)，只在程序運(yùn)行時(shí)使用。索引號(hào)從0開始。ListCount始終比最大ListIndex的值大1。當(dāng)列表框沒有選擇項(xiàng)目時(shí)，ListIndex的值為-1。列表框控件的主要方法有以下幾種。（1）AddItem

：為列表框添加項(xiàng)目其語(yǔ)法格式如下：列表框名稱.AddItem

項(xiàng)目［,索引值］

（2）Clear：清除列表框中所有的內(nèi)容其語(yǔ)法格式如下：列表框名稱.Clear（3）RemoveItem：刪除列表框中指定的項(xiàng)目1/11/202319

7-12組合框CommboBox控件組合框控件將文本框控件（TextBox）與列表框控件（L