【導(dǎo)讀】架、滾動(dòng)條、時(shí)鐘等基本控件的使用。窗體對象是開發(fā)VB程序的一個(gè)基本平臺(tái)，紹窗體的屬性、方法、事件以及窗體的工作過程?！钤诔绦蛟O(shè)計(jì)時(shí)手工在“屬性”窗口中設(shè)置；☆在程序代碼中設(shè)置，在程序運(yùn)行時(shí)實(shí)現(xiàn)。當(dāng)屬性為True時(shí)，窗。性為True時(shí)，窗體右上角有最小化按鈕。性為True時(shí)，表示窗體可以移動(dòng)。VB中的圖標(biāo)文件存放。在Graphics\Icons下的子目錄中。0—正常窗口狀態(tài)，有窗口邊界。該屬性決定一個(gè)窗體對象是否出現(xiàn)在Windows任務(wù)欄中，該屬性控制窗體圖像的重建。它是一個(gè)邏輯值，當(dāng)屬性。件與控件的相應(yīng)事件相同，后面再作介紹。區(qū)時(shí)觸發(fā)的事件。該事件對結(jié)束窗體行為十分方便，更改保存到文件或數(shù)據(jù)庫中。當(dāng)用戶對窗體操作后，調(diào)用Refresh. 方法，可以刷新窗體，使窗體顯示最新的內(nèi)容。控件名，具有相同的屬性。素賦一個(gè)唯一的索引號(hào)，通過屬性窗口的Index屬性，數(shù)組共享同樣的事件過程。置，這是建立的第一個(gè)元素；選中該控件，進(jìn)行copy和paste操作，系統(tǒng)會(huì)提示：

　　

