VB第五課-控件1.ppt

1、第5章 常用標(biāo)準(zhǔn)控件,5.1 文本框和標(biāo)簽 5.2 命令按鈕、復(fù)選框、單選按鈕和框架 5.3 列表框、組合框和滾動(dòng)條 5.4 圖片框、圖像框和計(jì)時(shí)器 5.5 對(duì)象命名前綴,5.1 文本框和標(biāo)簽,程序運(yùn)行中，需要通過(guò)鍵盤(pán)接收用戶輸入的信息，或把有關(guān)信息顯示在屏幕上。在Visual Basic 中，可以用文本框和標(biāo)簽實(shí)現(xiàn)接收信息和顯示信息。 本節(jié)主要介紹文本框和標(biāo)簽的特點(diǎn)和使用方法。文本框用于顯示可以進(jìn)行編輯的文本，標(biāo)簽用來(lái)顯示不想讓其他用戶改變的文本。文本框通常用于向計(jì)算機(jī)輸入信息，而標(biāo)簽通常用于輸出信息。,1、文本框?qū)傩?1）Text 屬性字符型 在文本框中顯示的正文內(nèi)容存放在該屬性中。當(dāng)程序

2、運(yùn)行時(shí)，用戶通過(guò)鍵盤(pán)輸入的正文內(nèi)容，也保存在該屬性中。 文本框沒(méi)有Caption屬性 2）Maxlength： 數(shù)值型該屬性用于限定文本框中可以輸入的最大字符數(shù)。默認(rèn)值0表示任意長(zhǎng)度值。,是一個(gè)文本編輯區(qū)域，可以輸入，編輯和顯示文本。,5.1.1文本框TextBox,3） MultiLine邏輯型 如果將Multiline屬性設(shè)為False，則在文本框中只能輸入單行文本，如果將Multiline屬性設(shè)為T(mén)rue，則可以使用多行文本，文本自動(dòng)換行。默認(rèn)一行. False 4）PasswordChar屬性字符型 當(dāng)MultiLine為False時(shí),該屬性可用于口令輸入，可以將任何輸入的字符以某個(gè)特

3、定字符顯示，例如，若希望在文本框中顯示星號(hào)，則可在【屬性窗口】中將 PasswordChar 屬性指定為 “*” 。這時(shí)，無(wú)論用戶輸入什么字符，文本框中都顯示星號(hào)。,5.1.1文本框TextBox,5）ScrollBars： 數(shù)值型 當(dāng)MultiLine為T(mén)rue時(shí),該屬性才有效，可以用來(lái)在多行文本框中加入各種滾動(dòng)條。 0-None：無(wú)滾動(dòng)條 1-Horizontal：水平滾動(dòng)條 2-Vertical垂直滾動(dòng)條 3-Both水平和垂直滾動(dòng)條 當(dāng)設(shè)置ScrollBars為非0 ,自動(dòng)換行失效。 6）Locked：邏輯型 該屬性用來(lái)指定文本框中的內(nèi)容是否可被編輯修改。 False，表示為可編輯。

4、7） Alignment屬性 該屬性用于設(shè)置文本框中文本的對(duì)齊方式。,5.1.1文本框TextBox,8）SelStart、SelLength和SelText屬性 這三個(gè)屬性都是文本框中對(duì)文本的編輯屬性。 SelStart：確定在文本框選中文本的起始位置。 SelLength：設(shè)置或返回文本框中選定的文本字符串長(zhǎng)度，即字符個(gè)數(shù)。 SelText：設(shè)置或返回當(dāng)前選定文本中的文本字符串。如果沒(méi)有選中的字符，那么返回值為空。 見(jiàn)【例5.1】,5.1.1文本框TextBox,界面設(shè)計(jì),5.1.1文本框TextBox,【例5.1】制作一個(gè)登錄對(duì)話框，界面設(shè)計(jì)如圖所示。程序運(yùn)行時(shí)，在上面的文本框內(nèi)輸入密碼

5、，如果輸入的文本與預(yù)設(shè)的密碼相同，單擊【確定】按鈕，則在另一個(gè)文本框內(nèi)顯示“密碼正確，歡迎你使用本系統(tǒng)！”，否則文本框內(nèi)顯示“密碼錯(cuò)誤，請(qǐng)重新輸入！”，單擊【清除】按鈕，則清除文本框內(nèi)的內(nèi)容。,2. 文本框的事件 文本框除響應(yīng)鼠標(biāo)的Click和Dbclick事件外，常用的事件有： 1）Change事件 當(dāng)文本框中的內(nèi)容(Text)發(fā)生變化時(shí)激發(fā)該事件。無(wú)論是通過(guò)用戶輸入還是通過(guò)代碼改變文本框中的內(nèi)容，都會(huì)觸發(fā)該事件。 2）KeyPress(KeyAscii As Integer)： 當(dāng)用戶按下并釋放鍵盤(pán)上一個(gè)ANSI鍵時(shí)，就會(huì)觸發(fā)一次該事件，并返回一個(gè)KeyAscii參數(shù)（字符的Ascii值）

6、到該事件過(guò)程中。 例如：輸入“A”，則KeyAscii的值是65?？捎煤瘮?shù)Chr$(KeyAscii) 得到字符“A”。,5.1.1文本框事件,3）LostFocus事件 當(dāng)用戶按下Tab鍵時(shí)光標(biāo)離開(kāi)文本框，或用鼠標(biāo)選擇其他對(duì)象時(shí)觸發(fā)該事件，稱為“失去焦點(diǎn)”事件，在控件失去焦點(diǎn)時(shí)發(fā)生。4）GotFocus事件 控件獲得焦點(diǎn)時(shí)發(fā)生，當(dāng)文本框具有輸入焦點(diǎn)時(shí)，鍵盤(pán)上輸入的每個(gè)字符都將在該文本框中顯示出來(lái)。只有當(dāng)一個(gè)文本框被激活并且可見(jiàn)性為T(mén)rue時(shí)才能接收到焦點(diǎn)。 3. 文本框的方法 SetFocus(設(shè)置焦點(diǎn)) 格式：.SetFocus 功能： 把光標(biāo)移到指定的文本框?qū)ο笾小?5.1.1文本框事件

