1、6.1知識知識(zh shi)要點要點1、預定義對話框、預定義對話框 預定義對話框是系統已經設計好的對話框，它們可以通過程序執行具體的函數來被顯示預定義對話框是系統已經設計好的對話框，它們可以通過程序執行具體的函數來被顯示(xinsh)。在。在Visual Basic 6.0中，預定義對話框包含輸入對話框和消息框。中，預定義對話框包含輸入對話框和消息框。第1頁/共70頁第一頁，共71頁。（1）輸入）輸入(shr)對話框對話框創建輸入創建輸入(shr)對話框的標準函數是對話框的標準函數是InputBox函數，該函數顯示一函數，該函數顯示一個接收用戶輸入個接收用戶輸入(shr)的對話框，對話框中顯

2、示提示文本，等待用的對話框，對話框中顯示提示文本，等待用戶輸入戶輸入(shr)或按下按鈕，并返回文本框的內容。或按下按鈕，并返回文本框的內容。InputBox函數的語法格式為：函數的語法格式為：InputBox (prompt,title,default,xpos,ypos,helpfile,context)第2頁/共70頁第二頁，共71頁。其中：其中：Prompt為必需的字符串表達式參數，提供為必需的字符串表達式參數，提供顯示在對話框中的提示文本。顯示在對話框中的提示文本。Title為可選字符串表達式參數，提供標題為可選字符串表達式參數，提供標題(biot)顯示在對話框的標題顯示在對話框的標

3、題(biot)欄欄中。中。Default為可選字符串表達式參數，提供輸為可選字符串表達式參數，提供輸入框的缺省輸入文本。入框的缺省輸入文本。Xpos和和Ypos都是可選的數值表達式，成對都是可選的數值表達式，成對出現，指出對話框左上角的屏幕坐標。出現，指出對話框左上角的屏幕坐標。InputBox函數返回文本框中輸入的內容，函數返回文本框中輸入的內容，為字符串類型。為字符串類型。第3頁/共70頁第三頁，共71頁。（2）消息框創建消息框的標準函數是MsgBox函數，該函數在對話框中顯示消息，等待用戶(yngh)按下按鈕，并返回一個整數來表示用戶(yngh)按下了哪一個按鈕。MsgBox函數的語法格

4、式為：MsgtBox(prompt,buttons,title,helpfile,context)其中：Prompt是必要的字符串表達式參數，作為顯示在對話框中的消息。第4頁/共70頁第四頁，共71頁。 Buttons是可選參數，該數值表達式是分別代表顯示按鈕形式、使是可選參數，該數值表達式是分別代表顯示按鈕形式、使用圖標樣式、缺省按鈕樣式和對話框模式的四個數值的和。用圖標樣式、缺省按鈕樣式和對話框模式的四個數值的和。 Title是可選參數。該字符串表達式作為標題顯示在消息是可選參數。該字符串表達式作為標題顯示在消息(xio xi)框框的標題欄中。的標題欄中。 MsgBox函數返回值為函數返回

5、值為16之間的一個整數，表示用戶按下了之間的一個整數，表示用戶按下了“確確定定”、“取消取消”、“終止終止”、“重試重試”、“忽略忽略”或或“是是”按鈕。按鈕。第5頁/共70頁第五頁，共71頁。2、通用對話框、通用對話框（1）通用對話框的使用）通用對話框的使用 把把“通用對話框（通用對話框（Common Dialog）”控件添加到工具箱中的方法為：控件添加到工具箱中的方法為：從從“工程工程”菜單中選菜單中選“部件部件”命令命令(mng lng)，或用鼠標右鍵單擊工具箱，選其中，或用鼠標右鍵單擊工具箱，選其中“部件部件”命令命令(mng lng)，彈出，彈出“部件部件”對話框。對話框。第6頁/共

