工具欄和狀態(tài)欄設(shè)計

1、1學習目標：學習目標：u 了解工具欄和狀態(tài)欄的設(shè)計了解工具欄和狀態(tài)欄的設(shè)計 u 了解多文檔界面的創(chuàng)建和設(shè)計了解多文檔界面的創(chuàng)建和設(shè)計u 掌握通用對話框的創(chuàng)建和使用掌握通用對話框的創(chuàng)建和使用 u 了解多媒體控件的應用技術(shù)了解多媒體控件的應用技術(shù)u了解了解VB應用程序向?qū)У氖褂脩贸绦蛳驅(qū)У氖褂?2 教學內(nèi)容：教學內(nèi)容： 10.1 菜單設(shè)計菜單設(shè)計 10.2 工具欄和狀態(tài)欄工具欄和狀態(tài)欄 10.3 多文檔界面多文檔界面 10.4 通用對話框通用對話框 10.5 多媒體控件應用多媒體控件應用 10.6 應用程序向?qū)贸绦蛳驅(qū)?31. 菜單的類型菜單的類型 下拉菜單：常以菜單欄的形式出現(xiàn)在標題欄下面

2、下拉菜單：常以菜單欄的形式出現(xiàn)在標題欄下面 彈出菜單彈出菜單( (快捷菜單快捷菜單) )：獨立于菜單欄而顯示在窗體上的：獨立于菜單欄而顯示在窗體上的浮動菜單，其菜單項取決于按下鼠標右鍵時指針所處的位浮動菜單，其菜單項取決于按下鼠標右鍵時指針所處的位置。置。2. VB中的菜單控件中的菜單控件 菜單和菜單項均看作是菜單控件菜單和菜單項均看作是菜單控件 菜單控件兩個最重要的屬性菜單控件兩個最重要的屬性名稱名稱(Name)：程序：程序代碼中用來引用菜單控件代碼中用來引用菜單控件標題標題(Caption)：出現(xiàn)在控件上的文本：出現(xiàn)在控件上的文本 菜單控件只響應菜單控件只響應Click事件事件 4打開菜單

3、編輯器：打開菜單編輯器： “工具工具菜單編輯器菜單編輯器” ” 工具欄工具欄“菜單編輯器菜單編輯器”按鈕按鈕 1. 常用屬性常用屬性 標題：設(shè)置標題：設(shè)置Caption屬性屬性 字符前加字符前加&，該，該字符成為訪問鍵字符成為訪問鍵 只輸入一個減號只輸入一個減號- ，創(chuàng)建分隔條創(chuàng)建分隔條 名稱：設(shè)置名稱：設(shè)置Name屬性屬性 注：對分隔條，也需定義名稱注：對分隔條，也需定義名稱 索引索引(Index)：用于：用于菜單控件數(shù)組菜單控件數(shù)組 快捷鍵快捷鍵 、 復選復選(Checked) 有效有效(Enabled)、 可見可見(Visible)52. 編輯菜單控件編輯菜單控件 如 果 菜 單如 果

4、菜 單控件的前面控件的前面沒有內(nèi)縮符沒有內(nèi)縮符號號“”，表明該控，表明該控件建立的是件建立的是主菜單，否主菜單，否則為菜單命則為菜單命令或子菜單。令或子菜單。 6 方法：方法：先通過菜單編輯器設(shè)計菜單，然后編寫各菜單控先通過菜單編輯器設(shè)計菜單，然后編寫各菜單控件的件的Click事件過程。事件過程。 例例10.15 創(chuàng)建簡易編輯器創(chuàng)建簡易編輯器 (1) 設(shè)計菜單設(shè)計菜單7 例例10.15 創(chuàng)建簡易編輯器創(chuàng)建簡易編輯器 (2) 設(shè)計界面設(shè)計界面菜單下面繪制兩條直線菜單下面繪制兩條直線(兩個兩個Line控件控件)，一條為黑色，一，一條為黑色，一條為白色。條為白色。黑線的黑線的Y1和和Y2屬性設(shè)為屬性

