第九章VB常用控件

1、nPictureBox控件 1、 顯示圖形的方法： Picture 屬性和LoadPicture方法 2、方法格式： 圖形框?qū)ο竺Q.Picture=LoadPicture(“圖形文件名”) 3、清除圖形 LoadPicture(“”) 4、可顯示圖形，可作為輸出的”畫布”，可作為控件的容器 5、AutoSize：用于確定圖片框如何與圖形相適應(yīng)。False為保持原始尺寸，當(dāng)圖形比圖片框大時(shí)，超出的部分被截去；True為圖片框根據(jù)圖形大小自動(dòng)調(diào)整。 框架設(shè)Caption為 字體單選按鈕檢查框被選中 檢查框0-Unchecked：未被選定1-Checked：選定2-Grayed：灰色，禁止選擇 單

2、選鈕True: 單選鈕被選定False: 單選鈕未被選定， 缺省設(shè)置單選按鈕單選按鈕,復(fù)選框和框架控件綜合舉例復(fù)選框和框架控件綜合舉例例：設(shè)計(jì)個(gè)人資料輸入窗口，使用選項(xiàng)按鈕組輸入性別與例：設(shè)計(jì)個(gè)人資料輸入窗口，使用選項(xiàng)按鈕組輸入性別與 民族民族, 使用復(fù)選框輸入個(gè)人愛好。使用復(fù)選框輸入個(gè)人愛好。Private Sub Command1_Click()If Text1.Text = Then a = InputBox(您忘了輸入姓名！您忘了輸入姓名！, 注意注意, 請(qǐng)?jiān)诖溯斎胄彰?qǐng)?jiān)诖溯斎胄彰? If a = “” Or a = “請(qǐng)?jiān)诖溯斎胄彰?qǐng)?jiān)诖溯斎胄彰?Then Exit Sub Te

3、xt1.Text = aEnd Ifp1 = Text1.Text + ，“p2 = IIf(Option1, 男男, 女女) + ，p3 = IIf(Option3, 漢族漢族, 少數(shù)民族少數(shù)民族)p4 = ，喜歡：，喜歡：If Check1.Value = 1 Then p4 = p4 + Check1.Caption + ，If Check2.Value = 1 Then p4 = p4 + Check2.Caption + ，If Check3.Value = 1 Then p4 = p4 + Check3.Caption + ，If Check4.Value = 1 Then p4

4、= p4 + Check4.Caption + ，aa = p1 + p2 + p3 + IIf(p4 = ，喜歡，喜歡, ，無(wú)愛好，無(wú)愛好, p4)Label4.Caption = Left(aa, Len(aa) - 1) + 。Text1.SetFocusEnd Sub 例設(shè)計(jì)一個(gè)簡(jiǎn)單小型的編輯器，用戶可以在文本框中輸入一段文字，單擊復(fù)選框和單選框，可以改變文本的字體，字型和顏色 復(fù)選框單擊事件過(guò)程如下：Private Sub Check1_Click()Text1.FontItalic = TrueEnd SubPrivate Sub Check2_Click()Text1.ForeC

5、olor = vbRedEnd Sub單選按鈕單擊事件過(guò)程如下：Private Sub Option1_Click()Text1.FontName = 宋體End SubPrivate Sub Option2_Click()Text1.FontName = 隸體End Sub3MultiSelect屬性屬性 用于指示是否能夠在列表框控件中進(jìn)行復(fù)選以及如何進(jìn)行復(fù)用于指示是否能夠在列表框控件中進(jìn)行復(fù)選以及如何進(jìn)行復(fù)選，在運(yùn)行時(shí)是只讀的。注意，組合框控件無(wú)此屬性。選，在運(yùn)行時(shí)是只讀的。注意，組合框控件無(wú)此屬性。 設(shè)置值含 義0（缺省值）不允許復(fù)選1簡(jiǎn)單復(fù)選。鼠標(biāo)單擊或按下空格鍵在列表中選中或取消選中

6、項(xiàng)。箭頭鍵移動(dòng)焦點(diǎn)2擴(kuò)展復(fù)選。按下 SHIFT 并單擊鼠標(biāo)將在以前選中項(xiàng)的基礎(chǔ)上擴(kuò)展選擇到當(dāng)前選中項(xiàng)。按下 CTRL 并單擊鼠標(biāo)來(lái)在列表中選中或取消選中項(xiàng)MultiSelect 屬性設(shè)置值及含義屬性設(shè)置值及含義 6）Text屬性 對(duì)于組合框：（Combo1） 下拉式組合框與簡(jiǎn)單組合框（Style=0和1）： Text屬性返回編輯區(qū)域中的文本。 下拉列表框，Text屬性的返回當(dāng)前被選中的項(xiàng)，值總與combo1.List（combo1.ListIndex）的值相同。 對(duì)于列表框：（List1） Text屬性選中的文本，如果列表框可多選，則為最后一 次 選 中 項(xiàng) 目 。 Te x t 屬 性 值