6、70頁第六頁，共71頁。 在在“部件部件”對話框的對話框的“控件控件”選項卡中，查找選項卡中，查找“Microsoft Common Dialog Control 6.0”并將其選中，然后單擊并將其選中，然后單擊“確定確定”按鈕。按鈕。 “通用對話框通用對話框”提供提供(tgng)的六種對話框可以通過設置它的的六種對話框可以通過設置它的Action屬性或調用對應的六種方法來打開。通用對話框的屬性、方屬性或調用對應的六種方法來打開。通用對話框的屬性、方法和含義見表法和含義見表6-1。第7頁/共70頁第七頁，共71頁。表表6-1 通用對話框的屬性通用對話框的屬性(shxng)、方法和作用、方法和作

7、用 Action屬性值屬性值方方 法法所顯示的對話框所顯示的對話框1ShowOpen“打開打開”對話框對話框2ShowSave“保存保存”對話框對話框3ShowColor“顏色顏色”對話框對話框4ShowFont“字體字體”對話框對話框5ShowPrinter“打印打印”對話框對話框6ShowHelpWindows幫助引擎幫助引擎第8頁/共70頁第八頁，共71頁。（2）“打開”對話框“打開”對話框的功能是指定文件的驅動器、目錄、文件擴展名和文件名。使用“打開”對話框時，通常首先對其進行屬性設置(shzh)，各屬性含義和設置(shzh)方法如下：對話框標題（DialogTitle屬性）：設置(s

8、hzh)對話框的標題，缺省值為“打開”。文件名稱（FileName屬性）：設置(shzh)“打開”對話框中“文件名”區中的初始文件名，同時也能返回用戶在對話框中選中的文件名。第9頁/共70頁第九頁，共71頁。初始化路徑（初始化路徑（InitDir屬性）：設置初始目屬性）：設置初始目錄，同時也能返回用戶選擇的目錄名。錄，同時也能返回用戶選擇的目錄名。過濾器（過濾器（Filter屬性）：設置對話框中的文屬性）：設置對話框中的文件件(wnjin)列表中顯示的文件列表中顯示的文件(wnjin)類型。設置過濾器屬性的格式為：類型。設置過濾器屬性的格式為：description1 | filter1 |

9、description2 | filter2其中，其中，description是在是在“打開打開”對話框中對話框中的文件的文件(wnjin)類型列表框中顯示的字符類型列表框中顯示的字符串。串。第10頁/共70頁第十頁，共71頁。 標志標志(biozh)（Flags屬性）：用來修改每個具體對話框的默認屬性）：用來修改每個具體對話框的默認操作。操作。 缺省擴展名（缺省擴展名（DefaultExt屬性）：設置在對話框中的缺省擴展名屬性）：設置在對話框中的缺省擴展名 文件最大長度（文件最大長度（MaxFileSize屬性）：設置文件名的最大字節數。屬性）：設置文件名的最大字節數。第11頁/共70頁第十

10、一頁，共71頁。 過濾器索引（過濾器索引（FilterIndex屬性）：用索引值來指定對話框使用哪屬性）：用索引值來指定對話框使用哪一個過濾器。一個過濾器。 取消引發錯誤（取消引發錯誤（CancelError屬性）：決定當用戶單擊對話框上屬性）：決定當用戶單擊對話框上的的“取消取消”按鈕時，是否會顯示一個報錯信息的消息框。按鈕時，是否會顯示一個報錯信息的消息框。 注：注：CancelError屬性的設置方法屬性的設置方法(fngf)對其他幾種對話框也同對其他幾種對話框也同樣適用。樣適用。第12頁/共70頁第十二頁，共71頁。（3）“保存保存”對話框對話框“保存保存”對話框也是在對話框也是在Wi