5、設(shè)為0白線的白線的Y1和和Y2屬性設(shè)為屬性設(shè)為10文本框文本框Text1：MultiLine設(shè)為設(shè)為TrueScrollBars設(shè)為設(shè)為3 (3) 編寫菜單控件的編寫菜單控件的Click事件過程事件過程8 用用PopupMenu方法可顯示彈出式菜單方法可顯示彈出式菜單 對象對象.PopupMenu 菜單控件名稱菜單控件名稱 若若“對象對象”缺省，則在當前窗體中顯示彈出菜單缺省，則在當前窗體中顯示彈出菜單 通常，按下鼠標右鍵時顯示彈出菜單，例如：通常，按下鼠標右鍵時顯示彈出菜單，例如： Private Sub Form或控件名稱或控件名稱_MouseUp (Button As Integer,

6、Shift As Integer, X As Single, Y As Single) If Button = 2 Then 如果按的是鼠標右鍵如果按的是鼠標右鍵 PopupMenu 菜單名菜單名 顯示彈出菜單顯示彈出菜單 End IfEnd Sub 9例例10.16 彈出菜單設(shè)計彈出菜單設(shè)計(1) 打開例打開例5.15所建立的工程所建立的工程(2) 添加如下的事件過程：添加如下的事件過程：Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button =

7、2 Then PopupMenu mnuEdit 彈出名稱為彈出名稱為mnuEdit的菜單的菜單 End IfEnd Sub 注：若要創(chuàng)建一個不顯示在菜單欄中的彈出菜單，設(shè)計菜單時，注：若要創(chuàng)建一個不顯示在菜單欄中的彈出菜單，設(shè)計菜單時，需取消主菜單的需取消主菜單的“可見可見”復選框。復選框。 10創(chuàng)建工具欄一般須遵循以下四個步驟：創(chuàng)建工具欄一般須遵循以下四個步驟：(1) 將將ImageList控件和控件和Toolbar控件添加到工具箱中，然控件添加到工具箱中，然后添加到窗體上。后添加到窗體上。(2) 為窗體上的為窗體上的ImageList控件添加所需的圖像?？丶砑铀璧膱D像。(3) 建立建

8、立ToolBar控件與控件與ImageList控件之間的關(guān)聯(lián)?？丶g的關(guān)聯(lián)。(4) 對對ToolBar上的按鈕編寫上的按鈕編寫Click事件響應代碼。事件響應代碼。 111. 添加工具欄控件添加工具欄控件 (1) “工程工程部件部件”，選選Microsoft Windows Common Controls 6.012(2) 用用 在窗體任意位置添加一個在窗體任意位置添加一個ImageList控件，名稱默認控件，名稱默認 為為ImageList1(3) 用用 在窗體上添加一個在窗體上添加一個Toolbar控件控件(該控件自動位于菜該控件自動位于菜 單欄的下面單欄的下面) ，其名稱默認為，其名稱

9、默認為Toolbar1。132. 為窗體上的為窗體上的ImageList控件添加所需的圖像控件添加所需的圖像右擊窗體上的右擊窗體上的ImageList控件，選擇控件，選擇“屬性屬性”命令命令“通用通用”選項卡：設(shè)置按鈕大小選項卡：設(shè)置按鈕大小“顏色顏色”選項卡：設(shè)定按鈕的顏色選項卡：設(shè)定按鈕的顏色“圖像圖像”選項卡：選擇要加入的圖像選項卡：選擇要加入的圖像 14“圖像圖像”選項卡：選擇要加入的圖像選項卡：選擇要加入的圖像 15“圖像圖像”選項卡：定義選項卡：定義“關(guān)鍵字關(guān)鍵字”(在在ToolBar控件中引用的圖控件中引用的圖像標識名像標識名) 163. 建立建立ToolBar控件與控件與Ima

10、geList控件之間的關(guān)聯(lián)控件之間的關(guān)聯(lián)右擊窗體上的右擊窗體上的Toolbar控件，選擇控件，選擇“屬性屬性”命令命令“通用通用”選項卡：選項卡：“圖像列表圖像列表”選擇選擇ImageList1 17“按鈕按鈕”選項卡：單擊選項卡：單擊“插入按鈕插入按鈕” 工具欄第一個按鈕：工具欄第一個按鈕：u“索引索引”：自動變?yōu)椋鹤詣幼優(yōu)?u“ 關(guān) 鍵 字關(guān) 鍵 字 ” ： 輸 入： 輸 入ImageList1控件中定義控件中定義的相應關(guān)鍵字的相應關(guān)鍵字u“圖像圖像”：輸入：輸入“1”以此類推插入其他按鈕以此類推插入其他按鈕184. 響應響應ToolBar控件事件控件事件單擊工具欄上的某個按鈕，將引發(fā)單擊

