第九章VB常用控件單選鈕框架復(fù)選框列表框、組合列表框滾動條圖片框、圖像框定時器9.1單選鈕和框架很多數(shù)據(jù)需要在一組固定的數(shù)據(jù)中選擇一個值，可以使用下面兩個控件：單選鈕控件（OptionButton）提供單項選擇，一組單選鈕只能有一個能被選中?？蚣芸丶‵rame）是窗體上的一個長方形邊框，帶有一個選項標(biāo)題，它可以成為其他控件的容器，通常用于單選鈕的分組，使一個窗體能提供多個單選鈕組。此外使用框架可以讓復(fù)雜的畫面顯得條理分明，整齊易看。單選鈕OptionButton以上是標(biāo)準(zhǔn)外形，包含一個圓形鈕和附在其后的文字。u

Caption屬性：用來指定文字。OptionButton控件的風(fēng)格此外，單選鈕也可以有豐富的圖形外觀。Style屬性：用來指示控件的顯示風(fēng)格和行為。設(shè)計時缺省取值為0-Standard，即標(biāo)準(zhǔn)的，如果設(shè)置為1-Graphical，則支持圖形外觀，以下屬性設(shè)置將生效。Picture屬性：設(shè)置控件中要顯示的圖片，該屬性可以在“屬性窗口”中直接設(shè)置，也可以在程序中用LoadPicture函數(shù)加載。如果Caption屬性有值，則按鈕中同時顯示圖片和文字。DownPicture屬性：設(shè)置控件被單擊并處于壓下狀態(tài)時顯示的圖片。DisabledPicture屬性：設(shè)置控件在無效時顯示的圖片，也就是控件的Enabled屬性取值為False時控件的外觀圖片。OptionButton控件的圖形外觀這種圖形方式的單選鈕比文字更為直觀，適合兒童軟件或游戲軟件中的單選。如何使用OptionButton控件創(chuàng)建單選按鈕組缺省時直接放到窗體上的所有單選鈕自動構(gòu)成一組，僅有一個按鈕能被選中。在窗體中繪制多個框架（Frame或PitureBox）將屬于不同類別的單選鈕分別放置到各自的框架中，可得到多組單選鈕。選定按鈕（引發(fā)一個Click事件）運行時選中或設(shè)置Value屬性為True禁止選項按鈕，Enabled屬性為False在一個值上重復(fù)點擊,Click事件只發(fā)生一次OptionButton控件的值Value屬性單選鈕的Value屬性確定該單選鈕是否被選中。True表示被選中，否則沒有選中?？梢栽诖a中將Value屬性設(shè)為True來選定單選鈕。例如：optBoy.Value=True如果要在單選鈕組中設(shè)置缺省單選鈕，可以在設(shè)計時通過“屬性窗口”將相應(yīng)單選鈕的Value屬性設(shè)為True，或者在窗口加載事件代碼中設(shè)定Value屬性為True。OptionButton控件示例'選中個人PrivateSuboptOne_Click()

serviceFee=500CallDisplayPriceEndSub

'選中飛機PrivateSuboptVehicle1_Click()

travellingFee=2000CallDisplayPriceEndSub

'顯示總的預(yù)算價格PrivateSubDisplayPrice()

lblPrice="初步預(yù)算大約為："&serviceFee+travellingFee+hotelFeeEndSub【例】編寫程序，使用分組單選鈕提供多種旅游選項，響應(yīng)單選鈕的選擇，顯示當(dāng)前各選項的組合報價。'以下三個變量分別代表旅行社服務(wù)費、路費和住宿費DimserviceFeeAsIntegerDimtravellingFeeAsIntegerDimhotelFeeAsInteger‘窗體加載，先根據(jù)缺省設(shè)置，計算費用PrivateSubForm_Load()

serviceFee=300

travellingFee=2000

hotelFee=800calldisplayPriceEndSub'選中團體PrivateSuboptTeam_Click()

serviceFee=300CallDisplayPriceEndSub9.2復(fù)選框復(fù)選框控件（CheckBox）提供多項選擇，一組復(fù)選框中能選中一個或多個值。復(fù)選框的值用法與OptionButton相似，但值不同：Value=False/0