7、,4、說(shuō)明： 1)、利用SetFocus方法可以使對(duì)象獲得“焦點(diǎn)” 2)、用TabIndex屬性可以控制當(dāng)Tab鍵改變焦點(diǎn)時(shí)的移動(dòng)順序 3)、可以用TabStop屬性使某個(gè)文本框輪空,界面設(shè)計(jì),【例5.2】設(shè)計(jì)一個(gè)如圖所示的窗體，在窗體上畫(huà)兩個(gè)文本框、兩個(gè)命令按鈕和三個(gè)標(biāo)簽，程序運(yùn)行時(shí)，當(dāng)在其中一個(gè)文本框中輸入英文字符時(shí)，另一個(gè)文本框會(huì)顯示相同的內(nèi)容，始終第一個(gè)文本框會(huì)顯示小寫(xiě)字母，第二個(gè)文本框會(huì)顯示大寫(xiě)字母。按【清除】按鈕，會(huì)清除文本框中的內(nèi)容。按【退出】按鈕，退出程序。,例5.3,Option Explicit Private Sub Form_Load() Label1.Caption

8、= End Sub Private Sub Command1_Click() Label1.Caption = Text3 = Str$(Val(Text1) + Val(Text2) End Sub Private Sub Command2_Click() Label1.Caption = Text3 = Str$(Val(Text1) - Val(Text2) End Sub Private Sub Command3_Click() 乘法 Label1.Caption = Text3 = Str$(Val(Text1) * Val(Text2) End Sub,Private Sub Co

9、mmand4_Click() Label1.Caption = Text3 = Str$(Val(Text1) / Val(Text2) End Sub Private Sub Command5_Click() 清除 Text1.Text = Text2.Text = Text3.Text = “ Label1.Caption = End Sub,例5.4 設(shè)計(jì)一個(gè)程序，當(dāng)用戶輸入大寫(xiě)英文字母時(shí)，窗體顯示“輸入正確！”，否則顯示“輸入有錯(cuò)誤，請(qǐng)使用大寫(xiě)字母！”,Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 90 Then

10、 Cls Print 輸入有錯(cuò)誤，請(qǐng)使用大寫(xiě)字母！ Else Cls Print 輸入正確 End If End Sub,作業(yè)1 一個(gè)用戶身份驗(yàn)證程序,Private Sub Text1_KeyPress(KeyAscii As Integer) Dim pw As String, i As Integer If KeyAscii = 13 Then 按回車(chē)鍵后進(jìn)行密碼檢驗(yàn) pw = Trim(Text1) If pw = 123456 Or pw = 198964 Or pw = 168789 Then MsgBox “你的口令正確, vbInformation + vbOKOnly, 用戶

11、身份驗(yàn)證 Else i = MsgBox(口令不正確, vbYesNo + vbQuestion, 提示信息) If i 7 Then Text1.Text = Text1.SetFocus Else End End If End If End If End Sub,作業(yè)2、根據(jù)輸入的成績(jī)計(jì)算平均分,其格式為保留兩位小數(shù),用于顯示文本信息，不能作為輸入信息的界面。因?yàn)闃?biāo)簽只能顯示文本，不能進(jìn)行編輯。所以，可以用標(biāo)簽為文本框、列表框和組合框等控件附加描述性信息。,1常用屬性 （1）Caption屬性 該屬性用于在標(biāo)簽中顯示文本。缺省情況下，當(dāng)文本超過(guò)控件寬度時(shí)，文本會(huì)自動(dòng)換行，而當(dāng)文本超過(guò)控件高

12、度時(shí)，超出部分將被裁剪掉。,5.1.2 標(biāo)簽Label,（2） Alignment屬性 設(shè)置Caption屬性中文本的對(duì)齊方式，共有三種可選值： 0 左對(duì)齊(Left Justify)； 1 右對(duì)齊(Right Justify)； 2 居中對(duì)齊(Center Justify)。 （3）BackStyle屬性 該屬性用于設(shè)置標(biāo)簽背景的顯示模式。有兩種情況可選：值為0時(shí)，表示背景透明，標(biāo)簽后的背景和圖形可見(jiàn)；值為1時(shí)，表示不透明，標(biāo)簽后的背景和圖形不可見(jiàn)。 (4) BorderStyle屬性 該屬性用于設(shè)置標(biāo)簽有無(wú)邊框。,（5）AutoSize屬性 該屬性用于設(shè)置能否根據(jù)Caption屬性指定的標(biāo)

13、題內(nèi)容自動(dòng)調(diào)整標(biāo)簽的大小。 如果值為T(mén)rue，則隨Caption內(nèi)容的大小自動(dòng)調(diào)整控件本身的大小，且不換行；如果值為False，表示標(biāo)簽的尺寸不能自動(dòng)調(diào)整，超出尺寸范圍的內(nèi)容不予顯示。 （6）WordWrap屬性 此屬性只能應(yīng)用于標(biāo)簽，而且只能在Autosize屬性為T(mén)rue的情況下使用。用于設(shè)置調(diào)整標(biāo)簽大小時(shí)的方式。 True: 文本卷繞；Label 控件垂直展開(kāi)或縮短，以使其與文本和字體大小相適。水平大小不變。 False:（缺省值）文本不卷繞；Label 水平地展開(kāi)或縮短以使其與文本的長(zhǎng)度相適，并且垂直地展開(kāi)或縮短以使其與字體的大小和文本的行數(shù)相適應(yīng)。,注意 AutoSize屬性為Fal

14、se，不管WordWrap屬性如何，文本總是要自動(dòng)換行，若標(biāo)簽不夠高而Caption太長(zhǎng)時(shí)，Caption將被切割掉。 AutoSize屬性為T(mén)rue，WordWrap屬性為False時(shí)，表示可以水平伸展，但只顯示一行信息。 如果 AutoSize 和 WordWrap 都設(shè)置為 True，標(biāo)簽會(huì)垂直伸展、文本將會(huì)自動(dòng)換行，而不會(huì)增加 Label 控件的寬度，但有一種情況例外，那就是所輸入的一個(gè)單詞的長(zhǎng)度要大于 Label 寬度。此時(shí)Label 的寬度將增加到適應(yīng)這個(gè)長(zhǎng)單詞。,例5.5 在窗體上，放置5個(gè)標(biāo)簽，其名稱使用默認(rèn)值Label1Label5，在屬性窗口，按下表設(shè)置它們的屬性,1. 焦

15、點(diǎn) 焦點(diǎn)是指對(duì)象接收用戶鼠標(biāo)或鍵盤(pán)輸入的能力。 程序運(yùn)行時(shí)，可以用下列方法使對(duì)象獲得焦點(diǎn)： 用SetFocus方法在代碼中設(shè)置焦點(diǎn)。對(duì)象名.Setfocus 用鼠標(biāo)單擊對(duì)象。 Tab鍵或Shift+Tab在當(dāng)前窗體的各對(duì)象之間巡回移動(dòng)焦點(diǎn)。 按熱鍵選擇對(duì)象。,5.1.3 焦點(diǎn)與Tab鍵序,2. Tab鍵序 TabIndex屬性決定控件接收焦點(diǎn)的順序。當(dāng)畫(huà)出第一個(gè)控件時(shí)，該屬性值默認(rèn)為0，第二個(gè)為1，第三個(gè)為2。程序運(yùn)行中按Tab鍵時(shí)，焦點(diǎn)將根據(jù)TabIndex屬性值所指定的焦點(diǎn)移動(dòng)順序移動(dòng)到下一個(gè)控件。 TabStop屬性決定焦點(diǎn)是否能夠停在該控件上。如果為假（False），則運(yùn)行中按Tab鍵

16、選擇控件時(shí)，將跳過(guò)該控件，并按焦點(diǎn)移動(dòng)順序把焦點(diǎn)移到下一個(gè)控件上。,5.2 命令按鈕、復(fù)選框、單選按鈕和框架,5.2.1 命令按鈕 命令按鈕可以說(shuō)是所有控件中最為常見(jiàn)的，幾乎每個(gè)應(yīng)用程序都需要通過(guò)它同用戶進(jìn)行交互，命令按鈕通常用來(lái)在單擊時(shí)執(zhí)行指定的操作。啟動(dòng)命令可以有三種方式: 1）鼠標(biāo)單擊； 2）按Tab鍵焦點(diǎn)跳轉(zhuǎn)到該按鈕, 再按回車(chē)鍵； 3） 快捷鍵（Alt+有下劃線的字母） 1常用屬性 （1）Caption: 命令按鈕顯示的內(nèi)容，可在某字母前加 “&“設(shè)置快捷鍵。例如： &Ok ,顯示 Ok （2）Default：當(dāng)一個(gè)命令按鈕的Default屬性被設(shè)置為T(mén)rue時(shí)，該按鈕為缺省活動(dòng)按鈕

17、，即程序運(yùn)行時(shí)按回車(chē)鍵和單擊該命令按鈕的效果相同。 注意：在一個(gè)窗體只能的一個(gè)按鈕的Default設(shè)置為T(mén)rue。,（3）Cancel:當(dāng)設(shè)置為T(mén)rue時(shí)，該按鈕為缺省取消按鈕，即 程序運(yùn)行時(shí)按Esc鍵與單擊此命令按鈕的效果相同。 注意：在一個(gè)窗體只能的一個(gè)按鈕的Cancel設(shè)置為T(mén)rue （4）Visible: 檢查該按鈕運(yùn)行時(shí)是否可見(jiàn)。 True，可見(jiàn)；False，不可見(jiàn)。 （5）Style : 確定顯示的形式： 0 只能顯示文字, 1 文字、圖形均可 。 （6）Picture和DownPicture :使命令按鈕具有圖形背景的兩個(gè)屬性。按鈕可顯示圖片文件(.bmp和.Ico)，只有當(dāng)St

18、yle屬性值為1時(shí)有效。 DownPicture在控件被單擊并處于按下?tīng)顟B(tài)時(shí)顯示的圖形。 （7）ToolTipText ：設(shè)置工具提示，和Picture結(jié)合使用。,5.2.1 命令按鈕,2. 事件 能夠響應(yīng)的常用事件是Click，MouseDown，MouseUp，命令按鈕不支持DblClick雙擊事件 3. 命令按鈕的方法 命令按鈕的常用方法有：Move，SetFocus方法。 見(jiàn)【例】,5.2.1 命令按鈕,例5.6,Private Sub Command1_Click() If Command1.Caption = 顯 示 Then Text1.FontSize = 20 設(shè)置文本框顯示

19、文本的字符大?。ò酰?Text1.Text = 這是我的第一個(gè)VB應(yīng)用程序 Command1.Caption = 繼 續(xù) Command2.Enabled = False 讓命令按鈕Command2變?yōu)椴豢捎?Else Text1.FontSize = 26 Text1.Text = 敬 請(qǐng) 賜 教，謝謝！ Command1.Caption = 顯 示 Command2.Enabled = True End If End Sub Private Sub Command2_Click() 同樣編寫(xiě)另外事件的過(guò)程代碼 End End Sub Private Sub Form_Load() 設(shè)置命令