11、工具欄上的某個按鈕，將引發(fā)ButtonClick事件事件 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) End Sub根據(jù)按鈕的關(guān)鍵字根據(jù)按鈕的關(guān)鍵字(Button.Key)或者圖像值或者圖像值(Button.Image)可判斷單擊的是哪個按鈕，然后通過可判斷單擊的是哪個按鈕，然后通過Select Case語句進行語句進行相應的處理相應的處理 例，菜單中有一個例，菜單中有一個“打開打開”菜單命令菜單命令(名稱為名稱為mOpen)，工具欄上有一個工具欄上有一個“打開打開”按鈕按鈕(關(guān)鍵字為關(guān)鍵字為open

12、，圖像值為，圖像值為1)，單擊它們都執(zhí)行同樣的操作，單擊它們都執(zhí)行同樣的操作(執(zhí)行執(zhí)行OpenDoc過程過程)，相應的代碼如下：相應的代碼如下：19 Private Sub mOpen_Click() 單擊單擊“打開打開”菜單命令菜單命令 OpenDoc End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case “open” 或或Case 1，表示單擊，表示單擊“打開打開”按鈕按鈕 OpenDoc End Select End Sub “打開打

13、開”按鈕的關(guān)鍵字為按鈕的關(guān)鍵字為open，圖像值為圖像值為1201. 添加狀態(tài)欄控件添加狀態(tài)欄控件 (1) “工程工程部件部件”，選選Microsoft Windows Common Controls 6.0(2) 用用 在窗體上添加在窗體上添加Statusbar控件控件(通常位于窗體的底部通常位于窗體的底部)(3) 設(shè)置窗格屬性設(shè)置窗格屬性u“插入窗格插入窗格”按鈕：用于在狀態(tài)按鈕：用于在狀態(tài)欄上插入窗格，最多欄上插入窗格，最多16個個u“索引索引”：每個窗格的編號。：每個窗格的編號。u“文本文本”：樣式為：樣式為sbrText時，時，窗格中顯示的文本窗格中顯示的文本u“關(guān)鍵字關(guān)鍵字”：用于