沒有選中Value=True/1

選中Value=2

變灰，不可用復(fù)選框示例【例】編寫程序，使用復(fù)選框來控制文本框中文本的字體效果（粗體、斜體或下劃線）。界面效果如圖所示復(fù)選框示例'點擊粗體復(fù)選框PrivateSubChkBold_Click()IfChkBold.Value=1Then

txtDisplay.FontBold=TrueElse

txtDisplay.FontBold=FalseEndIfEndSub

'點擊斜體復(fù)選框PrivateSubChkItalic_Click()IfChkItalic.Value=1Then

txtDisplay.FontItalic=TrueElse

txtDisplay.FontItalic=FalseEndIfEndSub'點擊下劃線復(fù)選框PrivateSubChkUnderline_Click()IfChkUnderline.Value=1Then

txtDisplay.FontUnderline=TrueElse

txtDisplay.FontUnderline=FalseEndIfEndSub9.3列表框列表框控件（ListBox）是一個顯示多個項目列表的窗口，用戶可以瀏覽并從中選中一個或者多個項目。列表框項目的增減AddItem

向列表框中添加項目lstCity.AddItem“ShangHai”,1參數(shù)1是要添加的字符串，參數(shù)2是添加的位置（索引值），第一個項目索引值為0

Remove從列表中刪除項目lstCity.RemoveItem0項目刪除后，之后項目的索引值會自動修正Clear清除列表中的所有項目lstCity.Clear

***在設(shè)計時添加項目（使用屬性窗口）***List屬性下拉文本框可輸入，Ctrl+Enter換行取列表框項目：List屬性：記錄列表框中的全部項目值。List屬性是一個字符串?dāng)?shù)組，列表框中的每個項目對應(yīng)該數(shù)組的一個元素，通過索引值來訪問列表框的每個項目。第一個項目的索引值為0，以此類推。

Debug.PrintList1.List(0)

strProvince=List2.List(1)

ListCount屬性：該屬性記錄當(dāng)前列表框的項目總數(shù)。比如下列代碼可以輸出列表框的全部內(nèi)容：

Fori=0ToList1.ListCount Debug.PrintList1.List(i) NextListBox控件的值選中的列表項目：MultiSelect屬性：當(dāng)取默認(rèn)值0-None時，永遠(yuǎn)只能選中列表框中的一個項目，當(dāng)前選定項目的索引位置可以通過控件的ListIndex屬性來取得。ListIndex屬性僅在程序運行時可用，用于設(shè)置或返回列表框中當(dāng)前選定項目的索引位置。如果沒有項目被選中，則ListIndex屬性取值為-1。取得當(dāng)前選中的項目內(nèi)容時，可以這樣書寫： List1.List(List1.ListIndex)ListBox控件的選擇【例】編寫一個程序，輸入要采購的書籍名稱，按下添加按鈕后，將輸入的內(nèi)容添加到一個采購列表框中，同時也可以選中列表框某書，按刪除按鈕從列表框中刪除。單選ListBox控件示例1

'按下添加按鈕的代碼PrivateSubcmdAdd_Click()

lstBook.AddItem

txtBook.Text

txtBook.Text=""

txtBook.SetFocusEndSub

'按下刪除按鈕的代碼PrivateSubcmdDelete_Click()IflstBook.ListIndex<>-1Then '有選擇項目

lstBook.RemoveItem

lstBook.ListIndexEndIfEndSub

單選ListBox控件示例1MultiSelect屬性：設(shè)置為1-Simple或者2-Extended時，列表框可以實現(xiàn)多選。前者表示簡單復(fù)選，即利用鼠標(biāo)單擊或按下空格鍵在列表中選中或取消選中項，而箭頭鍵僅移動焦點。后者表示擴展復(fù)選，其用法與Windows的文件列表的選擇方法完全一樣。

Selected屬性：該屬性用來判斷列表框中某一個項目是否被選中，只能在運行時被使用。取值為True代表選中，F(xiàn)alse表示未選中。使用該屬性需要指定項目的索引值，如下：

