第九章VB常用控件

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

2、選鈕True: 單選鈕被選定False: 單選鈕未被選定， 缺省設置單選按鈕單選按鈕,復選框和框架控件綜合舉例復選框和框架控件綜合舉例例：設計個人資料輸入窗口，使用選項按鈕組輸入性別與例：設計個人資料輸入窗口，使用選項按鈕組輸入性別與 民族民族, 使用復選框輸入個人愛好。使用復選框輸入個人愛好。Private Sub Command1_Click()If Text1.Text = Then a = InputBox(您忘了輸入姓名！您忘了輸入姓名！, 注意注意, 請在此輸入姓名請在此輸入姓名) If a = “” Or a = “請在此輸入姓名請在此輸入姓名” 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 = ，喜歡，喜歡, ，無愛好，無愛好, p4)Label4.Caption = Left(aa, Len(aa) - 1) + 。Text1.SetFocusEnd Sub 例設計一個簡單小型的編輯器，用戶可以在文本框中輸入一段文字，單擊復選框和單選框，可以改變文本的字體，字型和顏色 復選框單擊事件過程如下：Private Sub Check1_Click()Text1.FontItalic = TrueEnd SubPrivate Sub Check2_Click()Text1.ForeC

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

6、項。箭頭鍵移動焦點2擴展復選。按下 SHIFT 并單擊鼠標將在以前選中項的基礎上擴展選擇到當前選中項。按下 CTRL 并單擊鼠標來在列表中選中或取消選中項MultiSelect 屬性設置值及含義屬性設置值及含義 6）Text屬性 對于組合框：（Combo1） 下拉式組合框與簡單組合框（Style=0和1）： Text屬性返回編輯區(qū)域中的文本。 下拉列表框，Text屬性的返回當前被選中的項，值總與combo1.List（combo1.ListIndex）的值相同。 對于列表框：（List1） Text屬性選中的文本，如果列表框可多選，則為最后一 次 選 中 項 目 。 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ù)。默認為0，單列顯示。0，表示列數(shù)，出現(xiàn)水平滾動條。4、方法1）AddItem方法 用于將項目添加到列表框控件或組合框控件。 語法格式：對象名.AddItem item , index 其中： item: 為字符串表達式，表示要加入的項目。 Index:決定新增項目

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

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

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