【文章內(nèi)容簡介】 程序運(yùn)行時，單擊命令按鈕，打開一個“ 保存 ” 為 “ 保存 ” 命令按鈕編寫以下事件過程： “ 保存 ” （ Save As）對話框 Private Sub cmdSave_Click() = ″保存文件 ″ = ″frm文件 |*.frm|All Files(*.*)|*.*″ = 1 = ″ D： \Tan\Program″ = 6 = 2 End Sub 運(yùn)行時顯示一個 “ 保存 ” 對話框，見圖 。 圖 可以看到，程序中指定 Action屬性值為 2，故對話框為 “ 保存 ” 類型， FilterIndex值為 1，故對話框中過濾的文件類型的默認(rèn)值為 “ *.frm”， Flags值為6，在表 6的項， Flags的值可以是表 ，例如，6=4+2，它表示同時具備 Flags=2和 Flags=4的特性，即對話框中不出現(xiàn) “ 只讀檢查 ” 復(fù)選框，以及當(dāng)用戶選中磁盤中已存在的文件名時會出現(xiàn)一個消息框，詢問用戶是否覆蓋已有的文件。如果在運(yùn)行時用戶選中了與已有文件同名的文件，則會出現(xiàn)如圖 所示的提示消息框。 圖 許多 Windows應(yīng)用程序都有 “ 顏色 ” 對話框，使用戶能夠自己選擇所需的顏色。當(dāng)通用對話框的Action屬性值為 3時，通用對話框就會執(zhí)行 “ 顏色 ” 【 例 】 利用 “ 顏色 ” 對話框?qū)⑽谋究蛑械奈淖指淖冾伾?。窗體設(shè)計如圖 。 屬性設(shè)置如表 （見書 174頁）所示。 “ 顏色 ” （ Color）對話框 圖 “ 標(biāo)志 ” （ Flags）屬性用來定義對話框的格式?！?顏色 ” 對話框的 Flags屬性值有 4種可能值，見表（見書 174頁）。設(shè)置顏色為 255（紅色），標(biāo)志為 1。 “ 改變顏色 ” 命令按鈕的事件過程如下： Private Sub cmdColor_Click() = 3 = End Sub Private Sub cmdEnd_Click() End End Sub 程序運(yùn)行開始后，用戶單擊窗體中的 “ 改變顏色 ”按鈕，觸發(fā)上面的 cmdColor_Click事件過程，屏幕顯示如圖 。 從 “ 基本顏色 ” 中選擇藍(lán)色（用戶也可以選擇其他顏色），然后單擊 “ 確定 ” 按鈕，文本框中的文字 如果用戶認(rèn)為 “ 基本顏色 ” 中的顏色不能滿足要求，需要自己定義顏色，可以單擊圖 “ 規(guī)定自定義顏色 ” 按鈕，此時在對話框右側(cè)彈出一個“ 添加到自定義顏色 ” 部分，如圖 。 圖 圖 在前面幾章的例題中設(shè)置屬性時，已用過屬性窗口中的 Font屬性來產(chǎn)生一個 “ 字體 ” 對話框，并從中選擇字體和大小。為了方便 Windows應(yīng)用程序的設(shè)計， Visual Basic也允許用戶根據(jù)需要設(shè)計 “ 字體 ”對話框。當(dāng) Action=4時，定義并打開一個 “ 字體 ” 【 例 】 將上例改成在運(yùn)行過程中用 “ 字體 ” 對話框改變字體。窗體設(shè)計與圖 。將 “ 改變顏色 ” 命令按鈕改為 “ 改變字體 ” 命令按鈕，將其Name屬性值改為 cmdFont，將通用對話框的 Name屬性值改為 FontDialog。 “ 字體 ” （ Font）對話框 程序開始運(yùn)行后的屏幕如圖 。文本框中的“ Visual Basic”字體是在設(shè)計階段對文本框 Text1的 Font屬性設(shè)置的狀況。用戶單擊 “ 改變字體 ” 按鈕，屏幕彈出一個 “ 字體 ” 對話框，如圖 。 從圖 ：對話框中各項屬性的初始值就是在屬性窗口中設(shè)置的值。用戶如果確認(rèn)此值就直接單擊 “ 確定 ” 按鈕。如想修改，可以重新選擇各屬性值。例如，設(shè)置字體為 Comic Sans MS，“ 字體樣式 ” 為 “ 粗體 ” ， “ 大小 ” 為 20，如圖。單擊 “ 確定 ” 按鈕，此時屏幕如圖 所示。 圖 圖 圖 圖 程序如下： Private Sub cmdFont_Click() = 4 = = = = = = End Sub Private Sub cmdEnd_Click() End End Sub 在上述過程中，將用戶在對話框中選擇的字體名（即 FontDialog的 FontName屬性值，如 Times New Roman就是一個字體名）賦給文本框 Text1的FontName屬性，以下各語句類似，這樣就將文本框中的文字按各 Font 當(dāng)通用對話框的 Action屬性值為 5時，通用對話框作為 “ 打印 ” 對話框使用。其屬性頁如圖 示。 【 例 】 利用通用對話框控件使屏幕顯示一個“ 打印 ” 對話框。窗體設(shè)計如圖 。 指定 “ 打開打印對話框 ” 命令按鈕的 Name屬性值為 cmdPrint，對話框的 Name屬性值為PrintDialog，編寫如下程序： “ 打印 ” （ Print）對話框 圖 圖 Private Sub cmdPrint_Click() = 5 End Sub 運(yùn)行開始后，用戶單擊 “ 打開打印對話框 ” 命令按鈕，屏幕上出現(xiàn)一個 “ 打印 ” 對話框（如圖 示）。可以看出：圖中各項的初始值是在設(shè)計階段在 “ 屬性頁 ” 中指定的（如圖 ）。用戶可以根據(jù)打印需要改變 “ 打印 ” 對話框中的各項值。 圖 81 設(shè)計一個程序，當(dāng)單擊窗體時，出現(xiàn)有 3個按鈕的消息框，如圖 （ a）所示。選擇其中一個按鈕后，再出現(xiàn)一個消息框，顯示出所選擇的按鈕，如圖 （ b）所示。 82 設(shè)計一個如圖 。窗體上有 6個標(biāo)簽，其中 3個標(biāo)簽用來顯示 “ 數(shù)據(jù) 1”、 “ 數(shù)據(jù) 2”、 “ 數(shù)據(jù) 3”等提示信息。另外 3個為白色背景有邊框的標(biāo)簽，輸入的數(shù)據(jù)將被顯示在這三個標(biāo)簽中。窗體上有兩個命令按鈕： “ 輸入 ” 和 “ 退出 ” 按鈕。 習(xí)題 圖 圖 程序運(yùn)行時，單擊 “ 輸入 ” 按鈕，出現(xiàn) “ 輸入 ” 對話框。若輸入的數(shù)據(jù)在 0~100范圍內(nèi)，則依次將數(shù)據(jù)寫到標(biāo)簽中。如果輸入數(shù)據(jù)超出規(guī)定的范圍，則用消息框提示 “ 是否接受輸入的數(shù)據(jù)？ ” ，如圖。若選擇 “ 是 ” ，則將數(shù)據(jù)顯示在標(biāo)簽中，否則重新輸入數(shù)據(jù)。 83 設(shè)計一個輸入學(xué)生成績的窗體。窗體中各控件及屬性如表 （見書 181頁）所示，窗體外觀如圖 運(yùn)行程序，分別在三個文本框中輸入數(shù)學(xué)、物理和英語的成績，單擊 “ 統(tǒng)計 ” 按鈕，對三個成績累計求和，并將計算結(jié)果顯示在 “ 總分 ” 后面的標(biāo)簽中。單擊 “ 退出 ” 按鈕，結(jié)束程序的運(yùn)行。 圖 圖 84 設(shè)計一個程序，能夠改變標(biāo)簽中文本的顏色、字體。窗體外觀如圖 。 單擊 “ 改變顏色 ” 按鈕時，出現(xiàn) “ 顏色 ” 對話框，選中某個顏色并單擊 “ 確定 ” 按鈕后，窗體上標(biāo)簽中文字的顏色被設(shè)置為選中的顏色。如果單擊 “ 改變字體 ” 按鈕，則出現(xiàn) “ 字體 ” 對話框。在該對話框中設(shè)置字體、字體大小、字體樣式后，窗體上標(biāo)簽中的文字按新設(shè)置的參數(shù)顯示。 圖 85 改進(jìn)題 84中的程序，使其對顯示在文本框中的文件具有簡單的編輯功能。在窗體上添加一個能顯示多行文本的文本框、一個通用對話框和 6個命令按鈕，界面如圖 。文本框中的文本從一個文本文件中讀取。單擊 “ 結(jié)束 ” 按鈕時，先保存文本框中的內(nèi)容，再結(jié)束程序的運(yùn)行。 圖 86 設(shè)計一個程序，查找指定的字符串。窗體上有一個文本框和一個標(biāo)簽框，文本框用于顯示從某個文件中讀取的文件。標(biāo)簽框顯示 “ 程序進(jìn)入運(yùn)行狀態(tài)后，請單擊窗體 ” 的提示。窗體外觀如圖 示。程序進(jìn)入運(yùn)行狀態(tài)后，彈出 “ 打開文件 ” 對話框，選擇一個文件，并將其內(nèi)容顯示在文本框中。單擊窗體，彈出輸入對話框。用戶輸入要查找的字符串后單擊 “ 確定 ” 按鈕，被找到的字符串被涂黑顯示，如果用戶輸入的字符串沒有查找到，彈出消息框，告訴用戶字符串沒找到。 圖 87 在窗體上畫一個文本框。當(dāng)向文本框中輸入一個數(shù)字字符時，彈出一個消息框，其標(biāo)題為 “ 輸入提示 ” ，消息框中的提示信息為 “ 輸入的是數(shù)值數(shù)據(jù)！ ” ，消息框中只有一個 “ 確定 ” 按鈕。當(dāng)向文本框中輸入一個字母時（不論大小寫字母），彈出一個消息框，其標(biāo)題為 “ 輸入提示 ” 消息框中的提示信息為 “ 輸入的是字母！ ” ，消息框外觀如圖。 圖 第 9章 圖片框、圖像框和計時器 圖片框 圖像框 計時器 利用圖片框和計時器設(shè)計簡單動畫 習(xí)題 【 例 】 在窗體上建立一個圖片框，將 Visual Basic系統(tǒng)提供的文件 。具 （ 1） 打開一個新工程，選用工具箱中的圖片框工具，在窗體上所需的位置處畫一圖片框控件，設(shè)名稱為 picShow，再添加命令按鈕控件 cmdExit，如圖 。 圖片框 圖 （ 2） 在屬性窗口中選擇圖片框控件 picShow的Picture屬性，這時在其右側(cè)出現(xiàn)按鈕，用鼠標(biāo)單擊此按鈕，屏幕上出現(xiàn)一個 “ 加載圖片 ” 對話框，如圖 。 打開 C盤上的 Popular(全路徑名為 c:\Program Files\Microsoft Office\Clipart\ Popular) 子目錄，選擇該目錄中的 ，然后單擊 “ 打開 ”按鈕，在窗體的圖片框中立即顯示出一圖形，如圖。當(dāng)然也可以選擇任何其他已存在的圖形文件。 圖 圖 ① 位圖（ bitmap），文件后綴為 .bmp ② 圖標(biāo)（ icon），文件后綴為 .ico ③ Windows元文件（ metafile） ,文件后綴為 .wmf。 通常希望圖形能夠充滿圖片框，或者圖形能夠隨著圖片框大小的改變而改變，也就是說始終讓圖形的邊界與圖片框的邊界重合。可以通過設(shè)置圖片框的AutoSize屬性達(dá)到這個目的。 AutoSize有兩個值： True和 False。當(dāng) AutoSize屬性的值設(shè)置為 True時，圖片框隨著圖形的實際大小而自動調(diào)整尺寸，以適應(yīng)圖形的尺寸。當(dāng) AutoSize屬性的值設(shè)置為 False時，圖片框不能自動調(diào)整尺寸，類型為 .wmf的圖形文件會自動調(diào)整大小，以適應(yīng)圖片框的尺寸。如果是 .bmp和 .ico文件，則圖形不會自動調(diào)整大小。 以上是在設(shè)計階段將圖形以圖形文件的形式裝入圖片框的方法。在設(shè)計階段將圖形裝入的另一種方法是，使用剪貼板把在各種圖形軟件下制作的圖形粘貼到圖片框中。 【 例 】 使用任何圖形軟件工具制作一個圖形，然后利用剪貼板將圖形裝入圖片框內(nèi)。具體做法如 （ 1） 用 Windows下任何一種圖形軟件（如CorelDraw﹑ Paintbrush﹑ Photoshop等）畫出一個圖形?，F(xiàn)在使用 Word 2022來制作一個立體的“ Visual Basic” （ 2） 選擇 “ 編輯 ” 菜單中的 “ 復(fù)制 ” 命令 (或“ 編輯 ” /“剪切 ” )命令將該圖形復(fù)制到剪貼板上； （ 3） 關(guān)閉 Word 2022的窗口，打開 Visual Basic，在窗體上建立一個圖片框； （ 4） 用 “ 編輯 ” 菜單中的 “ 粘貼 ” 命令將剪貼板上的圖形粘貼到圖片框中（如圖 ）。 實際上，并不是只有用圖形軟件制作的圖形才能裝入圖片框，凡是能放到 Windows剪貼板上的圖形，都可以用 Visual Basic的 “ 編輯 ” /“粘貼 ”