List1.Selected(0) '返回列表中的第1個項目是否選中

List1.Selected(1) '返回列表中的第2個項目是否選中多選ListBox控件'按下刪除按鈕的代碼PrivateSubcmdDelete_Click()DimiAsIntegerFori=lstBook.ListCount-1To0Step-1IflstBook.Selected(i)=TrueThen

lstBook.RemoveItemiEndIfNextEndSub因為刪除一個項目后，其后的項目索引值和列表項目數(shù)都會發(fā)生變化，難以編程實現(xiàn)。所以列表框從后往前循環(huán)做刪除操作。多選ListBox控件示例1四、Click事件和DblClick事件當(dāng)選擇列表框中的項目時，將觸發(fā)Click事件，雙擊列表框中的項目，將觸發(fā)DblClick事件。如果在Click事件中有代碼，則DlbClick事件將永遠(yuǎn)不會被觸發(fā)，因為Click事件是優(yōu)先被觸發(fā)的事件。通常會響應(yīng)DblClick事件ListBox控件的事件【例】編寫一個程序，顯示學(xué)期所有可選課程列表，學(xué)生選課時在課程列表中選擇一個或多個課程添加到選中課程列表框中，選過的課從可選課程列表中刪除。設(shè)計兩個列表框，分別是lstLeft和lstRightListBox控件示例2首先初始化可選課程列表框，在其中添加所有的選修課程名稱：PrivateSubForm_Load()

lstLeft.AddItem"大學(xué)語文"

lstLeft.AddItem"文化學(xué)"

lstLeft.AddItem"音樂欣賞"

lstLeft.AddItem"日語"

lstLeft.AddItem"數(shù)學(xué)建模"

lstLeft.AddItem"Web程序設(shè)計"

lstLeft.AddItem"信息系統(tǒng)安全"

lstLeft.AddItem"Linux操作系統(tǒng)"

lstLeft.AddItem"VisualC++"EndSubListBox控件示例2【->>】按鈕的事件過程表示所有課程全部選中，即可選課程中的所有課程全部增加到選中課程列表框中，代碼如下：PrivateSubcmdAllToRight_Click()DimiAsIntegerFori=0TolstLeft.ListCount–1

lstRight.AddItem

lstLeft.List(i)Next

lstLeft.Clear

‘清除可選課列表框EndSub【<<-】按鈕的事件過程表示取消所有的選課，將選中課程列表中的全部課程送回課選課程列表框中，代碼如下：PrivateSubcmdAllToRight_Click()DimiAsIntegerFori=0TolstRight.ListCount–1

lstLeft.AddItem

lstRight.List(i)Next

lstRight.Clear

‘清除已選課列表框EndSubListBox控件示例2因為上述兩個過程完成的操作基本相同，可以共用代碼。因此編寫了一個通用子程序moveAllItems，其功能是將第一個參數(shù)指定的列表框中的全部項目轉(zhuǎn)移到第二個參數(shù)指定的列表框中。PrivateSubmoveAllItems(objSourceAsObject,objTargetAsObject)DimiAsIntegerFori=0ToobjSource.ListCount–1

objTarget.AddItem

objSource.List(i)Next

objSource.Clear

EndSubListBox控件示例2【->>】按鈕的事件過程：PrivateSubcmdAllToRight_Click()

moveAllItems

lstLeft,lstRightEndSub【<<-】按鈕的事件過程：PrivateSubcmdAllToLeft_Click()

moveAllItems

lstRight,lstLeftEndSub【->】按鈕實現(xiàn)將lstLeft列表框中所有選中的項目增加到右列表框中，即選課操作；【<-】按鈕將右列表框選中的課程送回到左列表框中，即取消選課。'該過程將第一個列表框的選中項目轉(zhuǎn)移到第二個列表框中PrivateSubmoveItem(objSourceAsObject,objTargetAsObject)DimiAsIntegerFori=objSource.ListCount-1To0Step-1IfobjSource.Selected(i)=TrueThen '選中的項目進行轉(zhuǎn)移

objTarget.AddItem

objSource.List(i)

objSource.RemoveItemiEndIfNextEndSub