11、ndows應用程序中經常用到的。用應用程序中經常用到的。用ShowSave方法方法(fngf)顯示對話框，它同樣顯示對話框，它同樣能指定文件的驅動器、目錄、文件擴展名和文件名，其使用方法能指定文件的驅動器、目錄、文件擴展名和文件名，其使用方法(fngf)和和“打開打開”對話框的使用方法對話框的使用方法(fngf)基本相同。基本相同。第13頁/共70頁第十三頁，共71頁。（4）“顏色顏色”對話框對話框“顏色顏色”對話框用來在調色板中選擇對話框用來在調色板中選擇(xunz)顏色，或者是創建并選顏色，或者是創建并選擇擇(xunz)自定義的顏色。要使用自定義的顏色。要使用“顏色顏色”對話框，通常先設置

12、對話框，通常先設置“通用對話框通用對話框”控件中與顏色對話相關的屬性，然后使用控件中與顏色對話相關的屬性，然后使用ShowColor方法顯示對話框，使用方法顯示對話框，使用Color屬性獲得所選擇屬性獲得所選擇(xunz)的顏色。的顏色。第14頁/共70頁第十四頁，共71頁。在在“通用對話框通用對話框”控件中和顏色相關的屬性主要有控件中和顏色相關的屬性主要有“顏色顏色”（Color）和）和“標志標志”（Flags）兩個。）兩個。“顏色顏色”（Color）屬性用來設置用來設置）屬性用來設置用來設置“顏色顏色”對話框的初始顏色，同時對話框的初始顏色，同時(tngsh)它也能返回用戶在它也能返回用戶

13、在對話框中選擇的顏色。對話框中選擇的顏色。“標志標志”（Flags）屬性用來決定）屬性用來決定“顏色顏色”對話框的樣式。對話框的樣式。第15頁/共70頁第十五頁，共71頁。 （5）“字體字體”對話框對話框 “字體字體”對話框用來指定字體名稱、大小、顏色和樣式。要使用對話框用來指定字體名稱、大小、顏色和樣式。要使用“字字體體”對話框，通常對話框，通常(tngchng)先設置先設置“通用對話框通用對話框”控件中與字控件中與字體對話相關的屬性，然后使用體對話相關的屬性，然后使用ShowFont方法來顯示對話框。方法來顯示對話框。“ 和字體相關的屬性主要有和字體相關的屬性主要有Color、FontBo

14、ld、FontItalic、FontStrikethru、FontUnderline、FontName和和FontSize。第16頁/共70頁第十六頁，共71頁。在使用在使用(shyng)ShowFont方法之前，一定要把方法之前，一定要把Flags屬性設置為下屬性設置為下述常數之一：述常數之一：cdlCFScreenFonts或或1：屏幕字體：屏幕字體cdlCFPrinterFonts或或2：打印機字體：打印機字體cdlCFBoth或或3：既可以是屏幕字體又可以是打印機字體：既可以是屏幕字體又可以是打印機字體第17頁/共70頁第十七頁，共71頁。（6）“打印打印”對話框對話框“打印打印”對話

15、框可以指定打印輸出方式對話框可以指定打印輸出方式(fngsh)。可以指定被打印頁的范圍，打印質量，打印的份數等等。可以指定被打印頁的范圍，打印質量，打印的份數等等。這個對話框還包含當前打印機的信息，并允許配置或重新安裝缺省打印機。這個對話框還包含當前打印機的信息，并允許配置或重新安裝缺省打印機。第18頁/共70頁第十八頁，共71頁。“打印打印”對話框主要屬性及其具體含義如下：對話框主要屬性及其具體含義如下：復制（復制（Copies）：決定打印的份數。）：決定打印的份數。標志（標志（Flags）：如果把）：如果把Flags設置為設置為0，設置設置“打印打印”對話框中的對話框中的“打印范圍打印范圍