【正文】 字符串 。 組合框有三種不同的風(fēng)格： 下拉式組合框 、 簡單組合框 和下拉式列表框 ★ 下拉式組合框 :顯示在屏幕上的僅是文本編輯框和一個(gè)下拉箭頭。 ★ 簡單組合框 :將文本編輯框與列表框一起顯示在屏幕上。 ★ 下拉是列表框 :功能與下拉式組合框類似，區(qū)別是不能輸入列表框中沒有的項(xiàng)。 7 組合框 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 組合框是文本框和列表框的組合 ， 擁有列表框和文本框的大部分屬性 。 組合框也有 SelStart、 SelLength和 SelText這三個(gè)文本框特有的屬性 。 組合框的特有屬性是 Style屬性 。 該屬性用于確定組合框的類型和顯示方式 ， 共有三個(gè)值： 0 —下拉式組合框 ， 由一個(gè)文本框和一個(gè)下拉式列表框組成 ，用戶既可以在文本框中輸入文本 ， 也可以從列表框中選擇列表項(xiàng) ，這是系統(tǒng)默認(rèn)值； l — 簡單組合框 ， 也由一個(gè)文本框和一個(gè)標(biāo)準(zhǔn)列表框組成 ， 但列表框不是下拉的 ， 它始終顯示在屏幕上 ， 用戶既可以在文本框中輸人文本 ， 也可以從列表框中選擇列表項(xiàng)； 2 — 下拉式列表框 ， 它不允許用戶輸入文本 ， 只能從下拉列表框中選擇列表項(xiàng) 。 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 在組合框中也可以通過在程序中使用 AddItem方法添加選擇項(xiàng)；用 RemoveItem方法和 Clear方法刪除選擇項(xiàng) 。其操作方法與列表框一樣 。 組合框的事件隨 Style屬性的值不同而有所不同： 當(dāng) Style=0,下拉式列表框有 Click事件和 Change事件； 當(dāng) Style=1, 簡單組合框有 DblClick事件和 Change事件； 當(dāng) Style=2，下拉式列表框有 Click事件。 例 li411點(diǎn)擊此處進(jìn)入 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 滾動(dòng)條 (ScrollBar)分為水平滾動(dòng)條 (HScrollBar)和垂直滾動(dòng)條（ VScrollBar）兩種。 1. 滾動(dòng)條的屬性 ★ Max和 Min屬性 :用于設(shè)定或表示當(dāng)滑塊處于滾動(dòng)條最大和最小位置時(shí)所代表的值。 ★ SmallChange最小變動(dòng)值屬性 :用于設(shè)定當(dāng)用戶用鼠標(biāo)單擊滾動(dòng)條兩端箭頭式，滑塊移動(dòng)的增量值。 ★ LargeChange最大變動(dòng)值屬性 :用于設(shè)定當(dāng)用戶用鼠標(biāo)單擊滾動(dòng)條滾動(dòng)箭頭和滑塊間區(qū)域時(shí)，滑塊移動(dòng)的增量值。 ★ Value值屬性 :表示滾動(dòng)條內(nèi)滑塊當(dāng)前所處位置的值。 8 滾動(dòng)條 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 2. 滾動(dòng)條方法 滾動(dòng)條沒有特有的方法。 3. 滾動(dòng)條事件 ★ Scroll事件 :當(dāng)在滾動(dòng)條內(nèi)拖動(dòng)滑塊時(shí)引發(fā)的事件。 語法 ： Sub HScroll_Scroll( ) Sub VScroll_Scroll( ) ★ Change事件 : 當(dāng)滾動(dòng)條的位置發(fā)生變化時(shí)引發(fā)該事件。 語法： Sub HScroll_Change( ) Sub Scroll_Change( ) 4. 滾動(dòng)條的使用 例 li412點(diǎn)擊此處進(jìn)入 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 9 計(jì)時(shí)器 (Timer) 時(shí)鐘（ Timer）控件是一種定時(shí)觸發(fā)事件的控件，它能有規(guī)律地以一定的時(shí)間間隔激發(fā)時(shí)鐘事件（ Timer）而執(zhí)行相應(yīng)的程序代碼。 1. 計(jì)時(shí)器控件的屬性 ★ Enable屬性 :設(shè)定時(shí)鐘是否有效。它是一個(gè)邏輯值，其中： True： 使時(shí)鐘控件有效，開始有效計(jì)時(shí) False：停止時(shí)鐘控件工作 ★ Interval屬性 :用于設(shè)定時(shí)鐘觸發(fā)事件的間隔，單位為毫秒，取值范圍為 0—65535。 Interval的值為 0，則計(jì)時(shí)器無效 Interval的值受硬件能力限制，最小間隔為 56毫秒 計(jì)時(shí)器只支持 Timer事件。基本語法形式為： 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) Sub Timer_Timer([Index As Integer]) 其中： Index是一個(gè)整數(shù)值 。 如果當(dāng)前時(shí)鐘控件是一個(gè)控件數(shù)組 ， 則 Index表示該時(shí)鐘控件在數(shù)組中的下標(biāo) ， 否則就不需要這一參數(shù) 。 時(shí)鐘控件是一個(gè)非常有用的控件 ， 它的功能就和它的名字一樣 ， 主要用于在程序中監(jiān)視和控制時(shí)間進(jìn)程 。 我們一般都是在設(shè)計(jì)階段設(shè)置它的 Interval屬性 ， 然后當(dāng)某一事件發(fā)生 （ 如一個(gè)按鈕被按下等 ） 時(shí)設(shè)置時(shí)鐘控件的Enabled為 True， 這時(shí) ， 時(shí)鐘控件開始計(jì)時(shí) ， 當(dāng)?shù)竭_(dá)Interval屬性的值時(shí) ， 就會(huì)觸發(fā) Timer事件中編制的處理程序 。 例 li413點(diǎn)擊此處進(jìn)入 例 li414點(diǎn)擊此處進(jìn)入 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 驅(qū)動(dòng)器列表框是一種下拉式列表框 ， 平時(shí)只顯示當(dāng)前驅(qū)動(dòng)器名稱 ， 單擊其右邊的向下箭頭 ， 就會(huì)下拉出該計(jì)算機(jī)所擁有的所有磁盤驅(qū)動(dòng)器 ， 供用戶選擇 。 驅(qū)動(dòng)器列表框有一個(gè) Drive屬性 ， 在運(yùn)行時(shí)返回或設(shè)置所選定的驅(qū)動(dòng)器 。 Drive屬性不能在設(shè)計(jì)狀態(tài)時(shí)設(shè)置 ， 只能在程序中被引用或設(shè)置 。 其形式如下： ［ 對象 ． ］ Drive ［ =drive］ 其中： 對象 — 驅(qū)動(dòng)器列表框名稱 。 drive — 驅(qū)動(dòng)器名稱 。 注意：每次重新設(shè)置 Drive屬性都會(huì)引發(fā) Change事件 。 10 驅(qū)動(dòng)器列表框（ DriveListBox) 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 11 目錄列表框（ DirListBox) 目錄列表框顯示當(dāng)前驅(qū)動(dòng)器的目錄結(jié)構(gòu)及當(dāng)前目錄下的所有子目錄 ， 供用戶選擇其中的某個(gè)目錄作為當(dāng)前目錄 。 在目錄列表框中 ， 如果用鼠標(biāo)雙擊某個(gè)目錄 ， 就會(huì)顯示出該目錄下的所有子目錄 。 目錄列表框只能顯示出當(dāng)前驅(qū)動(dòng)器下的子目錄 。 如果要顯示其他驅(qū)動(dòng)器下的目錄結(jié)構(gòu) ， 則必須重新設(shè)置目錄列表框上的 Path屬性 。 Path屬性用來返回或設(shè)置當(dāng)前路徑 ， 不能在設(shè)計(jì)狀態(tài)時(shí)設(shè)置 。 它適用于目錄列表框和文件列表框 ， 其形式如下：［ 對象 ］ ． Path [=Pathname] 其中：對象 — 指目錄列表框或文件列表框名稱 pathname — 一個(gè)路徑名字符串 。 注意：每次重新設(shè)置 Path屬性都會(huì)引發(fā) Change事件 。 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 12 文件列表框（ FileListBox) 文件列表框顯示當(dāng)前驅(qū)動(dòng)器中當(dāng)前目錄下的文件目錄清單 。文件列表框也有 Path屬性 ， 表示文件列表框中顯示的文件所在的路徑 。 每次重新設(shè)置 Path屬性都會(huì)引發(fā) “ PathChange”事件 。 文件列表框的 Pattern屬性 返回或設(shè)置文件列表框所顯示的文件類型 。 該屬性值為具有通配符的文件名字符串 ， 既可以在設(shè)計(jì)時(shí)設(shè)置 ， 也可以在程序中改變 。 缺省值為 “ *.*”， 顯示所有文件 。 其形式如下： ［ 對象 ． ］ Pattern［ =value］ 其中： 對象 — 指文件列表框名稱 。 value — 一個(gè)文件名字符串 。 注意：每次重新設(shè)置 Pattern屬性都會(huì)引發(fā) “ PatternChange”事件。 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 在窗體中加入驅(qū)動(dòng)器、目錄和文件列表框控件，使三者同步顯示。另外，加入一個(gè)文本框，通過在文本框中輸入文件類型，使文件列表框中顯示指定類型的文件 。 例 li415點(diǎn)擊此處進(jìn)入 驅(qū)動(dòng)器、目錄和文件列表框控件的例子 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 一、 ActiveX控件 所謂 ActiveX控件就是一段可以重復(fù)使用的編程代碼和數(shù)據(jù)，是由 ActiveX技術(shù)創(chuàng)建的一個(gè)或多個(gè)對象所組成的， ActiveX控件文件的擴(kuò)展名為 OCX,通常放在 Windows的System目錄下。 二、 向工具箱中添加 ActiveX控件 方法一： “ 工程 ” 菜單 → “ 部件 ” → “ 控件 ” 方法二：在 “ 工具箱 ” 中擊右鍵，選擇 “ 部件 ” 找到所需的控件或?qū)ο螅?單擊左邊的復(fù)選框選定。 三、舉例 使用 ActiveX控件和可插入對象 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 在窗體上建立進(jìn)度條、標(biāo)簽、命令按鈕和時(shí)鐘控件，單擊 “ 開始 ” 按鈕，進(jìn)度條開始逐步前行，在窗體上顯示 “ 進(jìn)度條開始運(yùn)行，請稍候！ ” 信息；進(jìn)度條填滿后，窗體顯示 “ 進(jìn)度條運(yùn)行完畢 ”信息。 添加進(jìn)度條： “ 工程 ” 菜單 → “ 部件 ” → “ 控件 ” → “ Microsoft Windows Common Controls ” 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 對象 屬性名 屬性值 窗體 名稱 FrmExp Caption ActiveX舉例 進(jìn)度條 名稱 PrgBar 標(biāo)簽 名稱 LblDisp Caption （空） 命令按鈕 名稱 CmdStart Caption 開始 計(jì)時(shí)器 名稱 TmrClock Interval 100 事件過程代碼： Dim i As Integer Private Sub Form_load( ) = False =False = 0 End Sub 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) Private Sub CmdStart_Click() = True = 進(jìn)度條開始運(yùn)行，請稍候！ = True End Sub Private Sub TmrClock_Timer() If i 100 Then i = i + 1 = I 例 li419單擊此處進(jìn)入 Else i = 0 = False = 進(jìn)度條運(yùn)行完畢 End If End Sub 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 例：在窗體中分別加入組合框 、 水平滾動(dòng)條和文本框 ， 利用組合框設(shè)置文本框中的字體；利用水平滾動(dòng)條設(shè)置文本框中的字號(hào) 。 其中設(shè)置字體的組合框?yàn)橄吕搅斜砜?（ Style屬性為 2， 不能輸入 ） ；當(dāng)用鼠標(biāo)單擊水平滾動(dòng)條時(shí) ， 在當(dāng)前字號(hào)值文本框中顯示滾動(dòng)條滑塊當(dāng)前的值并由該值設(shè)置文本框中的字號(hào) 。 例 li417單擊此處進(jìn)入 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) (不講） 例 1：此例將介紹列表框和組合框添加、刪除控件等事件，以及標(biāo)簽和命令按鈕的使用。 創(chuàng)建窗體及控件 窗體及控件界面如圖所示：