ListBox控件示例2'選擇課程到選課列表框中PrivateSubcmdToRight_Click()

moveItem

lstLeft,lstRightEndSub

'取消某些已選選課

PrivateSubcmdToLeft_Click()

moveItem

lstRight,lstLeftEndSub

Style屬性：指定列表框的顯示風(fēng)格。默認(rèn)設(shè)置是0–Standard，當(dāng)設(shè)置為1–Checkbox時，在列表框的每一個項目邊上都有一個復(fù)選框，此時MultiSelect屬性自動被設(shè)置為0–None，并且不允許其它的設(shè)置，多選則。通過復(fù)選框來實現(xiàn)，有標(biāo)記的項目表示被選中，反之則沒有選中。ListBox控件的風(fēng)格Sorted屬性：指定列表框的項目是否自動按字母順序排序，取值為False表示不排序，項目怎樣添加進去的就怎樣顯示；當(dāng)取值為True時，所有項目按照字母順序排列顯示（中文按漢語拼音順序），添加或刪除項目后仍然會遵守順序。SelCount屬性：該屬性返回當(dāng)前被選中的列表項目的數(shù)量，如果沒有項目被選中，那么SelCount屬性將返回值0。該屬性對允許多選的列表框是較為有用的。Text屬性：單選列表框可以用Text屬性來獲取當(dāng)前選擇的項目。ListBox控件的其他屬性9.4組合列表框組合框控件（ComboBox）與列表框控件有些類似，可以看作是TextBox和ListBox的結(jié)合體。組合框不僅允許用戶在列表框中選擇項目，還允許用戶在文本框中輸入文本的方式來選擇項目或指定文本。組合框有三種樣式，可以用Style屬性來設(shè)置樣式：下拉式組合框：Style屬性設(shè)置為0–DropdownCombo），包括一個文本框和一個下拉才出現(xiàn)的列表框，這是缺省的樣式。簡單組合框：Style屬性設(shè)置為1–SimpleCombo，控件包括一個文本框和一個固定顯示的列表框。下拉式列表框：Style屬性設(shè)置為2–DropdownList，此樣式不具備文本框，不允許輸入新的項目，僅能從列表中選擇。組合列表框的樣式Text屬性：獲取組合框當(dāng)前選定項目值，即最后文本框中顯示的文本。該文本既可以是選定的列表項目，也可以是用戶在文本框中輸入的字符串?！纠烤帉懸粋€程序，使用組合框顯示和查詢學(xué)校所有的系以及該系的所有專業(yè)。ComboBox控件的值'初始化系名組合框PrivateSubForm_Load()

cboFac.AddItem"物理系"

cboFac.AddItem"化學(xué)系"

cboFac.AddItem"計算機系"EndSub

ComboBox控件舉例'根據(jù)選擇的系名，填充不同的專業(yè)PrivateSubcboFac_click()

cboSpec.ClearSelectCasecboFac.TextCase"物理系"

cboSpec.AddItem"理論物理"

cboSpec.AddItem"應(yīng)用物理"

cboSpec.AddItem"天文物理"Case"化學(xué)系"

cboSpec.AddItem"生物化學(xué)"

cboSpec.AddItem"精細(xì)化工"Case"計算機系"

cboSpec.AddItem"軟件"

cboSpec.AddItem"通信"

cboSpec.AddItem"信息管理"EndSelectEndSub9.5滾動條滾動條讓用戶控制數(shù)值在某指定范圍內(nèi)的變化，通過用鼠標(biāo)移動滾動條的位置來獲得特定值。對于不能自動支持滾動的控件，滾動條控件能幫助它們提供滾動功能，水平滾動條（HScrollBar）和垂直滾動條（VScrollBar）。滾動條的事件ScrollBar控件如何工作？兩個重要事件：Change

在滾動塊移動后發(fā)生（鼠標(biāo)抬起后）Scroll

在移動滾動塊時發(fā)生，在單擊滾動箭頭或滾動條時不發(fā)生常用屬性：Min

滾動塊在最上或最左時所代表的值Max滾動塊在最下或最右時所代表的值LargeChange

單擊滾動塊左右時增減的值SmallChange