16、”。起始頁（起始頁（FromPage）和終止頁）和終止頁（ToPage）：用來設置從第幾頁打印到第）：用來設置從第幾頁打印到第幾頁。幾頁。最小（最小（Min）和最大（）和最大（Max）：分別用于）：分別用于設置打印的最小和最大頁碼數。設置打印的最小和最大頁碼數。方向（方向（Orientation）：用來設定）：用來設定(sh dn)打印的方向（打印的方向（1表示縱向，表示縱向，2表示橫表示橫向）。向）。第19頁/共70頁第十九頁，共71頁。（7）“幫助幫助”對話框對話框“幫助幫助”對話框可以用來制作應用程序的聯機幫助。對話框可以用來制作應用程序的聯機幫助。“幫助幫助”對話框主對話框主要要(zh

17、yo)屬性主要屬性主要(zhyo)有：有：幫助上下文（幫助上下文（HelpContext）：）： 返回或設置幫助文件中的主題的上返回或設置幫助文件中的主題的上下文下文ID，指定要顯示的幫助主題。，指定要顯示的幫助主題。幫助命令（幫助命令（HelpCommand）：返回或設置聯機幫助的類型。）：返回或設置聯機幫助的類型。第20頁/共70頁第二十頁，共71頁。幫助鍵（幫助鍵（HelpKey）：返回）：返回(fnhu)或設置幫助主題的關鍵字。或設置幫助主題的關鍵字。幫助文件（幫助文件（HelpFile）：返回）：返回(fnhu)或設置幫助文件的路徑及其文件名稱。或設置幫助文件的路徑及其文件名稱。第2

18、1頁/共70頁第二十一頁，共71頁。3、自定義對話框、自定義對話框自定義對話框實際是一個用戶自行設計的，自定義對話框實際是一個用戶自行設計的，用來完成用戶和系統對話的窗體。用來完成用戶和系統對話的窗體。創建自定義對話框首先要創建一個窗體，然創建自定義對話框首先要創建一個窗體，然后在窗體上添加必要的控件，完成對話框后在窗體上添加必要的控件，完成對話框的各種的各種( zhn)功能。對話框的功能。對話框的BorderStyle屬性通常設置為屬性通常設置為3FixedDialog。顯示對話框使用顯示對話框使用Show方法。對話框分成兩方法。對話框分成兩種類型，即模式的和無模式的。種類型，即模式的和無模

19、式的。第22頁/共70頁第二十二頁，共71頁。模式對話框是在繼續操作應用程序的其他部模式對話框是在繼續操作應用程序的其他部分之前必須被關閉的。而無模式對話框允許分之前必須被關閉的。而無模式對話框允許在對話框與其他窗體之間轉移焦點在對話框與其他窗體之間轉移焦點(jiodin)而不必關閉對話框。而不必關閉對話框。Show方法的兩個可選參數分別是方法的兩個可選參數分別是style和和ownerform。如果要顯示的對話框是模式的，。如果要顯示的對話框是模式的，則則Style取值為取值為1或或vbModoal；如果要顯示；如果要顯示的對話框是無模式的，則的對話框是無模式的，則Style取值為取值為0或

20、或vbModoaless。Ownerform參數決定該參數決定該對話框是作為哪一個窗體的子窗體的。對話框是作為哪一個窗體的子窗體的。第23頁/共70頁第二十三頁，共71頁。第第6章章 對話框的設計對話框的設計(shj) 6.1 知識要點知識要點 6.2 習題與解答習題與解答(jid) 6.3 實訓指導實訓指導 6.4 測驗題測驗題第24頁/共70頁第二十四頁，共71頁。6.2習題習題(xt)與解答與解答 1、簡述用、簡述用Visual Basic創建對話框的幾種方式。創建對話框的幾種方式。 答案：答案： 用用Visual Basic創建對話框有使用創建對話框有使用(shyng)函數調用預定義對

