《Visual-Basic程序設(shè)計(jì)與實(shí)訓(xùn)教程》常用控件

第7章慣用標(biāo)準(zhǔn)控件7.1定時(shí)器型7.2單項(xiàng)選擇按鈕和復(fù)選框7.3框架7.4列表框和組合框7.5滾動(dòng)條7.6焦點(diǎn)和Tab次序4/21/20241清華大學(xué)出版社1/38【目標(biāo)要求】1.掌握定時(shí)器應(yīng)用2.掌握單項(xiàng)選擇按鈕和復(fù)選框?qū)傩院蛻?yīng)用3.了解框架應(yīng)用4.掌握列表框和組合框應(yīng)用5.了解滾動(dòng)條6.了解焦點(diǎn)和Tab次序【重點(diǎn)】定時(shí)器、單項(xiàng)選擇按鈕和復(fù)選框、列表框和組合框【難點(diǎn)】各控件應(yīng)用4/21/20242清華大學(xué)出版社2/387.1定時(shí)器

7.1.1定時(shí)器屬性和事件1.慣用屬性(1)Interval屬性返回或設(shè)置定時(shí)器控件計(jì)時(shí)時(shí)間間隔(單位：毫秒)。其有效范圍為0～65535。默認(rèn)值為0，此時(shí)定時(shí)器無(wú)效。(2)Enabled屬性定時(shí)器是否被激活，它有True或False兩種屬性值。當(dāng)其設(shè)為True時(shí)，定時(shí)器被激活。2.慣用事件定時(shí)器控件最慣用事件就是Timer事件。每經(jīng)過(guò)一個(gè)由Interval屬性時(shí)間間隔，便會(huì)產(chǎn)生一個(gè)Timer事件。

4/21/20243清華大學(xué)出版社3/387.1.2定時(shí)器應(yīng)用舉例【例7.1】建立一個(gè)實(shí)時(shí)時(shí)鐘。程序界面設(shè)計(jì)如圖7-2所表示，程序運(yùn)行結(jié)果如圖7-2所表示。在VB中能夠用Time函數(shù)獲取系統(tǒng)時(shí)間。

圖7-14/21/20244清華大學(xué)出版社4/38在命令按鈕【開始】事件過(guò)程Command1_Click()中添加以下代碼：

PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSub在命令按鈕【停頓】事件過(guò)程Command1_Click()中添加以下代碼：PrivateSubCommand2_Click()Timer1.Enabled=FalseEndSub在時(shí)鐘控件觸發(fā)事件過(guò)程中添加以下代碼：PrivateSubTimer1_Timer()Label1.Caption=TimeEndSub4/21/20245清華大學(xué)出版社5/38【例7.2】建立一個(gè)文字移動(dòng)動(dòng)畫程序。程序運(yùn)行結(jié)果如圖7-3所表示。分析：文字移動(dòng)能夠利用標(biāo)簽move屬性。假如每隔一段時(shí)間就讓標(biāo)簽移動(dòng)一次就能產(chǎn)生動(dòng)畫效果，用時(shí)鐘控件timer事件恰好能夠?qū)崿F(xiàn)每隔一段時(shí)間執(zhí)行一次事件過(guò)程。用移動(dòng)量正負(fù)能夠?qū)崿F(xiàn)左右移動(dòng)。把標(biāo)簽移動(dòng)代碼寫在timer事件過(guò)程中就能夠?qū)崿F(xiàn)文字移動(dòng)動(dòng)畫效果。圖7-34/21/20246清華大學(xué)出版社6/38編寫程序代碼DimcxAsInteger'定義一個(gè)移動(dòng)增量PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSub

PrivateSubCommand2_Click()Timer1.Enabled=FalseEndSub

PrivateSubForm_Load()Timer1.Enabled=Falsecx=50EndSubPrivateSubTimer1_Timer()

Label1.MoveLabel1.Left+cx'標(biāo)簽移動(dòng)IfLabel1.Left+Label1.Width>ScaleWidthThencx=-50'移到右邊時(shí)開始向左移動(dòng)IfLabel1.Left<=0Thencx=50'移到左邊時(shí)開始向右移動(dòng)EndSub