20、按鈕Command2初始狀態(tài)不能用 Command2.Enabled = False End Sub,例、 文本框?yàn)榭諘r(shí)，按鈕無(wú)效，反之有效,Private Sub Text1_Change() If Text1.Text = Then 查看文本框是否為空。 Command1.Enabled = False 使按鈕無(wú)效。 Else Command1.Enabled = True 使按鈕有效。 End If End Sub,【作業(yè)3】窗體界面設(shè)計(jì)如圖所示，程序運(yùn)行時(shí)，用【上】【下】【左】【右】 四個(gè)按鈕來(lái)控制實(shí)現(xiàn)窗體的移動(dòng)，并且保證不移動(dòng)到屏幕之外。,窗體界面,檢查框,5.2.2 復(fù)選框（檢查框

21、）checkBox,5.2.2 復(fù)選框,復(fù)選框也稱檢查框，復(fù)選框有兩種狀態(tài)可以選擇：選中（或稱“打開(kāi)”，復(fù)選框中出現(xiàn)一個(gè)“”標(biāo)志），不選（或稱“關(guān)閉”，“”標(biāo)志消失）。如同一個(gè)開(kāi)關(guān)一樣，每單擊一次復(fù)選框，它的狀態(tài)在“打開(kāi)”與“關(guān)閉”之間來(lái)回切換，“”標(biāo)志也在有和無(wú)之間切換。 1. 復(fù)選框的屬性 復(fù)選框除了具有前面介紹過(guò)的Name，Caption，Visible，Enabled，BackColor， FontBold，F(xiàn)ontItalic，F(xiàn)ontName，F(xiàn)ontSize，F(xiàn)ontUnderline，Height，left，Top，Width等屬性外，常用的還有Value屬性 。,Value