21、話框使用函數調用預定義對話框使用(shyng)通用對通用對話框自定義對話框三種常用方法。話框自定義對話框三種常用方法。 2、試寫出生成以下三個對話框所對應的代碼。、試寫出生成以下三個對話框所對應的代碼。第25頁/共70頁第二十五頁，共71頁。圖圖 6 -2第26頁/共70頁第二十六頁，共71頁。圖圖6-1第27頁/共70頁第二十七頁，共71頁。圖圖 6 -3第28頁/共70頁第二十八頁，共71頁。答案：（1）a = MsgBox(程序(chngx)出現嚴重錯誤！, vbInformation + _vbAbortRetryIgnore, 警告)或a = MsgBox(程序(chngx)出現嚴重

22、錯誤！, 66, 警告)第29頁/共70頁第二十九頁，共71頁。（2）b = MsgBox(你好，歡迎使用你好，歡迎使用(shyng)Visual Basic！ & Chr(13) & Chr(10) & _想要退出嗎？想要退出嗎？, vbQuestion + vbYesNoCancel + vbDefaultButton2, 提示提示)或或b = MsgBox(你好，歡迎使用你好，歡迎使用(shyng)Visual Basic！ & Chr(13) & Chr(10) & _想要退出嗎？想要退出嗎？, 291, 提示提示)第30頁/共70頁第三

23、十頁，共71頁。（3）c = InputBox(請輸入你所在城市的電話區號號碼：, 輸入, 0419)3、簡述“通用對話框”控件的使用方法，使用“通用對話框”控件可以顯示哪些(nxi)對話框，它們分別通過什么方法來實現。第31頁/共70頁第三十一頁，共71頁。答案：要使用答案：要使用“通用對話框（通用對話框（Common Dialog）”，必須先把該控，必須先把該控件添加到工具箱中。具體方法為：從件添加到工具箱中。具體方法為：從“工程工程”菜單中選菜單中選“部件部件”命命令；在令；在“部件部件”對話框的對話框的“控件控件”選項卡中，查找選項卡中，查找“Microsoft Common Dial

24、og Control 6.0”并將其選中，然后并將其選中，然后(rnhu)單單擊擊“確定確定”按鈕。然后按鈕。然后(rnhu)就可以象使用其他控件一樣式樣該就可以象使用其他控件一樣式樣該控件了。控件了。第32頁/共70頁第三十二頁，共71頁。 使用“通用對話框”控件可以顯示“打開”對話框、“保存”對話框、“顏色”對話框、“字體(zt)”對話框、“打印”對話框和Windows幫助引擎對話框。它們分別通過ShowOpen、 ShowSave、 ShowColor、 ShowFont、 ShowPrinter 和ShowHelp方法來實現。第33頁/共70頁第三十三頁，共71頁。 4、模式對話框和無

25、模式對話框的區別是什么？、模式對話框和無模式對話框的區別是什么？ 答案：模式對話框是在繼續操作應用程序的其他部分之前必須被關閉的。而無模式對話框允許在對話框與答案：模式對話框是在繼續操作應用程序的其他部分之前必須被關閉的。而無模式對話框允許在對話框與其他窗體之間轉移焦點而不必關閉對話框。當對話框正在工作時，可以其他窗體之間轉移焦點而不必關閉對話框。當對話框正在工作時，可以(ky)在當前應用程序的其他地方在當前應用程序的其他地方繼續工作。繼續工作。第34頁/共70頁第三十四頁，共71頁。 5、為什么要使用、為什么要使用(shyng)自定義對話框？自定義對話框？ 答案：自定義對話框與使用答案：自定

26、義對話框與使用(shyng)函數或通過函數或通過“通用對話框通用對話框”控件創建的對話框相比，內容和功能都控件創建的對話框相比，內容和功能都可以有更多的發揮余地。使用可以有更多的發揮余地。使用(shyng)函數創建的對話框一般都很簡單且功能單一，通常只是用來做簡函數創建的對話框一般都很簡單且功能單一，通常只是用來做簡單的輸入和提示。單的輸入和提示。 Continue第35頁/共70頁第三十五頁，共71頁。 通過“通用(tngyng)對話框”控件只能創建的標準的對話框。而自定義對話框則相對靈活且功能強大，通常會滿足用戶為應用程序的繼續運行而提供數據的需要。第36頁/共70頁第三十六頁，共71頁。