4/21/20247清華大學(xué)出版社7/387.2.1單項(xiàng)選擇按鈕單項(xiàng)選擇按鈕控件（OptionBotton）通常成組出現(xiàn)，主要用于處理“多項(xiàng)選擇一”問(wèn)題。1.慣用屬性(1) Value屬性用于設(shè)置單項(xiàng)選擇按鈕狀態(tài)。True表示選定；False表示未選定。(2) Caption屬性顯示出現(xiàn)在單項(xiàng)選擇按鈕旁邊文本。(3) Alignment屬性用于設(shè)置單項(xiàng)選擇按鈕旁邊文本在圓圈左邊或者右邊。其值為0或1。值為0時(shí)表示控件鈕在左邊，標(biāo)題顯示在右邊；值為1時(shí)，反之。(4) Style屬性用于設(shè)置單項(xiàng)選擇按鈕外觀。其值為0或1。值為0時(shí)為標(biāo)準(zhǔn)樣式；值為1時(shí)外觀類似于命令按鈕。7.2單項(xiàng)選擇按鈕和復(fù)選框

4/21/20248清華大學(xué)出版社8/382.慣用事件單項(xiàng)選擇按鈕控件（OptionBotton）慣用事件是Click事件?！纠?.3】設(shè)計(jì)一個(gè)程序，界面由一個(gè)文本框和兩個(gè)單項(xiàng)選擇按鈕組成，用戶單擊不一樣按鈕，文本框中顯示對(duì)應(yīng)結(jié)果。程序界面設(shè)計(jì)如圖7-4所表示。圖7-54/21/20249清華大學(xué)出版社9/38【例】設(shè)計(jì)以下列圖所表示界面；當(dāng)單擊某個(gè)單項(xiàng)選擇鈕，在標(biāo)簽中顯示對(duì)應(yīng)字體。運(yùn)行結(jié)果如圖所表示。 事件過(guò)程代碼以下：PrivateSubst_Click（）Label1.FontName=“宋體"EndSubPrivateSubhwcy_Click（）Label1.FontName=“華文彩云”EndSubPrivateSubyy_Click（）Label1.FontName=“幼圓"EndSub4/21/202410清華大學(xué)出版社10/387.2.2復(fù)選框復(fù)選框（CheckBox）也稱檢驗(yàn)框，主要功效是從用戶處獲取“是”或“否”信息。能夠處理“多項(xiàng)選擇多”問(wèn)題，與單項(xiàng)選擇按鈕一起統(tǒng)稱為選項(xiàng)按鈕。復(fù)選框控件和單項(xiàng)選擇按鈕控件功效相同，不過(guò)二者存在主要差異在于：?jiǎn)雾?xiàng)選擇按鈕控件在使用過(guò)程中通常由兩個(gè)以上單項(xiàng)選擇按鈕組成選項(xiàng)組，而這些單項(xiàng)選擇按鈕在同一時(shí)刻只能選一個(gè)；相反，用復(fù)選框控件則能夠選擇多個(gè)數(shù)量控件。

4/21/202411清華大學(xué)出版社11/381.慣用屬性(1)Value屬性用于設(shè)置復(fù)選框狀態(tài)。復(fù)選框Value屬性值有3種情況。0-VbunChecked表示未選中（默認(rèn)值），此時(shí)按鈕小方框空白；1-VbChecked表示選中，此時(shí)按鈕小方框有一小對(duì)勾；3-VbGrayed表示不確定或不一致，此時(shí)按鈕為灰色。(2)Caption屬性用于設(shè)置復(fù)選框文本標(biāo)題。(3)Alignment屬性類似單項(xiàng)選擇按鈕該屬性。(4)Enabled屬性可經(jīng)過(guò)設(shè)置Enabled屬性值為False或0，使選項(xiàng)按鈕不被激活。4/21/202412清華大學(xué)出版社12/382.慣用事件復(fù)選框控件（CheckBox）慣用事件也是Click事件。慣用于創(chuàng)建一事件過(guò)程，檢測(cè)該控件對(duì)象Value屬性值。圖7-6編寫程序代碼