22、復(fù)選框的Value 屬性值為數(shù)值型數(shù)據(jù)，可取 0 , 1 , 2 0-Unchecked：未被選定 1-Checked：選定 2-Grayed：灰色，禁止選擇,(2) Alignment 數(shù)值型 設(shè)置復(fù)選框在標(biāo)題的左側(cè)（）還是右側(cè)（） (3) Style 數(shù)值型 設(shè)置復(fù)選框的外觀。Style=0,標(biāo)準(zhǔn)復(fù)選框的外觀，即在一個(gè)方框邊顯示提示信息。 Style=1,其控件類似于命令按鈕。單擊，被按下未彈起狀態(tài)，再次單擊，恢復(fù)原狀。,2. 復(fù)選框的事件 復(fù)選框能夠響應(yīng)的最常用的事件是Click事件。用戶一般無(wú)需為檢查框編寫(xiě)Click事件過(guò)程，但其對(duì)Value屬性值的改變遵循以下規(guī)則： 單擊未選中的檢查

23、框時(shí)， Value屬性值變?yōu)? ； 單擊已選中的檢查框時(shí)， Value屬性值變?yōu)? ； 單擊變灰的檢查框時(shí)，Value屬性值變?yōu)?。,例5.7 復(fù)選按鈕例,Private Sub Check1_Click() Text1.Font = 隸書(shū) End Sub Private Sub Check2_Click() Text1.FontItalic = True End Sub Private Sub Check3_Click() Text1.FontSize = 20 End Sub,Private Sub Check1_Click() If Check1.Value Then Text1.Fon

24、t = 隸書(shū) Else Text1.Font = 宋體 End Sub Private Sub Check2_Click() If Check2.Value Then Text1.FontItalic = True Else Text1.FontItalic = False End Sub Private Sub Check3_Click() If Check3.Value Then Text1.FontSize = 20 Else Text1.FontSize = 12 End Sub,【作業(yè)4】編寫(xiě)程序使用復(fù)選框?qū)崿F(xiàn)對(duì)文本的字形控 制，界面設(shè)計(jì)如圖1所示。程序的執(zhí)行結(jié)果如圖2所示。,圖1

25、界面設(shè)計(jì),圖2 執(zhí)行結(jié)果,單選按鈕,5.2.3 單選按鈕OptionButton,單選按鈕類似于復(fù)選框，但又有所不同，如果有多個(gè)復(fù)選框，可以同時(shí)選擇多個(gè)復(fù)選框，每個(gè)復(fù)選框都是獨(dú)立、互不影響的。但是在一組單選按鈕中，只能選擇其中的一個(gè)。圓圈中的小黑點(diǎn)表示選中，當(dāng)選中一項(xiàng)時(shí)，將立即清除該組中其他按鈕的選擇。,1. 單選按鈕的屬性 （1） Caption：文本標(biāo)題。設(shè)置單選鈕的文本注釋內(nèi)容。 （2） Alignment屬性： 0：Left Justify(缺省)控件鈕在左邊，標(biāo)題顯示在右邊。 1：Right Justify 控件鈕在右邊，標(biāo)題顯示在左邊。 （3）Value 屬性返回控件的狀態(tài),復(fù)選框

26、 0-Unchecked：未被選定 1-Checked：選定 2-Grayed：灰色，禁止選擇,單選按鈕 True: 單選鈕被選定 False: 單選鈕未被選定，缺省設(shè)置,單選按鈕與復(fù)選框Value 屬性的比較,（4） Style 屬性 0-Standard： 標(biāo)準(zhǔn)方式 1-Graphical：圖形方式,2. 單選按鈕的事件 單選按鈕能夠響應(yīng)的常用事件是Click事件。 見(jiàn)【例5.8】 例5.8 單選按鈕例,Private Sub Option1_Click() Text1.Font = 宋體 End Sub Private Sub Option2_Click() Text1.Font = 楷

27、體_GB2312 End Sub Private Sub Option3_Click() Text1.Font = 隸書(shū) End Sub,Private Sub Form_Click() If Option1.Value Then Text1.Font = 宋體 If Option2.Value Then Text1.Font = 楷體_GB2312 If Option3.Value Then Text1.Font = 隸書(shū) End Sub,【作業(yè)5】設(shè)計(jì)一個(gè)程序，如圖1所示的窗體，程序運(yùn)行時(shí)，當(dāng)單擊某個(gè)單選按鈕后，在下面的標(biāo)簽會(huì)顯示相應(yīng)的歡迎詞，執(zhí)行結(jié)果分別見(jiàn)圖2和圖3。,圖1窗體界面 圖2