單擊左右箭頭時增減的值Value

滾動條當(dāng)前的值，即滾動塊的位置值示例1：簡單的滾動條數(shù)值顯示（或控制字體變化）示例2：三元色的組合滾動條的屬性【例】編寫一個程序，用滾動條控件改變文本框內(nèi)文本的字體大小。界面效果如圖所示。滾動條示例設(shè)置滾動條vsbSize屬性：Min=8Max=72LargeChange=5SmallChange=1‘窗體加載的事件過程如下：PrivateSubForm_Load()DimiDefaultSizeAsInteger '定義初始的字體大小

iDefaultSize=72

lblSize.Caption=iDefaultSize

‘標(biāo)簽顯示初始字體

txtDisplay.FontSize=iDefaultSize

'初始化文本框字體大小

VsbSize.Value=iDefaultSize

'初始化滾動條的值EndSub‘滾動條滾動的事件過程如下：PrivateSubVsbSize_Change()

txtDisplay.FontSize=VsbSize.Value

lblSize.Caption=VsbSize.ValueEndSub滾動條示例如果在拖動滾動塊不松開時，也要同步設(shè)置字體大小，則需要增加Scroll事件過程，同Change事件過程。9.6圖片框圖片框控件（PictureBox）可以用于顯示圖片和圖像可以作為其它控件的容器，類似于Frame控件如何顯示圖像Picture屬性,指定顯示圖象設(shè)計時在“屬性窗口”中的Picture屬性欄中，選擇圖片文件，就可將圖片加載到PictureBox控件中；從其它應(yīng)用程序中復(fù)制圖形后把它粘貼到PictureBox控件中。在程序中使用LoadPicture函數(shù)對Picture屬性賦值，因為Picture屬性是對象類型，所以需要使用Set關(guān)鍵字，如：SetPicture1.Picture=LoadPicture("d:\map\中國.jpg")SetPicture2.Picture=LoadPicture("d:\map\美國.jpg")SetPicture2.Picture=LoadPicture‘清除圖片AutoSize屬性AutoSize屬性：

使控件自動調(diào)節(jié)以適應(yīng)圖象大小第一個圖片框AutoSize屬性為False第二個圖片框AutoSize屬性為TruePictureBox控件的高和寬圖片框有三組表示高和寬的屬性，分別代表不同的含義：圖片框控件的高和寬：同其它控件一樣，PictureBox控件的Height和Width屬性分別記錄圖片框控件所占空間的高度和寬度。圖片的高和寬：圖片可能小于或超過控件的范圍，要取得圖片的真實大小，可以利用控件的Picture對象來獲取，Picture對象的Height和Width屬性分別記錄圖片的高度和寬度，如Picture1.Picture.Height可取得第一個圖片框內(nèi)圖片的高度，但要注意的是這兩個屬性的度量單位與控件的缺省度量單位不同。圖片框內(nèi)部繪圖區(qū)的高和寬：在VB中，PictureBox控件有兩個特殊的屬性：ScaleWidth和ScaleHeight，它們代表的是圖片框內(nèi)部區(qū)域的水平或垂直度量單位，圖片框內(nèi)部繪圖區(qū)的精確尺寸應(yīng)略小于圖片框的尺寸。在圖片框上繪圖可以利用圖片框的方法在圖片框上繪制文字或圖形常用方法：Print輸出文本Circle,Line,Point,Pset畫圖PaintPicture方法，在控件上繪制圖象文件，可以實現(xiàn)圖像的縮放、平鋪、淡化效果等。9.7圖像框圖像框控件（Image）也可以用于顯示圖片和圖像，Image控件是輕量圖形控件，需要較少的系統(tǒng)資源，顯示速度較快Image控件的屬性只能用于顯示圖象，不能作為容器，加載速度快Picture屬性，顯示的圖象，缺省情況下，Image控件總是根據(jù)圖片大小自動調(diào)整其尺寸，而不管設(shè)計時所定義的控件尺寸，這樣圖片能保持其原始尺寸并得到完整的顯示。