14、標識窗格的：用于標識窗格的字符串字符串u“樣式樣式”：設(shè)置窗格的顯示狀：設(shè)置窗格的顯示狀態(tài)態(tài) 21例如，例如， 222. 程序運行時在狀態(tài)欄上顯示信息程序運行時在狀態(tài)欄上顯示信息 設(shè)置狀態(tài)欄窗格屬性設(shè)置狀態(tài)欄窗格屬性 狀態(tài)欄控件名稱狀態(tài)欄控件名稱.Panels(索引值索引值) 例例： Private Sub Text1_Change() StatusBar1.Panels(2).Text = Str(Len(Text1.Text)End Sub231. Windows應用程序的界面樣式應用程序的界面樣式 單文檔界面樣式單文檔界面樣式(SDI - Single Document Interfac

15、e) 應用程序的主窗口內(nèi)每次最多只能打開一個文檔應用程序的主窗口內(nèi)每次最多只能打開一個文檔 多文檔界面樣式多文檔界面樣式(MDI - Multiple Document Interface) 應用程序的主窗口內(nèi)可打開多個文檔子窗口應用程序的主窗口內(nèi)可打開多個文檔子窗口 子窗口只能在父窗口內(nèi)活動子窗口只能在父窗口內(nèi)活動類似于資源管理器的界面類似于資源管理器的界面 窗口通常包括兩部分：左邊為一個樹型的或者層次型的窗口通常包括兩部分：左邊為一個樹型的或者層次型的視圖，右邊為內(nèi)容顯示區(qū)視圖，右邊為內(nèi)容顯示區(qū) 242. 多文檔界面的特性多文檔界面的特性 設(shè)計階段特性設(shè)計階段特性v子窗體是獨立的，它不被限

16、制在父窗體的區(qū)域內(nèi)。即，設(shè)子窗體是獨立的，它不被限制在父窗體的區(qū)域內(nèi)。即，設(shè)計階段，子窗體、父窗體計階段，子窗體、父窗體 (MDI窗體窗體)和普通窗體沒區(qū)別和普通窗體沒區(qū)別 運行期間特性運行期間特性 v子窗體的移動、改變大小等都被限制在其父窗體中子窗體的移動、改變大小等都被限制在其父窗體中v子窗體最小化時，圖標在其父窗體中顯示；父窗體最小化子窗體最小化時，圖標在其父窗體中顯示；父窗體最小化時，其所有子窗體也被最小化。時，其所有子窗體也被最小化。v子窗體最大化時，其標題與父窗體的標題合并，顯示在父子窗體最大化時，其標題與父窗體的標題合并，顯示在父窗體的標題條中。窗體的標題條中。v父窗體及其子窗體

17、都可以有各自的菜單，子窗體加載時覆父窗體及其子窗體都可以有各自的菜單，子窗體加載時覆蓋其父窗體的菜單。蓋其父窗體的菜單。 25 多文檔界面的應用程序至少需要兩個窗體：一個多文檔界面的應用程序至少需要兩個窗體：一個MDI窗窗體體(父窗體父窗體)和一個或若干個子窗體。在不同窗體中共用的過和一個或若干個子窗體。在不同窗體中共用的過程和變量一般應存放在標準模塊中程和變量一般應存放在標準模塊中 1. 創(chuàng)建創(chuàng)建MDI窗體窗體 添加添加MDI窗體：窗體：“工程工程添加添加MDI窗體窗體”，名稱默認為，名稱默認為MDIForm1設(shè)計設(shè)計MDI窗體：同普通窗體，如創(chuàng)建菜單欄、工具欄等。窗體：同普通窗體，如創(chuàng)建菜

18、單欄、工具欄等。2. 創(chuàng)建和設(shè)計創(chuàng)建和設(shè)計MDI子窗體子窗體打開一個現(xiàn)存的或添加一個普通窗體打開一個現(xiàn)存的或添加一個普通窗體將窗體的將窗體的MDIChild屬性設(shè)置為屬性設(shè)置為True設(shè)計子窗體：同普通窗體設(shè)計子窗體：同普通窗體263. 通過創(chuàng)建類的方法實現(xiàn)多個子窗體的創(chuàng)建通過創(chuàng)建類的方法實現(xiàn)多個子窗體的創(chuàng)建 例如，已創(chuàng)建了一個名為例如，已創(chuàng)建了一個名為Formchild的子窗體，通過的子窗體，通過 Dim NewDoc As New Formchild可創(chuàng)建可創(chuàng)建Formchild的一個對象的一個對象 多次調(diào)用以下過程，則產(chǎn)生多個子窗體多次調(diào)用以下過程，則產(chǎn)生多個子窗體(Formchild實

19、例實例) Dim N As Integer Public Sub FileNewProc() Dim NewDoc As New Formchild N = N + 1 NewDoc.Caption = DOC & N NewDoc.Show 顯示子窗體顯示子窗體 End Sub 27例：例：28(1) 添加添加MDI窗體窗體“工程工程添加添加MDI窗體窗體”，名稱默認為，名稱默認為MDIForm1“工程工程工程工程1 屬性屬性”，“啟動對象啟動對象”設(shè)為設(shè)為MDIForm1創(chuàng)建菜單欄創(chuàng)建菜單欄29(2) 創(chuàng)建創(chuàng)建MDI子窗體子窗體將原將原Form1窗體名稱改為窗體名稱改為Formchild將

20、窗體的將窗體的MDIChild屬性設(shè)置為屬性設(shè)置為True(3) 編寫編寫MDI窗體的程序代碼窗體的程序代碼301. 添加通用對話框控件添加通用對話框控件 (1) 添加到工具箱：添加到工具箱： “工程工程部件部件” (2) 添加到窗體添加到窗體 用用 在窗體任意位置在窗體任意位置 添加添加(無需調(diào)整大小無需調(diào)整大小)，名，名 稱默認為稱默認為CommonDialog1 利用通用對話框控件可創(chuàng)建六種標準對話框：打開、另利用通用對話框控件可創(chuàng)建六種標準對話框：打開、另存為、顏色、字體、打印、幫助存為、顏色、字體、打印、幫助 312. 通用對話框的基本屬性和方法通用對話框的基本屬性和方法 (1) A

21、ction功能屬性功能屬性(只能在程序中賦值只能在程序中賦值)：決定打開何種類型：決定打開何種類型 的對話框的對話框 0None無對話框顯示無對話框顯示 1Open 顯示顯示“打開打開”對話框?qū)υ捒?Save As顯示顯示“另存為另存為”對話框?qū)υ捒?3Color顯示顯示“顏色顏色”4Font顯示顯示“字體字體”對話框?qū)υ捒?5Print顯示顯示“打印打印”對話框?qū)υ捒?Help顯示顯示“幫助幫助”對話框?qū)υ捒?例如，例如，CommonDialog1.Action=3 表示打開表示打開“顏色顏色”對話對話框框 (2) DialogTiltle屬性：用于設(shè)置對話框的標題屬性：用于設(shè)置對話框的標題