28、執(zhí)行結(jié)果1 圖3執(zhí)行結(jié)果2,3. 使用單選鈕組 當(dāng)需在同一窗體中建立幾組相互獨(dú)立的單選鈕時(shí)，需用框架（Frame）將每一組單選鈕框起來(lái)，這樣在一個(gè)框架內(nèi)的單選鈕為一組，它們的操作不影響框外其他組的單選鈕。,5.2.4 框架 (Frame),Frame 控件用于將窗體內(nèi)的控件進(jìn)行分組，將具有聯(lián)系的一類控件單獨(dú)分成一組放置在框架中。,框架內(nèi)控件的創(chuàng)建方法： 為了將控件分組，首先需要繪制 Frame 控件，然后繪制 Frame 里面的控件。 方法1：?jiǎn)螕艄ぞ呦渖系墓ぞ?，然后用出現(xiàn)的“+”指針，在框架中適當(dāng)位置拖拉出適當(dāng)大小的控件。 不能使用雙擊工具箱上工具的自動(dòng)方式。 方法2：將控件“剪切”(Ctr

29、l+X)到剪貼板，然后選中框架，使用 (Ctrl+V)命令粘貼到框架內(nèi)。,1. 框架的屬性 框架具有前面介紹過(guò)的Name，Caption，Visible，Enabled，BackColor，F(xiàn)ontBold，F(xiàn)ontItalic，F(xiàn)ontName，F(xiàn)ontSize，F(xiàn)ontUnderline，Height，left，Top，Width等許多屬性。 1）Caption屬性：框架標(biāo)題 2）Enabled屬性：值為False時(shí)，標(biāo)題呈灰色 3）Visible屬性： True：框架及其控件可見(jiàn)。 False：框架及其控件被隱含起來(lái) 2.框架的事件 框架常用的事件是Click和DbClick，它不接受用

30、戶輸入，不能顯示文本和圖形，也不能與圖形相連。,3. 使用框架的注意事項(xiàng)： (1) 要先在窗體上繪制出框架，然后再在框架內(nèi)部繪制出其中的控件。這樣可以保證在移動(dòng)框架時(shí)，其內(nèi)部的控件也會(huì)同時(shí)移動(dòng)。 (2) 如果希望將窗體上已經(jīng)存在的控件放置到框架內(nèi)部，可以先將希望放置在框架內(nèi)部的控件全部選中，使用【剪切】命令將它們剪切到剪貼板上，然后再選定框架，使用【粘貼】命令將它們粘貼到框架內(nèi)部。 (3) 需要選擇框架內(nèi)部的多個(gè)控件時(shí)，必須先按住Ctrl鍵，再使用鼠標(biāo)拉出虛框?qū)⒍鄠€(gè)控件選定在范圍內(nèi)，然后松開(kāi)鼠標(biāo)，范圍內(nèi)的多個(gè)控件即可被全部選中。 見(jiàn)【例5.9】,例5.9 根據(jù)選擇改變文本字體、字形和字號(hào),Pr

31、ivate Sub cmdCancel_Click() Form_Load 調(diào)用窗體的初始化過(guò)程 End Sub Private Sub cmdOK_Click() If optSong.Value Then lblExample.FontName = optSong.Caption Else lblExample.FontName = optHei.Caption End If lblExample.FontBold = chkBold.Value lblExample.FontItalic = chkItalic.Value 設(shè)置字號(hào) If optTen.Value Then lblExa

32、mple.FontSize = 10 Else lblExample.FontSize = 12 End If End Sub,Private Sub Form_Load() 初始化控件的缺省設(shè)置 optSong.Value = True chkBold.Value = 0 chkItalic.Value = 0 optTen.Value = True 初始化字體的缺省設(shè)置 lblExample.FontName = optSong.Caption lblExample.FontBold = chkBold.Value lblExample.FontItalic = chkItalic.Val

33、ue lblExample.FontSize = 10 End Sub,【作業(yè)6】設(shè)計(jì)一個(gè)程序，窗體界面設(shè)計(jì)如圖所示，用框架將相關(guān)的單選按鈕放在一組中，每個(gè)框架中放兩個(gè)單選按鈕，一組是用來(lái)選擇性別，一組是用來(lái)選擇民族，一組是用來(lái)選擇是否黨員。程序運(yùn)行時(shí)，選擇相應(yīng)的選項(xiàng)，單擊【顯示】按鈕，在下面的標(biāo)簽會(huì)顯示出選擇的結(jié)果，結(jié)果如圖所示。單擊【退出】按鈕，程序退出。,圖界面設(shè)計(jì) 圖 執(zhí)行結(jié)果,5.3.1列表框 在程序設(shè)計(jì)中。有時(shí)希望能夠把較多的項(xiàng)目在個(gè)列表中顯示出來(lái)，從而進(jìn)行選擇操作，列表框控件為用戶提供了選項(xiàng)列表的功能。如果項(xiàng)目總數(shù)超過(guò)了可顯示的項(xiàng)目數(shù)，Visual Basic會(huì)自動(dòng)為它加上滾動(dòng)條

34、。列表框有兩種風(fēng)格：標(biāo)準(zhǔn)和復(fù)選列表框。通過(guò)它的Style屬性來(lái)設(shè)置。,5.3 列表框 、組合框和滾動(dòng)條,5.3.1 列表框（List Box）,1. 列表框的屬性 （1）Style屬性 該屬性用于確定列表框的外觀，只能在設(shè)計(jì)時(shí)確定。在運(yùn)行時(shí)是只讀的。當(dāng)Style=0為標(biāo)準(zhǔn)列表框，當(dāng)Style=1為復(fù)選列表框。（參上頁(yè)） （2）List屬性 可在設(shè)計(jì)和運(yùn)行時(shí)設(shè)置 字符型數(shù)組，存放列表框的項(xiàng)目數(shù)據(jù)，下標(biāo)是從0開(kāi)始的。例如： List(0)表示第一項(xiàng)的內(nèi)容 （3） ListCount屬性數(shù)值型 該屬性用于計(jì)算列表框中列表項(xiàng)的總個(gè)數(shù)。List數(shù)組中最后一項(xiàng)的下標(biāo)值即為L(zhǎng)istCount -1 。,（4