27、第第6章章 對話框的設計對話框的設計(shj) 6.1 知識要點知識要點 6.2 習題習題(xt)與解答與解答 6.3 實訓指導實訓指導 6.4 測驗題測驗題第37頁/共70頁第三十七頁，共71頁。6.3實訓指導實訓指導(zhdo)6.3.1技能訓練目的技能訓練目的 掌握掌握InputBox函數的使用方法函數的使用方法 掌握掌握MsgBox函數的使用方法函數的使用方法 掌握掌握“通用通用(tngyng)對話框對話框”的使用方法的使用方法 掌握掌握“自定義對話框自定義對話框”的創建和使用方法的創建和使用方法第38頁/共70頁第三十八頁，共71頁。 6.3.2技能訓練內容技能訓練內容(nirng)

28、 【實訓【實訓6.1】設計程序，窗體見】設計程序，窗體見 圖圖6-4。單擊。單擊“輸入輸入”按鈕，則通過輸入對話框分別輸入十個整數按鈕，則通過輸入對話框分別輸入十個整數并顯示在并顯示在“輸入數據輸入數據”后面的文本框中。單擊后面的文本框中。單擊“排序排序”按鈕，十個整按鈕，十個整數從小到大排序后顯示在數從小到大排序后顯示在“排序后排序后”后面的文本框中。單擊后面的文本框中。單擊“清除清除”按鈕，兩個文本框全部清控。單擊按鈕，兩個文本框全部清控。單擊“退出退出”，程序結束。，程序結束。第39頁/共70頁第三十九頁，共71頁。圖圖6-4第40頁/共70頁第四十頁，共71頁。提示：提示：在窗體上添加

29、兩個標簽控件（在窗體上添加兩個標簽控件（Label1和和Label2），它們的），它們的Caption屬性分別是屬性分別是“輸入數據：輸入數據：”和和“排序后：排序后：”；再添加兩；再添加兩個標簽控件（個標簽控件（Label3和和Label4），它們的），它們的Caption屬性均為空，屬性均為空，BorderStyle屬性均屬性均設為設為1；添加四個命令；添加四個命令(mng lng)按鈕按鈕（Command1 、Command2、 Command3和和Command4），它們的），它們的Caption屬性分別為屬性分別為“輸入輸入”、“排序排序”、“清除清除”和和“退出退出”。第41頁/共

30、70頁第四十一頁，共71頁。參考參考(cnko)代碼：代碼：Option ExplicitDim a(9) As IntegerPrivate Sub Command1_Click() Dim i As Integer, s As String For i = 0 To 9 s = InputBox(請輸入一個整數請輸入一個整數, 輸入輸入) a(i) = Val(s) Label3.Caption = Label3.Caption + + s Next iEnd SubPrivate Sub Command2_Click() Dim i As Integer, j As Integer, t

31、 As Integer第42頁/共70頁第四十二頁，共71頁。 For i = 0 To 8 For j = i + 1 To 9 If a(j) = 1 And Val(s) = 100 ansinf = MsgBox(輸入數據不合法輸入數據不合法(hf)，請核對，請核對后重新輸入！后重新輸入！, 49, 錯誤提示錯誤提示) If ansinf = vbOK Then s = InputBox(請輸入一個整數請輸入一個整數, 輸入輸入) Else End End If Loop a(i) = Val(s) Label3.Caption = Label3.Caption + + s Next