22、 32 (3) CancelError屬性：確定在用戶按下屬性：確定在用戶按下“取消取消”按鈕時是否按鈕時是否產(chǎn)產(chǎn) 生錯誤信息生錯誤信息(默認為默認為False) (4) 通用對話框的常用方法通用對話框的常用方法 ShowOpen顯示顯示“打開打開”對話框?qū)υ捒騍howSave顯示顯示“另存為另存為”對話框?qū)υ捒?ShowColor顯示顯示“顏色顏色”對話框?qū)υ捒?ShowFont顯示顯示“字體字體”對話框?qū)υ捒騍howPrint顯示顯示“打印打印”對話框?qū)υ捒?ShowHelp顯示顯示“幫助幫助”對話框?qū)υ捒?例如，例如，CommonDialog1. ShowColor 也表示打開也表示打開

23、“顏色顏色”對話對話框框331“打開打開”對話框（該對話框僅供一個選取文件的用戶界面，對話框（該對話框僅供一個選取文件的用戶界面， 而打開文件的具體操作還需編寫代碼）而打開文件的具體操作還需編寫代碼） 常用屬性：常用屬性：FileName：設(shè)置在：設(shè)置在“文件名稱文件名稱”文本框中所顯示的文件名，文本框中所顯示的文件名，或或 返回所選取的文件名返回所選取的文件名 FileTitle：返回或設(shè)置所要打開文件的文件名：返回或設(shè)置所要打開文件的文件名(不包含路徑不包含路徑) Filter：確定文件列表框中所顯示的文件類型，例如：確定文件列表框中所顯示的文件類型，例如 CommonDialog1.Fi

24、lter =Documents(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|*.* FilterIndex：表示用戶在文件類型列表框中選取的文件類型：表示用戶在文件類型列表框中選取的文件類型 對上例設(shè)定的對上例設(shè)定的Filter，若選定文本文件，則，若選定文本文件，則FilterIndex值為值為2 InitDir：指定在：指定在“打開打開”對話框中顯示的默認目錄對話框中顯示的默認目錄 34例例10.1 程序要求：程序要求： 單擊單擊“編輯圖片編輯圖片”按鈕，出現(xiàn)按鈕，出現(xiàn)“打開打開”對話框；可調(diào)用對話框；可調(diào)用Windows的畫圖程序編輯選定

25、的的畫圖程序編輯選定的BMP位圖文件。位圖文件。單擊單擊“瀏覽圖片瀏覽圖片”按鈕，可將選定圖片顯示在圖像框中。按鈕，可將選定圖片顯示在圖像框中。 設(shè)計窗體設(shè)計窗體運行窗體運行窗體35程序代碼：程序代碼： 窗體窗體Load事件響應代碼：事件響應代碼：設(shè)置設(shè)置CommonDialog1的相關(guān)屬性的相關(guān)屬性 “編輯圖片編輯圖片”按鈕的按鈕的Click事件響應代碼：事件響應代碼：用用Shell函數(shù)調(diào)用函數(shù)調(diào)用Windows的畫圖程序編輯選定的的畫圖程序編輯選定的BMP位圖文件位圖文件“瀏覽圖片瀏覽圖片”按鈕的按鈕的Click事件響應代碼：事件響應代碼：利用利用LoadPicture函數(shù)把圖片放入函數(shù)把

26、圖片放入圖像圖像框中框中 362“另存為另存為”對話框?qū)υ捒?為保存文件提供一個標準用戶界面，供選擇或鍵入文為保存文件提供一個標準用戶界面，供選擇或鍵入文件路徑名。同樣，儲存文件的操作需要編寫代碼。件路徑名。同樣，儲存文件的操作需要編寫代碼。 涉及的屬性基本上與涉及的屬性基本上與“打開打開”對話框相同。此外，還對話框相同。此外，還有一個有一個DefaultExt屬性，表示所存文件的缺省擴展名。屬性，表示所存文件的缺省擴展名。3“顏色顏色”對話框?qū)υ捒?最重要的是最重要的是Color屬性，用于返回或?qū)傩?，用于返回?設(shè)置選定的顏色。例如：設(shè)置選定的顏色。例如： Text1.ForeColor =