35、）ListIndex屬性數(shù)值型 該屬性用于顯示當(dāng)前選中的選項(xiàng)在List數(shù)組中的下標(biāo)值。下標(biāo)值從0開(kāi)始，以此類推，如果當(dāng)前沒(méi)有選中任何選項(xiàng)，則ListIndex的值將被自動(dòng)設(shè)置為-1。 （5）Columns屬性數(shù)值型 該屬性用來(lái)確定列表框的列數(shù)。此屬性值設(shè)置為0，所有項(xiàng)目呈單列顯示，如果該屬性大于或等于1，則列表框呈多列顯示。,（6）MultiSelect屬性數(shù)值型 用于指示是否能夠在列表框控件中進(jìn)行復(fù)選以及如何進(jìn)行復(fù)選，在運(yùn)行時(shí)是只讀的。,（7）Selected屬性 該屬性返回或設(shè)置在列表框控件中某項(xiàng)目是否選中的狀態(tài)。該屬性是一個(gè)邏輯類型的數(shù)組，數(shù)組元素個(gè)數(shù)與列表框中的項(xiàng)目數(shù)相同，其下標(biāo)的變化

36、范圍與List屬性相同。選中時(shí)，值為T(mén)rue；未被選中，值為False。 用下面的語(yǔ)句可以選擇指定的列表項(xiàng)或取消已選擇的列表項(xiàng)：.Selected(索引值) = True/False 注意：“索引值”從0開(kāi)始，如果是第三項(xiàng)，那么索引值是 2 ，如果是第十項(xiàng)，那么索引值是 9 ，以此類推。 例如：List1.Selected（0）=True表示列表框List1的第一個(gè)項(xiàng)目被選中，此時(shí)ListIndex的值設(shè)置為0。Selected屬性在設(shè)計(jì)時(shí)是不可用的，即無(wú)法在屬性窗口中設(shè)置屬性值。,（8）Text屬性字符型 該屬性用于顯示最后一次選中的選項(xiàng)的內(nèi)容。Text屬性的返回值總與List（ListIn

37、dex）的值相同。 （9）Sorted屬性 返回一個(gè)邏輯值，當(dāng)Sorted屬性為T(mén)rue時(shí)列表框控件或組合框控件的項(xiàng)目自動(dòng)按字母數(shù)字順序（升序）排序，為False時(shí)項(xiàng)目按加入的先后順序排列顯示。該屬性只能在設(shè)計(jì)時(shí)設(shè)置，不能在程序代碼中設(shè)置。 （10）SelCount（選中項(xiàng)目數(shù)量）： 只有當(dāng) MultiSelect 屬性值為1或2時(shí)，本屬性才起作用，用來(lái)讀取列表框中所選項(xiàng)目的數(shù)目，通常與Selected屬性一起使用，以處理控件中的所選項(xiàng)目。,2. 列表框事件 列表框主要接收事件為：Click、DblClick事件。 3. 列表框方法 (1) AddItem方法： 該方法用于在程序代碼中向列表框

38、中添加一個(gè)選項(xiàng)，只能單個(gè)地向表中添加項(xiàng)目。 格式為：. AddItem，索引值。 選項(xiàng)內(nèi)容字符串: 為字符串表達(dá)式，表示要加入的項(xiàng)目。 索引值:決定新增項(xiàng)目的位置，缺省，則添加在最后。 例如list1.AddItem “包頭”,2 插入第3項(xiàng) list1.AddItem “上?！?插入末項(xiàng),(2) RemoveItem方法 該方法用于刪除列表框中某個(gè)指定的項(xiàng)目，此方法每次只能刪除列表框中一個(gè)選項(xiàng)。 格式為：.RemoveItem 例如list1.RemoveItem 2 刪除第3項(xiàng) list1. RemoveItem list1.listindex 刪除當(dāng)前所選項(xiàng) 例如，要?jiǎng)h除列表框（List

39、1）中所有選中的項(xiàng)目，可使用下面的程序段： i = 0 Do While i = List1.ListCount - 1 If List1.Selected(i) = True Then List1.RemoveItem i else i = i + 1 End If Loop,(3) Clear方法 該方法用于清除列表框中的全部?jī)?nèi)容，而且ListCount屬性的值重新被設(shè)置為0。 格式為：.Clear 例如，要?jiǎng)h除列表框（List1）中所有項(xiàng)目，可使用： List1. Clear,【作業(yè)7】設(shè)計(jì)一個(gè)程序，用以選擇用戶喜愛(ài)的體育項(xiàng)目。界面設(shè)計(jì)如圖所示，其功能是：在左邊的列表框中選擇一個(gè)項(xiàng)目，再

40、單擊【添加】按鈕，左邊的列表框移除相應(yīng)的項(xiàng)目，在右邊的列表框中添加所選的內(nèi)容。在右邊的列表框中選擇一個(gè)項(xiàng)目，再單擊【移除】按鈕，在左邊的列表框中添加所選的內(nèi)容，在右邊的列表框中移除所選的內(nèi)容。,界面設(shè)計(jì),【作業(yè)8 】設(shè)計(jì)一個(gè)程序，程序運(yùn)行時(shí)，如圖所示窗體上有兩個(gè)列表框，左列表框（LstLeft）羅列了一些體育項(xiàng)目，右列表框初始狀態(tài)為空；單擊【-】按鈕，可以將左列表框中選定的項(xiàng)目移動(dòng)到右列表框中；單擊【-】按鈕，可以將左列表框中的所有內(nèi)容移動(dòng)到右列表框中。單擊【-】按鈕，可以將右列表框中的選定的項(xiàng)目移到左邊列表框；單擊【-】按鈕，可以將右列表框中所有的內(nèi)容移到左列表框中。,窗體界面,組合框用于將

41、文本框和列表框的功能結(jié)合在一起，既允許用戶直接輸入文本，也允許用戶通過(guò)列表進(jìn)行選擇。 組合框共三種風(fēng)格：下拉式組合框、簡(jiǎn)單組合框和下拉式列表框。由style 屬性控制,5.3.2組合框（ ComboBox）,1. 組合框?qū)傩院头椒?(1) Style屬性 該屬性用于設(shè)計(jì)組合框的外表樣式。 (2) Text屬性 該屬性用于獲取組合框內(nèi)列表中的當(dāng)前選項(xiàng)或者文本編輯區(qū)內(nèi)的內(nèi)容。可以利用此屬性來(lái)判斷用戶選擇了組合框中的哪個(gè)選項(xiàng)或者輸入了什么文本內(nèi)容。 2.組合框的事件 組合框響應(yīng)的事件依賴于Style屬性 當(dāng)Style=0時(shí)，響應(yīng)Click,Change,Dropdown事件； 當(dāng)Style=1時(shí)，響

