全國二級VB教程補充內(nèi)容

1,對江蘇版新編Visual Basic程序設(shè)計教程的補充,全國計算機等級考試 二級VB教程,紡織服裝學院數(shù)字紡織教研室 2010.6.8,2,說明：,本教學內(nèi)容是對江蘇省高校新編 Visual Basic程序設(shè)計教程的補充。 文中表述時采用的白色文字，表示為已學過的知識，目的是使新講述的知識與原有知識進行有機銜接。 文中表述時采用的黃色（含其它顏色）文字，表示為新知識。 程序代碼通常使用白色。,3,一、制作工具欄,工具欄為Windows98 / 2000 / XP 應(yīng)用程序常用的標準功能。它提供菜單命令的快速訪問。,(一) 使用控件創(chuàng)建工具欄,1、首先在工具箱中添加“Toolbar控件”（工具欄控件）與“ImageList控件”（圖象列表控件）,方法：將鼠標移到工具箱上，單擊鼠標右鍵，選擇“部件”。在控件標簽下選擇“MicrosoftWindows Common Controls 6.0”, 單擊確定按鈕。,注意：在專業(yè)版和企業(yè)版才有此功能。,下轉(zhuǎn) 創(chuàng)建工具欄 完成的工具欄,4,a,b,c,下轉(zhuǎn) 創(chuàng)建工具欄 需制作的工具欄,5,2、將“Toolbar控件”與“ImageList控件”放到窗體中,Toolbar控件,ImageList控件,Toolbar對象,ImageList 對象,6,3、將按鈕圖形文件加到“ImageList控件”中。此控件主要是管理圖像文件。,方法：選中ImageList控件，單擊鼠標右鍵，選擇 “屬性”，出現(xiàn)以下窗口。選擇 “圖像” 標簽”。,7,單擊 “插入圖片” 按鈕，在某個文件夾下找到要使用的圖片，并為每個圖片指定一 個關(guān)鍵字。單擊 “確定” 按鈕。,下轉(zhuǎn) 創(chuàng)建工具欄 需制作的工具欄,8,4、使用“Toolbar控件”建立按鈕。方法：選中“Toolbar控件”，單擊鼠標右鍵，選擇“屬性”。出現(xiàn)如下窗口。,9,在“通用”標簽下，在“圖像列表”下拉列表中選擇 ImageList 1 對象。,10,在 “按鈕” 標簽下，單擊 “插入按鈕”，在關(guān)鍵字處輸入 “new”, 在工具提示文本中輸入 “新建”，在圖像中輸入 “1”，單擊 “確定” 按鈕。這時在工具欄按鈕上出現(xiàn)圖像。 重復(fù)以上步驟，將能創(chuàng)建多個工具欄按鈕。,在程序代碼中出現(xiàn)的按鈕名稱。(必須要),注：必要時 可加標題,下轉(zhuǎn) 創(chuàng)建工具欄 需制作的工具欄,11,完成的工具欄,添加了標題的工具欄,添加了工具提示文本的效果,12,5、輸入各個按鈕的程序代碼,在設(shè)計狀態(tài)，雙擊“Toolbar”對象，出現(xiàn)代碼窗口。,Private Sub Toolbar1_ButtonClick (ByVal Button As MSComctlLib.Button) Select Case Button.Key Case new Label1.Caption = “ 新建一個文擋！ Case open Label1.Caption = “ 打開一個文擋！” Case ”save” Label1.Caption = ” 保存一個文擋！ Case print Label1.Caption = “ 打印一個文擋！ End Select End Sub,13,（二）補充知識： 創(chuàng)建多窗體界面的二 種情況： 1、在一個工程中創(chuàng)建 多個并列窗體。 下轉(zhuǎn)VB開發(fā)環(huán)境作演示 2、在一個工程中創(chuàng)建 具有父子結(jié)構(gòu)的MDI 多窗體界面。 下轉(zhuǎn)VB開發(fā)環(huán)境作演示,并 列 窗 體,父窗體,子窗體,14,舉例：創(chuàng)建一個MDI窗體。一個父窗體，二個 子窗體。在父窗體上制作一個菜單欄，菜單名 分別為窗體1、窗體2，并編程。 要求：當點擊某菜單項時，相應(yīng)的子窗體在父 窗體中顯示。,15,Option Explicit Private Sub mnu1_Click() Form1.Show Form2.Hide End Sub Private Sub mnu2_Click() Form2.Show Form1.Hide End Sub,菜單項編程：,下轉(zhuǎn) MDI窗體演示,16,二、VB控制結(jié)構(gòu)及其語句,（一）分支結(jié)構(gòu)語句 1、單分支結(jié)構(gòu)語句 If e Then 或： If e Then End If 2、雙分支（標準）結(jié)構(gòu)語句 If e Then Else End If,3、多分支結(jié)構(gòu)語句 If e1 Then Elseif e2 Then Elseif e3 Then Else End If,17,4、并列分支結(jié)構(gòu)語句（亦稱情況語句） Select Case e Case c1 Case c2 Case Else End Select,5、IIf 函數(shù) (1) IIf函數(shù)是“If-Then-Else”結(jié)構(gòu)的簡寫版本，可用來執(zhí)行簡單的條件判斷操作。 IIf是 “ Immediate If ”的縮略詞。 (2)函數(shù)格式： result=Iif (條件，True部分，F(xiàn)alse部分) 說明：1）result指函數(shù)的返回值 2）“條件”是一個邏輯表達式，,18,當條件為真時，Iif函數(shù)返回“True部分”，而當條件為假時，返回“False部分”。 3）“True”或“False部分”可以是表達式、變量或其他函數(shù)。 4）Iif函數(shù)中的3個參數(shù)都不能省略。 舉例1 ： 相當于： r=Iif(a5,1,2) If a5 Then Print r r=1 Else r=2 End if Print r,下轉(zhuǎn)：二VB控制結(jié)構(gòu)及其語句-1,19,舉例2：使用IIF函數(shù)判斷D的值，試直接采用Print語句輸出結(jié)果。,下轉(zhuǎn)：二VB控制結(jié)構(gòu)及其語句-2,Private Sub Form_Click() Dim d As Integer d = InputBox(請輸入D值, 直接采用Print, 0) Print IIf(d 12, D大于12, D小于12) End Sub,舉例3：試求分段函數(shù) y=,4 + 3x x=0,下轉(zhuǎn)：二VB控制結(jié)構(gòu)及其語句-3,Private Sub Command1_Click() Dim x As Integer, y As Integer x = InputBox(, , 0) y = IIf(x < 0, 4 + 3 * x, 10 - x) Text1.Text = y End Sub,20,（二）無條件轉(zhuǎn)向語句GoTo 1、概念：Goto語句用于無條件改變程序執(zhí)行的順序。例如跳過程序的某一部分去執(zhí)行另一部分，或返回已經(jīng)執(zhí)行過的某語句使之重復(fù)執(zhí)行。 2、語句格式： GoTo 標號 | 行號 說明：1）標號 | 行號用于指明程序?qū)⑥D(zhuǎn)移至的目標 語句的邏輯位置。 2）標號是一個以字母開頭的標識符，其后必 帶冒號。例如 again: ,start: 。行號是以數(shù)字表示的。 例如：10，20，258等。在程序中標號、行號必須是 惟一的。 3）GoTo語句總是在一個過程中使用。,21,舉例4：從鍵盤輸入a,b,c三個值，判斷a+b是否小于c,若 滿足則結(jié)束程序。試采用GoTo語句，且僅使用行號。,下轉(zhuǎn)：二VB控制結(jié)構(gòu)及其語句-4,Private Sub Form_Click() Dim a As Single, b As Single, c As Single 10 a = Val(InputBox(請輸入A值) b = Val(InputBox(請輸入B值) c = Val(InputBox(請輸入C值) If a + b =c,繼續(xù)輸入！ GoTo 10 50 Print a; b; c; a+b<c,結(jié)束！ End Sub,行號,22,舉例5：仍為上題，試采用GoTo語句，且將行號與標 號復(fù)合使用。,下轉(zhuǎn)：二VB控制結(jié)構(gòu)及其語句-5,Private Sub Form_Click() Dim a As Single, b As Single, c As Single Start: a = Val(InputBox(請輸入A值) b = Val(InputBox(請輸入B值) c = Val(InputBox(請輸入C值) If a + b =c,繼續(xù)輸入！ GoTo Start 50 Print a; b; c; a+b<c,結(jié)束！ End Sub,行號,標號,23,舉例6：試采用GoTo語句設(shè)計一個計算 n! 階乘。 Private Sub Command1_Click() Dim k As Integer, i As Integer, n As Integer n = Val(InputBox(請輸入 n 的值, 求N的階乘, 2) k = 1: i = 1 Again: k = k * i i = i + 1 If i <= n Then GoTo Again Else GoTo 500 End If 500 Print n; ! = ; k End Sub,下轉(zhuǎn)：二VB控制結(jié)構(gòu)及其語句-6,求n階乘的值 求次數(shù) 判斷I值,24,（三）具有并列分支結(jié)構(gòu)功能的 On - GoTo語句 1）功能：實現(xiàn)并列分支功能，依據(jù)條件判斷從多種處 理方案中選擇一種。 2）格式： On 數(shù)值表達式 GoTo 行號表列 | 標號表列 3）On - GoTo 語句執(zhí)行過程： 首先計算“數(shù)值表達式”的值，若為小數(shù)則自動四舍 五入求整，之后依據(jù)該值決定轉(zhuǎn)移到第幾行號或標號。 On k GoTo 行/標1, 行/標2, 行/標3, 行號/標號4 k=1 k=2 k=3 k=4,25,舉例7：設(shè)某時期的銀行存款年利率如下： 1-活期 2.5% 2-定期一年 5% 3-定期二年 7.5% 4-定期三年 9% 5-定期五年 11% 6-定期八年 13% 以上1、2 6代表存款類別，從鍵盤輸入存款類別， 計算出一年后所得的本利之和。試應(yīng)用 on-GoTo語句 編寫程序。 令：存款額為 A 存款類別為 k 利率為 P 解：,26,A、用戶界面：,27,Private Sub Command1_Click() Dim a As Single, k As Integer, p As Single Text1.SetFocus a = Val(Text1.Text) Text2.SetFocus k = Val(Text2.Text) If k 6 Then k = 6 On k GoTo 10, start, 30, 40, 50, 60 10 p = 0.025 GoTo 100 start: p = 0.05 ：GoTo 100 30 p = 0.075 : GoTo 100 40 p = 0.09 : GoTo 100 50 p = 0.11 : GoTo 100 60 p = 0.13 : GoTo 100 100 Text3 = Str(Format(a * p, 00#,#.#) Text4 = Str(Format(a * (1 + p), 00#,#,#.#) End Sub,B、用戶程序：,A - 存款額 K - 存款類別 P - 利率,28,Private Sub Command2_Click() Text1 = Text2 = Text3 = Text4 = Text1.SetFocus End Sub Private Sub Command3_Click() Unload Me End Sub,下轉(zhuǎn)：二VB控制結(jié)構(gòu)及其語句-7,注意：在實際編程時，無特別的必要，請不要使用 GoTo 語句與 On - GoTo 語句，因為在程序較長時易使程序走向紊亂，造成編程錯誤！僅在考試時試題要求時才應(yīng)用！,29,三、鍵盤 KeyAscii Print End Sub,32,舉例：設(shè)計一個能對輸入值進行限止、分流的應(yīng)用程序。其中阿拉伯數(shù)字0（ASCII碼 48）- 9（ASCII碼 57）在Text1中回顯。除此不充許，僅在Text2中顯示。,下轉(zhuǎn)：第三部分 鍵盤與鼠標事件 - 3,Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then MsgBox “不充許！在Text2中顯示, 16 Text2.Text = Text2 KeyAscii End Sub Private Sub Command1_Click() Text1 = 學習VB” End Sub Private Sub Command2_Click() End End Sub,無法顯示,34,7、KeyPress事件可作用的對象有： 窗體、文本框、滾動條、列表框、圖片框、復(fù)選框 組合框、命令按鈕以及與文件有關(guān)的控件。 不能響應(yīng)該事件（即無鍵盤焦點）的有：標簽框、框架、圖像框、時鐘等。,35,（二）鍵盤的KeyDown(按下)和KeyUp(抬起）事件,1、 KeyDown、KeyUp事件的一般格式： Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) End Sub Private Sub Form_KeyUp(KeyCode As Integer,Shift As Integer) End Sub,2、事件參數(shù)：二種形式 1）KeyCode As Integer, Shift As Integer 用于單個控件(常 用) 2）Index As Integer 用于控件數(shù)組(不常用),3、參數(shù)含義： 復(fù)習：我們已經(jīng)學過 KeyPress (KeyAscii) 返回“字符”的Ascii碼的值 例鍵 A:若鍵入的是大寫的 A，則值為 65 若鍵入的是小寫的 a，則值為 97,36,KeyDown (KeyCode) 返回“鍵”的值 KeyUp,“鍵”的值以大寫的字母的Ascii碼為準。例鍵“A”，無論是“A”還是“a”，值只有65。也就是說：KeyCode只認“鍵”（不分大小寫）。 注意：大鍵盤上的數(shù)字鍵與小鍵盤（數(shù)字鍵盤）上相同的數(shù)字鍵的 KeyCode 是不一樣的。對于有上檔字符和下檔字符的鍵，其 KeyCode 均為下檔字符的Ascii碼值。以下是 KeyCode 與 KeyAscii 比較：,鍵（字符） KeyCode KeyAscii 鍵（字符） KeyCode KeyAscii A -; Hex(KeyCode); ; Print ElseIf KeyCode = 13 Then i = 0 Print: Print Else Print Chr(KeyCode); -; Hex(KeyCode); ; End If End Sub,1) 程序,38,下轉(zhuǎn)：第三部分 鍵盤與鼠標事件 - 5,2)用戶界面 鍵盤 KeyCode 碼表（十六進制）,A：41H = ( 4 * 16 1 +1 * 16 0 ) D= (64 + 1)D = 65D,AZ,1 0,F1F10,39,KeyDown (Shift) 返回3個轉(zhuǎn)換鍵（Shift、 KeyUp Ctrl、Alt)的二進制值。,按下Shift鍵 001B 1D 按下Ctrl 鍵 010B 2D 按下 Alt 鍵 100B 4D 若以組合的形式同時按下以上二個或三個鍵，則Shift 參數(shù)返回的是二者或三者之和值。,十進制數(shù) 二進制數(shù) 作用 十進制數(shù) 二進制數(shù) 作用 0 000 末按轉(zhuǎn)換鍵 4 100 按下Alt鍵 1 001 按下Shift鍵 5 101 按下Alt+Shift鍵 2 010 按下Ctrl鍵 6 110 按下Alt+Ctrl鍵 3 011 按下Ctrl+Shift鍵 7 111 按下Alt+Ctrl+Shift鍵,Shift參數(shù)表（三個轉(zhuǎn)換鍵編碼表）,40,舉例6：在窗體上建立一個標簽，將按鍵產(chǎn)生的KeyCode參數(shù)的值賦予標簽的 Caption。以演示KeyCode的值，并驗證 KeyDown（壓下）與 KeyUp（抬起）事件,下轉(zhuǎn)：第三部分 鍵盤與鼠標事件 - 6,Option Explicit Private Sub Form_KeyDown(KeyCode As_ Integer, Shift As Integer) Label1.Caption = Str(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As_ Integer, Shift As Integer) Label1.Caption = End Sub,按下A,抬起A,41,舉例7：在窗體上建立一個標簽，將按鍵產(chǎn)生的 Shift參數(shù)的值賦予標簽的 Caption。以演示 Shift 的值。并驗證 KeyDown（壓下）事件，KeyUp（抬起）事件,下轉(zhuǎn)：第三部分 鍵盤與鼠標事件 - 7,Option Explicit Private Sub Form_KeyDown(KeyCode As_ Integer, Shift As Integer) Label1.Caption = Str(Shift) End Sub Private Sub Form_KeyUp(KeyCode As_ Integer, Shift As Integer) Label1.Caption = “” End Sub,壓下Alt,42,舉例8：設(shè)計組合鍵（ Shift +Ctrl）用于文本框Text1顯示“我愛中華”的功能 設(shè)計組合鍵（Shift+F2）用于工程“退出”功能 預(yù)備知識： VB規(guī)定：可用以下語句判斷是否操作了Shift、Ctrl、Alt 若按下了Shift鍵 則 Shift And Shift 0 若按下了Ctrl 鍵 則 Shift And Ctrl 0 若按下了 Alt 鍵 則 Shift And Alt 0,1）用戶界面：,1）用戶程序：,按下Shift+Ctrl,43,下轉(zhuǎn)：第三部分 鍵盤與鼠標事件 - 8,Option Explicit Private Const Shift = 1 Const用于定義符號常量Shift,以下同 Private Const ctrl = 2 Private Const key_F2 = x Form1.MousePointer = x x = x + 1 If x = 16 Then x = 0 End Sub,57,2、在屬性窗口中設(shè)置屬性,下轉(zhuǎn)：第三部分 鍵盤與鼠標事件 - 18,1）在設(shè)計態(tài)時，選中某對象（窗體、控件）。 2）在屬性窗口中找到 MousePointer 屬性條，之后 在下拉菜單中選擇某屬性。,58,（五）鼠標對對象的拖放,一、與拖放有關(guān)的屬性、事件和方法 1、DragMode 屬性 設(shè)置為人工拖放：屬性值 = 0（默認） 設(shè)置為自動拖放：屬性值 = 1 設(shè)置方法： （1）設(shè)計態(tài)時在屬性窗口中設(shè)置 （2）程序代碼中設(shè)置 例：pictuer1.DragMode = 1 注意：當一個對象的 DragMode 屬性設(shè)置為1時，該 對象不再響應(yīng) Click 和 MouseDown 事件。 2、DragIcon 屬性 在拖放對象時用于代表對象的圖標,59,二、事件 1、DragDrop事件 當把對象拖放到目標后，若抬起鼠標鍵，則產(chǎn)生該事 件。 2、DragOver事件 當拖動對象越過一個控件時，產(chǎn)生DragOver事件。 3、事件過程格式：,Private Sub Picture1_DragDrop(Source As Control, X As_ Single, Y As Single) End Sub,Private Sub Picture1_DragOver(Source As Control, X As_ Single, Y As Single,State As Intrger) End Sub,4、事件過程參數(shù)： Source: 對象變量，類型為控件。該參數(shù)含有被拖,60,動對象的屬性，例：if Source.Name=“Folder” Then 用來判斷被拖動對象的 Name 屬性是否為“Folder”. X , y 參數(shù)是抬起鼠標鍵放下對象時鼠標光標的位置。 State:有三個值。 0 鼠標光標正進入目標對象的區(qū)域 1 鼠標光標正退出目標對象的區(qū)域 2 鼠標光標正位于目標對象的區(qū)域之內(nèi) 三、方法： 方法有 Move 和 Drag, Drag 用于手動拖放操作。 Drag 格式： 控件 . Drag 整數(shù) 0 取消指定控件的拖放 1 當Drag方法出現(xiàn)在控件的事件過程中時， 啟動控件的拖放,61,2 結(jié)束控件的拖放，并發(fā)出一個DragDrop事件,四、鼠標對對象的拖放 1、自動拖放 舉例17：設(shè)計一個簡單的自動拖放實例 (不使用 Drag ) 1）在窗體上建立一個圖片框，框中裝入圖標文件（在 設(shè)計態(tài)時于屬性窗口的 Picture 屬性中選取圖標） 2）將屬性窗口的 DragMode 屬性設(shè)置為1-Automatic （即自動拖放模式） 3）設(shè)計DragDrop事件過程,（一）用戶界面：,（二）用戶程序：,下轉(zhuǎn)：第三部分 鍵盤與鼠標事件 - 19,Private Sub Form_DragDrop(Source_ As Control, X As Single, Y As Single) Picture1.Move X, Y End Sub,圖標可見,62,舉例18：設(shè)計一個簡單的自動拖放實例。要求：平時 圖標不可見，運行時圖標才顯現(xiàn)。 1）在窗體上建立一個圖片框，框中裝入圖標文件（在 設(shè)計態(tài)時于屬性窗口的 DragIcon 屬性中選取圖標,或 在程序代碼中指明裝入的圖標的路徑） 2）將屬性窗口的DragMode屬性設(shè)計為1-Automatic （即自動拖放模式） 3）設(shè)計DragDrop事件過程,（一）用戶界面：,圖標不可見,Private Sub Form_DragDrop(Source As Control, X As_ Single, Y As Single) Picture1.DragIcon = LoadPicture(d:tangClient.ico) Picture1.Move X, Y End Sub,（二）用戶程序：,下轉(zhuǎn)：第三部分 鍵盤與鼠標事件 - 20,63,2、手動拖放,舉例19：一個手動拖放實例,（一）用戶界面：,（二）用戶程序：,為實現(xiàn)手動拖放，1）屬性窗口的 DragMode 屬性保持 為默認值 “0 - Manual”（即人工方式）,方法 Drag 為默認值,64,Private Sub Form_Load() Picture1.DragIcon = Picture1.Picture End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift_ As Integer, X As Single, Y As Single) Picture1.Drag 1 End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As_ Integer, X As Single, Y As Single) Picture1.Drag 2 End Sub Private Sub Form_DragDrop(Source As Control, X As_ Single, Y As Single) Source.Move X, Y Source.Move (X - Source.Width / 2), (Y - Source.Height / 2) End Sub,下轉(zhuǎn)：第三部分 鍵盤與鼠標事件 - 21,65,四、VB通用對話框,一、對話框的定義與分類： 1、 對話框的定義： 具有顯示信息并接收用戶信息的功能框（實際上是一種特殊的窗體）稱對話框。 我們已學習過 InputBox 鍵盤輸入信息對話框與MsgBox 簡單信息消息框，這二種對話框僅具極簡單的功能。若對話功能較為復(fù)雜，怎么辦？這就需要用到通用對話框。 2、對話框的分類： 1）預(yù)定義對話框：,66,即VB提供的 InputBox 與MsgBox 。 2）自定義對話框（或稱定制對話框）： 用戶通過創(chuàng)建用戶界面與編寫程序來獲得。例如教材第二章介紹的用于改變文字風格的單選按鈕、復(fù)選框、框架等控件的使用，實際上就是一種自定義對話框。這種對話框由于要求用戶自己定制，比較繁。,3）通用對話框： 用戶自己定制對話框比較繁，為此VB考慮到這種需求，已為用戶設(shè)置了專用控件：通用對話框控件。使用該控件能夠方便地設(shè)計出功,能較為復(fù)雜的對話框。,67,二、通用對話框： 1、通用對話框控件： 工具箱 部件 控件 Microsoft Common Dialog Control 6.0 確定 2、通用對話框的類型： 為方便用戶的使用，VB提供了幾種不同類型的通用對話框。,控件圖標,對話框類型 方法 Action屬性 打開文件 對象名. ShowOpen 對象名.Action= 1 保存文件 對象名. ShowSave 對象名.Action= 2 選擇顏色 對象名. ShowColor 對象名.Action= 3 選擇字體 對象名. ShowFont 對象名.Action= 4 打印 對象名. ShowPrinter 對象名.Action= 5 調(diào)用Help文件 對象名. ShowHelp 對象名.Action= 6,對象名：CommonDialog1,68,3、通用對話框類型的舉例（基本特征）： 1）文件對話框 （1）打開文件對話框：,下轉(zhuǎn)：第四部分 通用對話框 - 1,Private Sub Command1_Click() CommonDialog1. ShowOpen End Sub,Private Sub Command1_Click() CommonDialog1. ShowSave End Sub,（2）保存文件對話框：,下轉(zhuǎn)：第四部分 通用對話框 - 1,69,Private Sub Command1_Click() CommonDialog1. Action = 3 End Sub,2）選擇顏色對話框：,下轉(zhuǎn)：第四部分 通用對話框 - 1,Private Sub Command1_Click() CommonDialog1. Action = 5 End Sub,3）打印對話框：,下轉(zhuǎn)：第四部分 通用對話框 - 1,70,4、文件對話框的屬性設(shè)置（功能擴展）：,1）DialogTitle 屬性 設(shè)置對話框的標題。默認值：“打開”、“保存”、“顏色”等；,1,2,3,4,2）FileTitle - 設(shè)置當前文件的文件名； 3）FileName - 設(shè)置當前文件的文件名與路徑; 4）Filter - 設(shè)置文件類型，可設(shè)置多個文件類型，以供用戶在下拉列表中選擇；,上面介紹了通用對話框的最基本的特征與最簡功能。 在實際使用中，VB還提供了有關(guān)的屬性設(shè)置，以滿 足用戶的需要。,71,格式： 窗體. 對話框名. Filter = 描述符1 | 過濾器1 | 描述符2 | 過濾器2 | 例如： CommonDialog1.Filter = (*.*)|*.*|(*.txt)|*.txt|(*.frm)|*.frm|(*.doc)|*.doc 5）FilterIndex 指定對話框啟動后默認的過濾器，上 例中若需選擇擴展名為（.txt）的文件，則： CommonDialog1.FilterIndex = 2,6）Flags 設(shè)置對話框的外觀。 格式： 對象名.Flags = 值 ,72,文件對話框 Flags 取值表（部分）：,符號常量 十六進制數(shù) 十進制數(shù) vbOFNReadOnly &H1& 1 在對話框中顯示“只讀檢查”復(fù)選框 vbOFNOverwritePrompt &H2& 2 保存文件時，若用磁盤上已有的文件名保存，則顯示一個信息框，詢問用 戶是否以當前文件覆蓋原有文件 vbOFNHideReadOnly &H4& 4 取消“只讀檢查”復(fù)選框 vbOFNNoChangeDir &H8& 8 保留當前目錄 vbOFNShowHelp &H10& 16 顯示一個“Help”按鈕 vbOFNNoReadOnlyReturn &H8000& 32768 選擇的文件不是只讀文件，并且不在一個寫保護的目錄內(nèi) 共計13項,73,Flags 值在代碼中的表達形式： CommonDialog1.Flags = vbOFNReadOnly （符號常量） CommonDialog1.Flags = &H1& （十六進制數(shù)） CommonDialog1.Flags = 1 （十進制數(shù)） CommonDialog1.Flags = vbOFNReadOnly Or vbOFNShowHelp CommonDialog1.Flags = &H1& Or 16 CommonDialog1.Flags = 17 （1 + 16）,舉例： 編寫一個標題為“打開文件對話框示例”的應(yīng)用程序： （1）創(chuàng)建用戶界面,Command1,CommonDialog1,（2）編寫程序：,74,Option Explicit Private Sub Command1_Click() Dim a As String CommonDialog1.DialogTitle = 打開文件對話框示例! CommonDialog1.FileName = CommonDialog1.Filter = (*.*)|*.*|(*.txt)|*.txt|(*.frm)|*.frm|(*.doc)|*.doc CommonDialog1.FilterIndex = 2 CommonDialog1.Action = 1 If CommonDialog1.FileName = Then MsgBox 無文件名, 37, 檢查 Else Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) 文件路徑：d:tst1.txt 或 d:tst2.txt Input #1, a Print a Loop End If End Sub,下轉(zhuǎn)：第四部分 通用對話框 - 2,75,5、顏色（Color）對話框： 本對話框的屬性較簡單（除有少量的與文件對話框相同的屬性外），主要屬性是Color 設(shè)置初始顏色。 顏色對話框的Flags取值表：,符號常量 十六進制數(shù) 十進制數(shù) vbCCRGBInit &H1& 1 使Color屬性定義的顏色在首次顯示對話框時隨著顯示出來，必須使用 vbCCFullOpen &H2& 2 打開完整的顏色對話框（包括“規(guī)定自定義顏色”窗口） vbCCPreventFullOpen &H4& 4 禁用“規(guī)定自定義顏色”按鈕 vbCCShowHelp &H8& 8 顯示一個“Help”按鈕,76,Flags使用說明： 程序代碼中必須使用: 對象名.Flags= vbCCRGBInit，其作用是打開顏色對話框，并可設(shè)置或讀取 Color 的屬性。 Flags在代碼中的表達形式：,CommonDialog1.Flags = vbCCRGBInit （符號常量） CommonDialog1.Flags = &H1& （十六進制數(shù)） CommonDialog1.Flags = 1 （十進制數(shù)） CommonDialog1.Flags = &H1& CommonDialog1.Flags = 2 （打開完整的顏色對話框） CommonDialog1.Flags = 1 CommonDialog1.Flags = 4 （“規(guī)定自定義顏色”按鈕無效） CommonDialog1.Flags = 1 CommonDialog1.Flags = 8 （顏色對話框上顯示“Help”按鈕）,77,舉例：建立一個顏色對話框，編寫應(yīng)用程序，把對話框中選定的顏色賦予窗體作背景色： （1）創(chuàng)建用戶界面 （2）編程：,圖形框,Option Explicit Private Sub Command1_Click() CommonDialog1.Flags = 1 CommonDialog1.Flags = 2 CommonDialog1.Flags = 4 CommonDialog1.Flags = 8 CommonDialog1.Color = BackColor CommonDialog1.ShowColor Picture1.BackColor = CommonDialog1.Color End Sub,下轉(zhuǎn)：第四部分 通用對話框 - 3,通用對話框控件,78,6、字體（Font）對話框： 本對話框除有少量屬性與前面對話框相同外，主要屬性是 Flags 的取值與Font屬性。 字體對話框Flags 取值表：,符號常量 十六進制數(shù) 十進制數(shù) vbCFScreenFonts &H1& 1 只顯示屏幕字體 vbCFPrinterFonts &H2& 2 只列出打印機字體 vbCFBoth &H3& 3 列出打印機和屏幕字體 vbCFShowHelp &H4& 4 顯示一個“Help”按鈕 共計15項,79,字體對話框 Font 的主要屬性：,FontName 字體名稱 FontSize 字體尺寸 FontBold 粗體 FontItaLic 斜體,FontStrikeThru 刪除線 FontUnderLine 下劃線 其它,舉例：用字體對話框設(shè)置文本框中顯示的字體 （1）創(chuàng)建用戶界面,文本框,通用對話框控件,80,（2）編程：,Option Explicit Private Sub Command1_Click() CommonDialog1.Flags = 3 CommonDialog1.ShowFont Text1.FontItalic = CommonDialog1.FontItalic 注：各Font屬性也可以在控件屬性窗口中預(yù)選 Text1.FontBold = CommonDialog1.FontBold Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline End Sub,（3）程序運行效果：,81,2,1,下轉(zhuǎn)：第四部分 通用對話框 - 4,82,7、打?。≒rinter）對話框： 本對話框除有少量屬性與前面對話框相同外，主要屬性是 Flags、FromPage、ToPage、Max、Min、等屬性。 1）打印對話框 Flags 取值表：,符號常量 十六進制數(shù) 十進制數(shù) vbPDSelection &H1& 1 只顯示屏幕字體 vbPDPageNums &H2& 2 只列出打印機字體 vbPDNoSelection &H4& 4 列出打印機和屏幕字體 vbPDNoPageNume &H8& 8 取消頁碼計數(shù) vbPDShowHelp &H800& 2048 顯示一個“Help”按鈕 vbPDUseDevModeCopies &H4000& 262144 若打印機驅(qū)動程序不支持多份拷貝，則設(shè)置這個值將禁止拷貝 共計15項,83,2）FromPage、ToPage屬性：指定要打印文擋的頁碼范圍； 3）Max、Min屬性：用來限止FromPage、ToPage的范圍，其中Min指定所充許的起始頁碼， Max指定所充許的最后頁碼。,舉例：建立打印對話框 （1）創(chuàng)建用戶界面,通用對話框控件,84,（2）編程：,Option Explicit Private Sub Form_Load() CommonDialog1.Min = 1 CommonDialog1.Max = 10 CommonDialog1.Flags = &H1& Or &H4000& CommonDialog1.CancelError = True 以上代碼用于單擊“取消”按鈕時給出出錯信息 CommonDialog1.Action = 5 End Sub,（3）程序運行效果：,85,輸入15,1,2,3,當輸入的頁碼正確時，按下“打印”按鈕,下轉(zhuǎn)：第四部分 通用對話框 - 5,86,87,END !,2010.6.8修改,補充內(nèi)容結(jié)束 謝謝大家,