32、i End Sub第47頁/共70頁第四十七頁，共71頁。 【實訓【實訓6.3】設計一個驗證密碼的程序（如圖】設計一個驗證密碼的程序（如圖6-6所示）。假定密碼所示）。假定密碼為為“abc”，用戶輸入是否正確請用消息框來給予提示（如圖，用戶輸入是否正確請用消息框來給予提示（如圖6-7所所示）。如果密碼輸入錯誤，提示是否重新輸入（如圖示）。如果密碼輸入錯誤，提示是否重新輸入（如圖6-8所示），但所示），但只能最多進行三次重新輸入，一旦密碼輸入次數超過只能最多進行三次重新輸入，一旦密碼輸入次數超過(chogu)三三次，程序給出警告提示（如圖次，程序給出警告提示（如圖6-9所示），并結束。所示），并

33、結束。第48頁/共70頁第四十八頁，共71頁。圖圖6-6圖圖6-7第49頁/共70頁第四十九頁，共71頁。圖圖6-8圖圖 6 -9第50頁/共70頁第五十頁，共71頁。參考代碼：參考代碼：Option ExplicitPrivate Sub Command1_Click() Dim ansinf As Integer Static i As Integer If Text1.Text = abc Then Form1.Hide ansinf = MsgBox(密碼正確，密碼正確，歡迎進入本程序！歡迎進入本程序！, 64, 密碼正密碼正確確) Else ansinf = MsgBox(密碼錯密碼

34、錯誤，是否重新輸入誤，是否重新輸入(shr)？, 36, 錯誤提示錯誤提示) End If If ansinf = 6 Then Text1.Text = Text1.SetFocus ElseIf ansinf = 7 Then End End If第51頁/共70頁第五十一頁，共71頁。 i = i + 1 If i = 3 Then ansinf = MsgBox(你是非法(fif)用戶，程序即將退出！, 16, 嚴重錯誤) End End If End Sub Private Sub Command2_Click() Text1.Text = End Sub Private Sub C

35、ommand3_Click() End End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call Command1_Click End If End Sub第52頁/共70頁第五十二頁，共71頁。【實訓【實訓6.4】設計程序。實現簡單文本編輯】設計程序。實現簡單文本編輯器具有的器具有的“打開打開”、“保存保存”、“顏色設顏色設置置”、“字體設置字體設置”和和“打印打印”等功能。等功能。窗體如圖窗體如圖6-10所示。所示。提示：窗體設計如圖所示，其中包含一個通提示：窗體設計如圖所示，其中包

36、含一個通用用(tngyng)對話框對話框（CommonDialog1），一個文本框），一個文本框（Text1）和六個命令按鈕）和六個命令按鈕（Command1 Command6）。）。由于本實訓內容與教材由于本實訓內容與教材6.2節例題相似，此節例題相似，此處僅提供處僅提供“打開打開”功能的實現代碼。功能的實現代碼。第53頁/共70頁第五十三頁，共71頁。圖圖6-10第54頁/共70頁第五十四頁，共71頁。參考參考(cnko)代碼：代碼：Private Sub Form_Load()CommonDialog1.CancelError = FalseEnd SubPrivate Sub Comm

37、and1_Click()CommonDialog1.ShowOpenText1.Text = Open CommonDialog1.FileName For Input As #1Do While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.Text + inputdata + Chr(13) + Chr(10)LoopClose #1End Sub第55頁/共70頁第五十五頁，共71頁。第第6章章 對話框的設計對話框的設計(shj) 6.1 知識要點知識要點 6.2 習題習題(xt)與解答與解答 6.3 實訓指導實訓指導 6.4

