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

　　

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