42、應(yīng)Click,Change事件； (接受輸入觸發(fā)Change) 當(dāng)Style=2時(shí)，響應(yīng)Click, Dropdown事件(單擊向下箭頭觸發(fā)Dropdown） 3. 組合框方法 組合框使用的常用方法與列表框相同，用AddItem方法添加選項(xiàng)，用RemoveItem方法刪除一個(gè)選項(xiàng)，用Clear方法刪除全部選項(xiàng)。,4.列表框和組合框的Style屬性 該值用來(lái)指示控件的顯示類型和行為。在運(yùn)行時(shí)是只讀的。列表框控件和組合框控件的Style屬性含義是不同的。,可以輸入,例5.10 組合框?qū)傩栽O(shè)置,Private Sub cmdAdd_Click() 添加功能 If Combo1.Text Then F

43、or I% = 0 To Combo1.ListCount - 1 If Combo1.Text = Combo1.List(I) Then Exit For Next I If I = Combo1.ListCount Then Combo1.AddItem Combo1.Text End If End Sub Private Sub Form_Load() 列表框初始化 Combo1.AddItem chinese Combo1.AddItem english Combo1.AddItem AutoCAD Combo1.AddItem Italin Combo1.AddItem ameri

44、can End Sub,Private Sub cmdDelete_Click() 刪除功能 If Combo1.ListIndex = 0 Then Combo1.RemoveItem Combo1.ListIndex Else For I = 0 To Combo1.ListCount - 1 If Combo1.List(I) = Combo1.Text Then Combo1.RemoveItem I End If Next I End If End Sub Private Sub Command3_Click() 清除 Combo1.Clear End Sub,例5.11 編寫(xiě)個(gè)人資

45、料界面，當(dāng)點(diǎn)確定時(shí)在下邊的標(biāo)簽中顯示個(gè)人資料,Private Sub Command1_Click() Dim Sex As String, Hobby As String If Option1.Value = True Then Sex = Option1.Caption If Option2.Value = True Then Sex = Option2.Caption If Check1.Value = 1 Then Hobby = Hobby & & Check1.Caption If Check2.Value = 1 Then Hobby = Hobby & & Check2.Cap

46、tion If Check3.Value = 1 Then Hobby = Hobby & & Check3.Caption If Check4.Value = 1 Then Hobby = Hobby & & Check4.Caption Label4.Caption = Txtname.Text & & Sex & & Txtage .text & & Combo1.Text & 愛(ài)好： & Hobby End Sub Private Sub Form_Load() Combo1.AddItem 回族 Combo1.AddItem 漢族 Combo1.Text = 漢族 End Sub,例

47、5.12 設(shè)計(jì)一個(gè)用于設(shè)置字體屬性的程序，界面如圖所示。,Private Sub cboFontName_Click() lblExample.FontName = cboFontName.Text End Sub Private Sub cboFontSize_Change() lblExample.FontSize = Val(cboFontSize.Text) End Sub Private Sub cboFontSize_Click() lblExample.FontSize = Val(cboFontSize.Text) End Sub Private Sub cmdCancel_C

48、lick() lblExample.FontName = 宋體 lblExample.FontSize = 10 cboFontName.Text = 宋體 cboFontSize.Text = Str(10) End Sub,Private Sub cmdOK_Click() End End Sub Private Sub Form_Load() Dim i As Integer For i = 0 To Screen.FontCount - 1 cboFontName.AddItem Screen.Fonts(i) Next i For i = 8 To 30 Step 2 cboFont

49、Size.AddItem Str(i) Next i lblExample.FontName = 宋體 lblExample.FontSize = 10 cboFontName.Text = 宋體 cboFontSize.Text = Str(10) End Sub,【作業(yè)9】設(shè)計(jì)一個(gè)程序，界面設(shè)計(jì)如圖所示，在文本框下有三個(gè)組合框，左邊的組合框提供了可選的字體，中間的組合框提供了字形的設(shè)置，右邊的組合框提供了字號(hào)的設(shè)置。程序運(yùn)行時(shí)，選擇組合框內(nèi)不同的選項(xiàng)，文本框內(nèi)的文本會(huì)有不同的顯示效果，執(zhí)行結(jié)果如圖3.31所示。,界面設(shè)計(jì),執(zhí)行結(jié)果,5.3.3滾動(dòng)條(Scroll),滾動(dòng)條用于給自身不具備滾

50、動(dòng)條的控件提供滾動(dòng)功能。也可用作數(shù)據(jù)輸入工具，用來(lái)提供某一范圍內(nèi)的數(shù)值供用戶選擇 。 分為: 水平滾動(dòng)條（HScrollbar） 垂直滾動(dòng)條（VscrollBar）,1. 滾動(dòng)條的結(jié)構(gòu),滾動(dòng)條的兩端各有一個(gè)滾動(dòng)箭頭，在滾動(dòng)箭頭之間有一個(gè)滾動(dòng)框。滾動(dòng)框從一端移至另一端時(shí)，其值在不斷變化。垂直滾動(dòng)條的值由上往下遞增，水平滾動(dòng)條的值由左往右遞增。其值均以整數(shù)表示，取值范圍為3276832767，最小值和最大值分別在兩個(gè)端點(diǎn)。,(1) Min：最小值 -32,76832,767 (2) Value 滾動(dòng)框在滾動(dòng)條上的當(dāng)前位置。 (3) Max：最大值 -32,76832,767 (4) SmallCh