38、測驗題測驗題第56頁/共70頁第五十六頁，共71頁。6.4測驗題測驗題6.4.1選擇題選擇題1Commondialog1為窗體上一通用對話框，與為窗體上一通用對話框，與Commondialog1.Action=3作用作用(zuyng)相同的語句相同的語句是是 。 ACommondialog1.ShowColor BCommondialog1.ShowOpen CCommondialog1.ShowSave DCommondialog1.ShowPrinter答案：答案：A第57頁/共70頁第五十七頁，共71頁。2執行下列語句 a$=inputbox(“請輸入一個整數(zhngsh)”,”輸入整

39、數(zhngsh)”,”123”)單擊確定按鈕后，a$的值為 。 A字符串“輸入整數(zhngsh)” B整數(zhngsh)123 C空字符串 D字符串“123”答案：D第58頁/共70頁第五十八頁，共71頁。 3通過通用對話框能打開通過通用對話框能打開“字體對話框字體對話框”的方法的方法(fngf)是是 。 ACommondialog1.ShowColor BCommondialog1.ShowFont CCommondialog1.ShowSave DCommondialog1.ShowOpen 答案：答案：B 4下列代碼中錯誤的是下列代碼中錯誤的是 。 Aa=MsgBox () BMs

40、gBox 信息提示信息提示, vbInformation + vbOKCancel Ca=MsgBox 信息提示信息提示, vbInformation + vbOKCancel DMsgBox “ 答案：答案：C第59頁/共70頁第五十九頁，共71頁。 5下列為下列為“打開打開”對話框設置對話框設置(shzh)過濾過濾器屬性的語句中正確的是器屬性的語句中正確的是 。 ACommonDialog1.Filter = 所有文件所有文件|(*.*)|文本文件文本文件|(*.txt) BCommonDialog1.Filter = 所有文件所有文件| (*.*)|文本文件文本文件| (*.txt) C

41、CommonDialog1.Filter = 所有文件所有文件|*.*|文本文件文本文件|*.txt DCommonDialog1.Filter = 所有文件所有文件|*.*|文本文件文本文件|*.txt“ 答案：答案：C第60頁/共70頁第六十頁，共71頁。6.4.2填空題填空題1在窗體上有一命令按鈕在窗體上有一命令按鈕Button1，其單擊事件代碼如，其單擊事件代碼如下下(rxi)： Private Sub Command1_Click() Do While z 8 x = InputBox(x=) x = Val(x) y = InputBox(y=) y = Val(y) z = In

42、putBox(z=) z = Val(z) x = x + y + z Loop Print xEnd Sub程序運行后，若依次輸入程序運行后，若依次輸入1，2，3，6，7，8后，輸出的后，輸出的結果是結果是 （1） 。答案：答案：21第61頁/共70頁第六十一頁，共71頁。 2在使用在使用ShowFont方法之前，一定要先設置方法之前，一定要先設置 （2） 屬性。屬性。 答案：答案：flags屬性屬性 3在用在用Show方法顯示方法顯示(xinsh)自定義對話框時，分別用自定義對話框時，分別用Show方方法后帶法后帶 （3） 和和 （4） 參數來指定窗體為模式對話框或非模式對參數來指定窗體為

43、模式對話框或非模式對話框。話框。 答案：（答案：（3）VbModal或或1 （4）VbModaless或或0第62頁/共70頁第六十二頁，共71頁。6.4.3編程題編程題編寫加法練習測試程序。窗體如圖編寫加法練習測試程序。窗體如圖6-11所所示，程序運行自動產生兩個示，程序運行自動產生兩個100以內的隨機整以內的隨機整數分別填入兩個標簽中，單擊數分別填入兩個標簽中，單擊“計算計算”按鈕，按鈕，出現如圖出現如圖6-12所示的對話框，在對話框中輸所示的對話框，在對話框中輸入運算結果。確認輸入數據后，相繼有提示入運算結果。確認輸入數據后，相繼有提示(tsh)計算正確或錯誤，計算正確或錯誤，“是否繼續計算？是否繼續計算？”的對話框出現，分別如圖的對話框出現，分別如圖6-13、6-14和和6-15，如果選擇繼續，程序繼續隨機出題，選，如果選擇繼續，程序繼續隨機出題，選擇擇“否否”，則程序給出你答題情況統計并給，則程序給出你答題情況統計并給出相應的分數，如圖出相應