7、總 與 L i s t 1 . L i s t（List1.ListIndex）的值相同。List1.List(List1.ListIndex)=“abc”Combo1.List(Combo1.ListIndex)=“abc”列表框、組合框各主要屬性的值：列表框、組合框各主要屬性的值：7）columns屬性 用于設(shè)定列表項(xiàng)排列的列數(shù)。默認(rèn)為0，單列顯示。0，表示列數(shù)，出現(xiàn)水平滾動(dòng)條。4、方法1）AddItem方法 用于將項(xiàng)目添加到列表框控件或組合框控件。 語(yǔ)法格式：對(duì)象名.AddItem item , index 其中： item: 為字符串表達(dá)式，表示要加入的項(xiàng)目。 Index:決定新增項(xiàng)目

8、的位置，缺省，則添加在最后。 2）RemoveItem方法用于從列表框控件或組合框控件中刪除一項(xiàng)。語(yǔ)法格式：對(duì)象名. RemoveItem index 對(duì)index參數(shù)的規(guī)定同AddItem方法。 例如，要?jiǎng)h除列表框（例如，要?jiǎng)h除列表框（List1）中所有選中的項(xiàng)目，可使用）中所有選中的項(xiàng)目，可使用下面的程序段：下面的程序段： i = 0Do While i =0 If List1.Selected(i) Then List1.RemoveItem i End If i = i - 1loop也可這樣寫也可這樣寫事件事件（1）Click事件 當(dāng)單擊某一列表項(xiàng)目時(shí)，將觸發(fā)列表框與組合框控件的Cl

9、ick事件。該事件發(fā)生時(shí)系統(tǒng)會(huì)自動(dòng)改變列表框與組合框控件的ListIndex、Selected、Text等屬性，無(wú)需另行編寫代碼。（2）DblClick事件 當(dāng)雙擊某一列表項(xiàng)目時(shí)，將觸發(fā)列表框與簡(jiǎn)單組合框控件的DblClick事件。（3）Change事件（列表框沒(méi)有此事件） 當(dāng)用戶通過(guò)鍵盤輸入改變下拉式組合框或簡(jiǎn)單組合框控件的文本框部分的正文，或者通過(guò)代碼改變了Text屬性的設(shè)置時(shí)，將觸發(fā)其Change事件。例例 列表框示例。列表框示例。 設(shè)計(jì)一個(gè)暢銷書設(shè)計(jì)一個(gè)暢銷書排行榜程序。排行榜程序。 用戶界用戶界面如右圖。面如右圖。例例 組合框示例。組合框示例。 設(shè)計(jì)一個(gè)用于設(shè)設(shè)計(jì)一個(gè)用于設(shè)置字體屬性

10、的程序，置字體屬性的程序，界面如右圖所示。界面如右圖所示。3、事件1）Change事件 滾動(dòng)條的Change事件在移動(dòng)滾動(dòng)框或通過(guò)代碼改變其Value屬性值時(shí)發(fā)生。單擊滾動(dòng)條兩端的箭頭或空白處將引發(fā)Change事件。（2）Scroll事件 當(dāng)滾動(dòng)框被重新定位，或按水平方向或垂直方向滾動(dòng)時(shí)，Scroll事件發(fā)生。拖動(dòng)滑塊時(shí)會(huì)觸發(fā)Scroll事件。 Scroll事件與Change事件的區(qū)別在于：當(dāng)滾動(dòng)條控件滾動(dòng)時(shí)Scroll事件一直發(fā)生，而Change事件只是在滾動(dòng)結(jié)束之后才發(fā)生一次。例：建立一個(gè)水平滾動(dòng)條和一個(gè)垂直滾動(dòng)條，當(dāng)單擊滾動(dòng)條的箭頭和滾動(dòng)窗時(shí)，文本框中顯示相應(yīng)的數(shù)字，表示滑塊到達(dá)的位置。如圖所示：9.5 9.5 計(jì)時(shí)器控件計(jì)時(shí)器控件 例：編寫一個(gè)計(jì)時(shí)秒表器。計(jì)時(shí)秒表由兩個(gè)按鈕控制，一個(gè)按鈕表示開始，另一個(gè)按鈕表示停止。設(shè)計(jì)窗體如圖所示：主要介紹了標(biāo)準(zhǔn)控件的屬性、方法、事件，要求靈活運(yùn)用各個(gè)控件。人有了