Stretch屬性，設(shè)定圖象是否自動調(diào)整大小適應(yīng)控件一個圖片顯示程序【例】編寫圖片顯示程序，提供圖片按照窗口高度、按照窗口寬度和實際大小三種方式顯示。PictureBox控件Image控件使用PictureBox作為容器，使用Image來顯示圖片，因為Image不僅可以以原始尺寸顯示圖片，圖片還會自動調(diào)節(jié)適應(yīng)Image1控件尺寸一個圖片顯示程序當(dāng)適應(yīng)窗口高度時，將Image1控件的Height屬性設(shè)置為Picture1控件的內(nèi)部區(qū)域的高度，同時按照圖片比例計算Width屬性值，最后設(shè)置Stretch屬性為True，圖片便自動適應(yīng)窗口高度顯示。PrivateSuboptHeight_Click()Image1.Width=Image1.Width*Picture1.ScaleHeight/ Image1.HeightImage1.Height=Picture1.ScaleHeightImage1.Stretch=TrueEndSub一個圖片顯示程序當(dāng)適應(yīng)窗口寬度時，將Image1控件的Width屬性設(shè)置為Picture1控件的內(nèi)部區(qū)域的寬度，同時按照圖片比例計算Height屬性值，同樣設(shè)置Stretch屬性為True，圖片便自動適應(yīng)窗口寬度顯示。PrivateSuboptWidth_Click()Image1.Height=Image1.Height*Picture1.ScaleWidth /Image1.WidthImage1.Width=Picture1.ScaleWidthImage1.Stretch=TrueEndSub一個圖片顯示程序選擇實際大小時，只要將Image1控件的Stretch屬性設(shè)置為False即可，代碼如下：PrivateSuboptActual_Click()Image1.Stretch=FalseEndSub

一個圖片顯示程序太大的圖片需要有滾動條因此設(shè)計一個垂直滾動條和一個水平滾動條，放置在圖片框旁邊滾動條的最大值就是圖片的高寬（Max屬性）如果圖片高寬不超出范圍，則滾動條不可見（Visible屬性）一個圖片顯示程序設(shè)置滾動條的初始值：

‘保證滾動條與圖片窗口對齊

HScroll1.Top=Picture1.Height+Picture1.TopHScroll1.Left=Picture1.LeftHScroll1.Width=Picture1.WidthVScroll1.Top=Picture1.TopVScroll1.Left=Picture1.Width+Picture1.LeftVScroll1.Height=Picture1.Height

‘設(shè)置滾動條的最小值

HScroll1.Min=0VScroll1.Min=0一個圖片顯示程序設(shè)置滾動條是否可見：

'如果圖太小，不超過邊框，則滾動條不可見

IfPicture1.Width<Image1.WidthThenHScroll1.Visible=TrueHScroll1.Max=(Image1.Width-Picture1.Width)HScroll1.LargeChange=HScroll1.Max/10ElseHScroll1.Visible=FalseEndIfIfPicture1.Height<Image1.HeightThenVScroll1.Visible=TrueVScroll1.Max=(Image1.Height-Picture1.Height)VScroll1.LargeChange=VScroll1.Max/10ElseVScroll1.Visible=FalseEndIf一個圖片顯示程序響應(yīng)滾動條變化事件：‘水平滾動條向右滾動后，圖片向左移動，需要設(shè)置image控件的left坐標(biāo)

'水平滾動條移動

PrivateSubHScroll1_Change() Image1.Left=-HScroll1.Value EndSub ‘同理，垂直滾動條移動

PrivateSubVScroll1_Change() Image1.Top=-VScroll1.Value EndSub一個圖片顯示程序響應(yīng)滾動條滾動事件：‘在按下鼠標(biāo)托著滾動塊滾動的時候（鼠標(biāo)不放下，不會產(chǎn)生Change事件），最好圖片也隨之移動，需要響應(yīng)Scroll事件

PrivateSubHScroll1_Scroll() Image1.Left=-HScroll1.Value EndSub PrivateSubVScroll1_Scroll() Image1.Top=-VScroll1.Value EndSub9.8定時器定時器控件（Timer）能夠按照指定時間間隔不停地產(chǎn)生時鐘信號（定時發(fā)生T