PrivateSubCheck1_Click()’控制字體加粗效果IfCheck1.Value=1ThenText1.FontBold=TrueElseText1.FontBold=FalseEndIfEndSub【例7.4】利用單項(xiàng)選擇鈕設(shè)置文本框文字字體，復(fù)選鈕設(shè)置文本效果，程序界面如圖7-6所表示。

4/21/202413清華大學(xué)出版社13/38

PrivateSubCheck2_Click()’控制字體傾斜效果IfCheck2.Value=CheckedThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSub

PrivateSubCheck3_Click()’控制字體下劃線效果IfCheck3.Value=CheckedThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfEndSub

4/21/202414清華大學(xué)出版社14/38框架控件(Frame)是左上角有標(biāo)題文字方框，框架相當(dāng)一個(gè)容器，它能夠把其它控件組織在一起，形成一個(gè)控件組。這么，當(dāng)框架移動(dòng)時(shí)，控件組也對(duì)應(yīng)移動(dòng)，框架隱藏時(shí)，控件組也一起隱藏。利用框架設(shè)計(jì)程序界面可使窗體上內(nèi)容更有條理。圖7-7顯示了框架在程序界面設(shè)計(jì)時(shí)應(yīng)用。

7.3框架

框架圖7-74/21/202415清華大學(xué)出版社15/381.慣用屬性(1)Caption屬性：框架標(biāo)識(shí)文本.(2)Enabled屬性（有兩種設(shè)置）：False：標(biāo)題呈灰色，不允許對(duì)框架內(nèi)對(duì)象進(jìn)行操作。True：允許對(duì)框架內(nèi)對(duì)象進(jìn)行操作（默認(rèn)值）。(3)Visible屬性：True：框架及其控件可見(jiàn)；False：框架及其控件被隱含起來(lái)。2.慣用事件框架控件事件有鼠標(biāo)單擊（Click）事件和鼠標(biāo)雙擊（Dblclick）事件。通?？蚣苤饕糜诳丶纸M，極少編寫框架事件。4/21/202416清華大學(xué)出版社16/38列表框控件（ListBox）和組合框控件（ComboBox）也為用戶提供了選擇。默認(rèn)時(shí)，選項(xiàng)以垂直單列方式顯示，也能夠?qū)⑵湓O(shè)置成多列方式。假如項(xiàng)目數(shù)量超出列表框（ListBox）或組合框（ComboBox）所能顯示數(shù)目，系統(tǒng)就會(huì)自動(dòng)向ListBox和ComboBox添加滾動(dòng)條。這么用戶就能夠在列表中上下左右滾動(dòng)來(lái)選擇所需項(xiàng)目。

7.4列表框和組合框7.4.1列表框列表框（ListBox）主要用途在于提供列表式多個(gè)數(shù)據(jù)選項(xiàng)供用戶選擇。用戶能夠經(jīng)過(guò)單擊某一項(xiàng)或多項(xiàng)來(lái)選擇自己所需要項(xiàng)目。4/21/202417清華大學(xué)出版社17/381.慣用屬性(1) List屬性該屬性是字符型數(shù)組，存放列表項(xiàng)內(nèi)容，下標(biāo)是從0開始，即List(0)保留列表中第一個(gè)數(shù)據(jù)項(xiàng)內(nèi)容；List(1)保留列表中第二個(gè)數(shù)據(jù)項(xiàng)內(nèi)容；依次類推，List(ListCount-1)存列表中最終一個(gè)數(shù)據(jù)項(xiàng)內(nèi)容。(2)ListCount屬性該屬性返回列表框中列表項(xiàng)數(shù)目。ListCount－1是最終一項(xiàng)下標(biāo)。(3)ListIndex屬性該屬性返回運(yùn)行時(shí)用戶選中列表項(xiàng)序號(hào)，假如用戶選擇多個(gè)列表項(xiàng)，則ListIndex返回是最近一次所選列表項(xiàng)序號(hào)；假如沒(méi)有項(xiàng)目被選定時(shí)ListIndex值為－1。4/21/202418清華大學(xué)出版社18/38注意：ListIndex屬性不能在設(shè)計(jì)時(shí)設(shè)置，只能在程序運(yùn)行時(shí)才起作用。(4)Text屬性用于存放被選中列表項(xiàng)文本內(nèi)容。該屬性是只讀，不能在屬性窗口中設(shè)置，也不能在程序中設(shè)置，只用于獲取當(dāng)前選定列表項(xiàng)內(nèi)容?？稍诔绦蛑幸肨ext屬性值(5) Sorted屬性設(shè)置列表項(xiàng)排列次序,True：按字母次序排列；False：按加入先后次序排列。(6) Selected屬性該屬性是一個(gè)邏輯數(shù)組,其數(shù)組元素對(duì)應(yīng)列表框中對(duì)應(yīng)列表項(xiàng)。表示對(duì)應(yīng)列表項(xiàng)在程序運(yùn)行期間是否被選中。例，Selected(i)值為True表示第i+1項(xiàng)被選中。