27、 CommonDialog1.Color 374“字體字體”對話框常用屬性：對話框常用屬性：Color：返回所選顏色：返回所選顏色FontName：返回所選字體的名稱：返回所選字體的名稱Fontsize：返回所選字體的大?。悍祷厮x字體的大小FontBold、FontItalic、 FontStrikethru、FontUnderline： 這些屬性的值取這些屬性的值取True或或False，用于設(shè)定文本是否粗體、，用于設(shè)定文本是否粗體、斜體、加刪除線或加下劃線斜體、加刪除線或加下劃線 Min、Max：確定所能選擇的字體大小的最小值和最大值：確定所能選擇的字體大小的最小值和最大值(單單位為位為

28、Point) Flags：設(shè)置值及含義見教材表：設(shè)置值及含義見教材表10.3 注：顯示注：顯示“字體字體”對話框之前必須設(shè)置對話框之前必須設(shè)置Flags屬性屬性 385“打印打印”對話框?qū)υ捒?“打印打印”對話框同樣不能處理具體的打印作業(yè)，僅提供對話框同樣不能處理具體的打印作業(yè)，僅提供一個標準打印界面供用戶選擇打印參數(shù)。所選參數(shù)存于各一個標準打印界面供用戶選擇打印參數(shù)。所選參數(shù)存于各屬性中，比較常用的有：屬性中，比較常用的有： Copies：復制份數(shù)：復制份數(shù) FromPage：起始頁號：起始頁號 Topage：終止頁號：終止頁號 39例例10.2 一個簡單的文本文件一個簡單的文本文件 編輯程

29、序編輯程序 界面設(shè)計：界面設(shè)計：40事件響應代碼：事件響應代碼：416“幫助幫助”對話框：從磁盤中提取已制作好的幫助文件對話框：從磁盤中提取已制作好的幫助文件 Helpcommand：返回或設(shè)置幫助類型：返回或設(shè)置幫助類型(cdlHelpContents、cdlHelpContext等等) HelpFile：指定：指定Help文件的路徑及其文件名稱文件的路徑及其文件名稱 HelpKey：指定幫助信息的關(guān)鍵字：指定幫助信息的關(guān)鍵字 ，例如，例如 CommonDialog1.HelpCommand=vbHelpContentsCommonDialog1.HelpFile=”VB.HLP” Comm

30、onDialog1.HelpKey=”CommonDialog Control”CommonDialog1.Action=6 HelpContext：返回或設(shè)置所需要的幫助主題：返回或設(shè)置所需要的幫助主題 42例例10.3Private Sub Command1_Click() CommonDialog1.HelpCommand = cdlHelpContents CommonDialog1.HelpFile = C:WindowsHelpMspaint.HLP CommonDialog1.Action = 6End Sub431添加添加MMControl控件控件 “工程工程部件部件”“控件控