51、ange 單擊滾動(dòng)條兩端的箭頭時(shí)，Value屬性增加或減小的數(shù)值。 (5) LargeChange 用于設(shè)置當(dāng)單擊滾動(dòng)條上的空白處時(shí)，滾動(dòng)框向某個(gè)方向移動(dòng)的的增量值。,2. 滾動(dòng)條的屬性,（1） Scroll事件 該事件只在移動(dòng)滾動(dòng)框時(shí)被激活，單擊滾動(dòng)箭頭或單擊滾動(dòng)條均不能激活該事件。拖動(dòng)滑塊時(shí)會(huì)觸發(fā)Scroll事件。一般可用該事件來(lái)監(jiān)測(cè)滾動(dòng)框的動(dòng)態(tài)變化。 （2） Change事件 該事件在移動(dòng)滾動(dòng)框或通過(guò)代碼改變其Value屬性值時(shí)發(fā)生。單擊滾動(dòng)條兩端的箭頭或空白處將引發(fā)Change事件。一般可用該事件來(lái)獲得移動(dòng)后的滾動(dòng)框所在的位置值。 Scroll事件與Change事件的區(qū)別在于：當(dāng)滾動(dòng)條

52、控件滾動(dòng)時(shí)Scroll事件一直發(fā)生，而Change事件只是在滾動(dòng)結(jié)束之后才發(fā)生一次。,3. 滾動(dòng)條事件,例5.13 設(shè)計(jì)一個(gè)用于設(shè)置字體顏色的程序.,hsbRed.Min = 0 Private Sub Form_Load() 初始化設(shè)置 hsbRed.Max = 255 hsbRed.Value = 0 hsbRed.SmallChange = 1 hsbRed.LargeChange = 10 hsbGreen.Min = 0 hsbGreen.Max = 255 hsbGreen.Value = 0 hsbGreen.SmallChange = 1 hsbGreen.LargeChang

53、e = 10 hsbBlue.Min = 0 hsbBlue.Max = 255 hsbBlue.Value = 0 hsbBlue.SmallChange = 1 hsbBlue.LargeChange = 10 lblExample.ForeColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value),Private Sub hsbBlue_Change() lblExample.ForeColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value) End Sub Private Sub

54、 hsbBlue_Scroll() lblExample.ForeColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value) End Sub Private Sub hsbGreen_Change() lblExample.ForeColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value) End Sub Private Sub hsbGreen_Scroll() lblExample.ForeColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBl

55、ue.Value) End Sub Private Sub hsbRed_Change() lblExample.ForeColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value) End Sub Private Sub hsbRed_Scroll() lblExample.ForeColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value) End Sub,【作業(yè)10】界面設(shè)計(jì)如圖所示，長(zhǎng)方形的長(zhǎng)和寬不是由用戶從鍵盤(pán)上輸入，而是通過(guò)緩慢移動(dòng)滾動(dòng)框或單擊滾動(dòng)條的兩端箭頭以改變長(zhǎng)和寬的數(shù)值，

56、在相應(yīng)的文本框內(nèi)顯示出數(shù)值，同時(shí)在標(biāo)簽上顯示出計(jì)算的結(jié)果，單擊按鈕，程序退出。程序執(zhí)行效果如圖所示。,界面設(shè)計(jì),執(zhí)行結(jié)果,5.4 圖片框、圖像框和計(jì)時(shí)器,圖片框（PictureBox）和圖像框（Image）這兩種控件主要用于在窗體的指定位置顯示圖形信息。Visual Basic 6.0支持 .bmp、.ico、.wmf、.emf、.jpg和.gif等格式的圖形文件。 Visual Basic 6.0提供了一種叫計(jì)時(shí)器（Timer）的控件。計(jì)時(shí)器每隔一定的時(shí)間間隔就產(chǎn)生一次Timer事件，用戶可以根據(jù)這個(gè)特性設(shè)置時(shí)間間隔控制某些操作或用于計(jì)時(shí)。,5.4.1/2圖片框(PictureBox)和圖像

57、框(Image),圖片框使用比較靈活，一般可用于動(dòng)態(tài)情況，即需要對(duì)其中加載的圖片進(jìn)行修改的情況。而圖像框一般只用于靜態(tài)的情況，即圖片不需要改變，此時(shí)使用圖像框占用的系統(tǒng)資源較少而且重新繪圖的速度比較快。 1. 圖片框、圖像框的常用屬性 （1）Picture屬性 圖片框和圖像框中顯示的圖片由Picture屬性決定。圖形文件既可以在設(shè)計(jì)階段裝入，也可以在運(yùn)行期間裝入。如果在運(yùn)行期間，可以用LoadPicture函數(shù)把圖形文件裝入圖片框或圖像框中。語(yǔ)句格式如下： .Picture=LoadPicture（”文件名”） （2）CurrentX 和 CurrentY 數(shù)值型此屬性適用于圖片框、窗體、打印

58、機(jī)。設(shè)計(jì)時(shí)不可用，在程序代碼中用于設(shè)置或返回下一次打印或繪圖方法的水平或垂直坐標(biāo)。,（3）Stretch 屬性 該屬性用于圖像框，用于調(diào)整圖像框中圖片的大小來(lái)適應(yīng)圖像框，若屬性值設(shè)置為T(mén)rue，則可以調(diào)整圖片大小以適應(yīng)圖像框；否則不能調(diào)整圖片大小。 （4）AutoSize屬性 該屬性用于圖片框，用來(lái)決定圖片框是否能自動(dòng)調(diào)整大小來(lái)容納整個(gè)圖片。若此屬性設(shè)置為T(mén)rue，則自動(dòng)調(diào)整圖片框大?。环駝t不自動(dòng)調(diào)整大小。 2. 圖片框和圖像框的事件 圖片框可以接受的事件有：Click，Dblclick，MouseMove，MouseUp，MouseDown，KeyPress，KeyUp和KeyDown等等 圖像框能夠使用的常用事件與圖片框類似，但是不能使用KeyPress，KeyUp和KeyDown事件。,3. 圖片框的方法 （1） Cls方法 該方法用于清除圖片框內(nèi)的圖片。 格式為：.Cls （2） Circle方法 該方法用于在圖片框內(nèi)的某個(gè)位置上畫(huà)一個(gè)圓。 格式為：.Circle（，）， （3）Line方法 該方法用于在圖片框內(nèi)畫(huà)一條直線。 格式為：.Line (，)-(，)。 （4） Print方法 該方法用于在圖片框中顯示一段文本