4/21/202419清華大學(xué)出版社19/38(7) MultiSelect屬性該屬性值表明能否在列表框中進(jìn)行復(fù)選以及怎樣進(jìn)行復(fù)選。該屬性只能在設(shè)計(jì)時(shí)設(shè)置。它值有三個(gè)。0-None：禁止多項(xiàng)選擇。1-Simple：簡(jiǎn)單多項(xiàng)選擇。2-Extended：擴(kuò)展多項(xiàng)選擇。可利用【Ctrl】或【Shift】加鼠標(biāo)組合使用進(jìn)行選擇。(8)SelCount屬性其值表示在列表框控件中所選列表項(xiàng)數(shù)目，通常與Selected數(shù)組一起使用，以處理控件中所選項(xiàng)目。4/21/202420清華大學(xué)出版社20/38(9)Style屬性該屬性用來(lái)設(shè)置列表框控件格調(diào)。0:標(biāo)準(zhǔn)格調(diào)；1:復(fù)選框格調(diào)。4/21/202421清華大學(xué)出版社21/382.慣用方法(1)AddItem方法該方法向一個(gè)列表框中添加新列表項(xiàng)，其語(yǔ)法是： List1.AddItemItem[,Index](2)RemoveItem方法該方法用來(lái)從一個(gè)列表框中刪除一個(gè)列表項(xiàng)，其語(yǔ)法是： List1.RemoveItem<index>其中：index參數(shù)表示是要?jiǎng)h除列表項(xiàng)序號(hào)。比如，List1.RemoveItem0，表示刪除列表框第一個(gè)列表項(xiàng)。List1.RemoveItemList1.ListIndex，表示刪除列表框中當(dāng)前選中列表項(xiàng)。(3)Clear方法該方法用于去除列表框中全部列表項(xiàng)，如：List1.Clear3.列表框事件列表框慣用事件有Click、DblClick等。

4/21/202422清華大學(xué)出版社22/38【例7.5】設(shè)計(jì)一個(gè)對(duì)列表框進(jìn)行項(xiàng)目添加、刪除操作程序。程序界面如圖7-8、圖7-9所表示。要求：①在添加數(shù)據(jù)時(shí)判斷列表框中數(shù)據(jù)是否存在，假如存在給出提醒信息。②能夠?qū)α斜砜蜻M(jìn)行多項(xiàng)選擇刪除，假如沒(méi)有選中任何項(xiàng)給出提醒信息。③當(dāng)用戶在列表框中選擇某項(xiàng)時(shí)，會(huì)在文本框中顯示選中項(xiàng)信息。圖7-8圖7-94/21/202423清華大學(xué)出版社23/38OptionExplicitDimiAsIntegerPrivateSubCommand1_Click()

'項(xiàng)列表中添加數(shù)據(jù)項(xiàng)i=0DoWhilei<List1.ListCount IfList1.List(i)=Text1.TextThen MsgBox"數(shù)據(jù)項(xiàng)已存在！",vbCritical ExitSub EndIf i=i+1LoopList1.AddItemText1.TextText1.Text=""Text1.SetFocusEndSubFori=0toList1.ListCount IfList1.List(i)=Text1.TextThen MsgBox"數(shù)據(jù)項(xiàng)已存在！",vbCritical ExitSub EndIf4/21/202424清華大學(xué)出版社24/38PrivateSubCommand3_Click()