31、件”選項卡中選擇選項卡中選擇“Microsoft Multimidia Control6.0” 說明：說明：MMControl控件僅提供了對控件僅提供了對MCI設(shè)備的操作接口。而設(shè)備能設(shè)備的操作接口。而設(shè)備能否使用，則決定于該設(shè)備及相關(guān)驅(qū)動程序是否已安裝。否使用，則決定于該設(shè)備及相關(guān)驅(qū)動程序是否已安裝。MMControl控件支持的部分設(shè)備見教材表控件支持的部分設(shè)備見教材表10.5 MMControl控件控件Command屬性使用的命令見教材表屬性使用的命令見教材表10.6。例如，打開某一例如，打開某一MCI設(shè)備：設(shè)備： MMControl1.Command=”O(jiān)pen” 442打開打開MCI設(shè)

32、備設(shè)備 Notify屬性：表示在下一命令完成時，是否產(chǎn)生屬性：表示在下一命令完成時，是否產(chǎn)生Done事件事件Wait屬性：指定屬性：指定MMControl控件是否等到下一命令執(zhí)行完畢，控件是否等到下一命令執(zhí)行完畢，才將控制權(quán)還給應用程序才將控制權(quán)還給應用程序 Shareable屬性：限制或允許其他應用程序或進程使用該設(shè)備屬性：限制或允許其他應用程序或進程使用該設(shè)備DeviceType屬性：指定屬性：指定MCI設(shè)備的類型設(shè)備的類型如：如：MMControl1.Notify=False MMControl1.Wait=True MMControl1.Shareable=false MMContro

33、l1.DeviceType=”CDAudio” 453關(guān)閉關(guān)閉MCI設(shè)備設(shè)備 使用使用Close命令，例如：命令，例如： MMControl1.Command=”close” 4使用使用Error和和ErrorMessage屬性屬性 處理由該控件產(chǎn)生的錯誤，例如：處理由該控件產(chǎn)生的錯誤，例如： If Form1.MMControl1.Error Then MsgBox Form1.MMControl1.ErrorMessage.vbCritica End If 46例例10.4 用用Multimedia MCI控件播放控件播放CD 注：運行程序時，光注：運行程序時，光驅(qū)中應放有驅(qū)中應放有CD盤

34、片。盤片。播放播放CD暫停播放暫停播放47例例10.5 用用Multimedia MCI控件創(chuàng)建控件創(chuàng)建“媒體播放器媒體播放器” 48 49例例10.5窗體設(shè)計：窗體設(shè)計： 程序代碼：程序代碼：50“新建工程新建工程”對話框中選定對話框中選定“VB應用程序向?qū)贸绦蛳驅(qū)А?，然后，然后按向?qū)崾静僮靼聪驅(qū)崾静僮?注：通過向?qū)傻闹皇菓贸绦虻拇绑w與框架代注：通過向?qū)傻闹皇菓贸绦虻拇绑w與框架代碼，許多功能還需要用戶根據(jù)實際情況加以完善。碼，許多功能還需要用戶根據(jù)實際情況加以完善。 51u模塊有三種類型：窗體、標準和類。模塊有三種類型：窗體、標準和類。 u窗體模塊窗體模塊 （文件擴展名

35、為（文件擴展名為 .FRM ）它可以包含處理事件的過程、通用過程以及變量、常數(shù)、類型和它可以包含處理事件的過程、通用過程以及變量、常數(shù)、類型和外部過程的窗體級聲明。如果要在文本編輯器中觀察窗體模塊，外部過程的窗體級聲明。如果要在文本編輯器中觀察窗體模塊，則還會看到窗體及其控件的描述，包括它們的屬性設(shè)置值。寫入則還會看到窗體及其控件的描述，包括它們的屬性設(shè)置值。寫入窗體模塊的代碼是該窗體所屬的具體應用程序?qū)Ｓ玫模凰部梢源绑w模塊的代碼是該窗體所屬的具體應用程序?qū)Ｓ玫?；它也可以引用該應用程序?nèi)的其它窗體或?qū)ο?。引用該應用程序?nèi)的其它窗體或?qū)ο蟆?u標準模塊標準模塊 （文件擴展名為（文件擴展名為 .BAS）是應用程序內(nèi)其它模塊訪問的過程和聲明的容器。它們可以包含是應用程序內(nèi)其它模塊訪問的過程和聲明的容器。它們可以包含變量、常數(shù)