UnloadMeEndSub

PrivateSubCommand2_Click() ‘刪除列表框中選中單個(gè)數(shù)據(jù)項(xiàng)IfList1.SelCount>0Then i=List1.ListIndex

List1.RemoveItem(i)elseMsgBox"沒(méi)有選中數(shù)據(jù)項(xiàng)！",vbInformationEndIf

EndSub思索：在多項(xiàng)選擇列表框中，怎樣刪除多個(gè)選擇項(xiàng)？

PrivateSubCommand2_Click() ‘刪除列表框中選中數(shù)據(jù)項(xiàng)DimtagAsBooleantag=TrueFori=List1.ListCount-1To0Step-1IfList1.Selected(i)=TrueThenList1.RemoveItem(i)tag=FalseEndIfNextiIftagThenMsgBox"沒(méi)有選中數(shù)據(jù)項(xiàng)！",vbInformationEndSub

PrivateSubCommand2_Click()

‘刪除列表框中選中數(shù)據(jù)項(xiàng)

If

List1.SelCount<=0Then

MsgBox"沒(méi)有選中數(shù)據(jù)項(xiàng)！",vbInformationExitsubendifFori=List1.ListCount-1To0Step-1IfList1.Selected(i)=TrueThenList1.RemoveItem(i)EndIfNexti

EndSubPrivate

SubList1_Click()

Text2.Text=List1.TextEndSub4/21/202425清華大學(xué)出版社25/387.4.2組合框組合式列表框又稱下拉列表框，功效類似文本框加列表框組合。默認(rèn)情況下，用戶既能夠在列表項(xiàng)中選擇一個(gè)固定字符串，也能夠在其文本框中輸入一個(gè)新字符串。1.慣用屬性組合式列表框大多數(shù)屬性和方法與列表框控件相同。(1) Style屬性返回或設(shè)置一個(gè)用來(lái)指示控件顯示類型和行為值。設(shè)置值有三個(gè)：0-VbComboDropDown（默認(rèn)值）：下拉組合框。包含一個(gè)下拉式列表和一個(gè)文本框,能夠從列表選擇或在文本框中輸入。1-VbComboSimple：簡(jiǎn)單組合框。包含一個(gè)文本框和一個(gè)不能下拉列表,能夠從列表選擇或在文本框中輸入。2-VbComboDrop-DownList：下拉式列表。僅允許從下拉式列表中選擇。4/21/202426清華大學(xué)出版社26/38(2)Text屬性該屬性表示被選中列表項(xiàng)或用戶輸入文本。4/21/202427清華大學(xué)出版社27/382.慣用方法前面介紹列表框AddItem，RemoveItem，Clear等方法也適合用于組合框。3.組合框事件組合框普通含有Click事件，只有簡(jiǎn)單組合框才有DblClick事件,通常在單擊命令按鈕或發(fā)生DblClick事件時(shí)才讀取Text屬性。同時(shí)當(dāng)下拉列表框文本內(nèi)容發(fā)生改變時(shí),觸發(fā)Change事件。注意：區(qū)分Click事件與Change事件?！纠?.6】建立如圖7-10所表示設(shè)置字體效果窗體,當(dāng)用戶單擊“確定”按鈕后,將選中文字效果應(yīng)用到文本框中。

4/21/202428清華大學(xué)出版社28/38PrivateSubCommand1_Click()Text1.FontName=Combo1.TextText1.FontSize=Combo2.TextEndSub圖7-10PrivateSubForm_Load()

Combo1.AddItem"黑體"Combo1.AddItem"楷體_GB2312"……Combo1.AddItem"華文中宋"Combo1.Text=Combo1.List(0)Combo2.AddItem10：Combo2.AddItem12Combo2.AddItem14：Combo2.AddItem16Combo2.AddItem18Combo2.Text=Combo2.List(0)EndSubPrivateSubCommand2_Click()UnloadMeEndSub4/21/202429清華大學(xué)出版社29/38對(duì)上述方法改進(jìn)：PrivateSubCombo1_Click()Text1.FontName=Combo1.TextText1.FontSize=Val(Combo2.Text)EndSubPrivateSubCombo2_Click()Text1.FontName=Combo1.TextText1.FontSize=Val(Combo2.Text)EndSub使用控件數(shù)組怎樣編程？4/21/202430清華大學(xué)出版社30/387.5滾動(dòng)條

1.慣用屬性(1) Max屬性：返回或設(shè)置當(dāng)滾動(dòng)滑塊處于底部或最右位置時(shí)對(duì)應(yīng)值，默認(rèn)值為32767。(2) Min屬性：默認(rèn)值為0。(3) SmallChange屬性：返回或設(shè)置當(dāng)用戶單擊滾動(dòng)箭頭時(shí)，滾動(dòng)條控件Value屬性值改變量。(4) LargeChange屬性返回設(shè)置當(dāng)用戶單擊滾動(dòng)條和滾動(dòng)箭頭之間區(qū)域時(shí)，滾動(dòng)條控件Value屬性值改變量。(5) Value屬性控件當(dāng)前值，由滾動(dòng)條當(dāng)前位置決定。隨滾動(dòng)條滑塊位置改變而改變，其值介于Min和Max之間。4/21/202431清華大學(xué)出版社31/38慣用屬性(1)Value 滑塊所處位置所代表值。(2)Max：最大值 -32,768~32,767(3)Min：最小值 -32,768~32,767(4)SmallChange 最小變動(dòng)值，單擊箭頭時(shí)移動(dòng)增量值。(5)LargeChange 最大變動(dòng)值，單擊空白處時(shí)移動(dòng)增量值。4/21/202432清華大學(xué)出版社32/382.滾動(dòng)條事件滾動(dòng)條慣用事件有：Change事件和Scroll事件(1)Change事件當(dāng)滾動(dòng)條控件滑塊所處位置發(fā)生改變引發(fā)Value屬性值改變時(shí)觸發(fā)Change事件。(2)Scroll事件在滾動(dòng)條控件滑塊被拖動(dòng)過(guò)程中，會(huì)連續(xù)觸發(fā)多個(gè)Scroll事件。圖7-11①最小字號(hào)為8，最大字號(hào)為72。②單擊滾動(dòng)條箭頭時(shí)，字號(hào)每次改變1；單擊滾動(dòng)條和滾動(dòng)箭頭之間區(qū)域時(shí)，字號(hào)每次改變4?！纠?.7】建立一個(gè)用滾動(dòng)條控制一個(gè)文本框中字體大小程序。程序運(yùn)行效果如圖7-11所表示。要求：4/21/202433清華大學(xué)出版社33/38注意區(qū)分change和scroll事件PrivateSubHScroll1_Change（）Label1.Caption=HScroll1.ValueText1.FontSize=HScroll1.ValueEndSubPrivateSubHScroll1_scroll（）Label1.Caption=HScroll1.ValueText1.FontSize=HScroll1.ValueEndSub4/21/202434清華大學(xué)出版社34/387.6圖片框控件和圖像框控件圖片框控件（PictureBox）：

慣用屬性Picture屬性1）在設(shè)計(jì)階段裝入在設(shè)計(jì)階段，能夠用屬性窗口中Picture屬性裝入圖形文件。2）在運(yùn)行期間裝入在運(yùn)行期間，能夠用LoadPicture函數(shù)把圖形文件裝入圖片框或圖像框中。語(yǔ)句格式以下：

對(duì)象名.Picture=LoadPicture（[filename]）慣用事件CLICK、DBCLICK用于在窗體指定位置顯示圖形信息。VB6.0支持.Bmp、.ico、.wmf、.jpg、.gif等格式圖形文件。4/21/202435清華大學(xué)出版社35/382.圖像框控件（ImageBox）慣用屬性

Picture屬性：等同于圖片框

stretch屬性:用于圖像框。當(dāng)該屬性取值為False時(shí)，圖像控件將自動(dòng)改變大小以與圖形大小相適應(yīng)；當(dāng)其值為True時(shí)，顯示在控件中圖像大小將完全適合于