vb編程之對話框設(shè)計1

1、第6章 對話框的設(shè)計,,第6章 對話框的設(shè)計,6.1 知識要點(diǎn)6.2 習(xí)題與解答6.3 實(shí)訓(xùn)指導(dǎo)6.4 測驗題,6.1知識要點(diǎn),1、預(yù)定義對話框 預(yù)定義對話框是系統(tǒng)已經(jīng)設(shè)計好的對話框，它們可以通過程序執(zhí)行具體的函數(shù)來被顯示。在Visual Basic 6.0中，預(yù)定義對話框包含輸入對話框和消息框。,,（1）輸入對話框創(chuàng)建輸入對話框的標(biāo)準(zhǔn)函數(shù)是InputBox函數(shù)，該函數(shù)顯示一個接收用戶輸入的對話框，對話

2、框中顯示提示文本，等待用戶輸入或按下按鈕，并返回文本框的內(nèi)容。InputBox函數(shù)的語法格式為：InputBox (prompt[,title][,default][,xpos][,ypos][,helpfile,context]),,其中：Prompt為必需的字符串表達(dá)式參數(shù)，提供顯示在對話框中的提示文本。Title為可選字符串表達(dá)式參數(shù)，提供標(biāo)題顯示在對話框的標(biāo)題欄中。Default為可選字符串表達(dá)式參數(shù)，提供輸入框的缺省

3、輸入文本。Xpos和Ypos都是可選的數(shù)值表達(dá)式，成對出現(xiàn)，指出對話框左上角的屏幕坐標(biāo)。InputBox函數(shù)返回文本框中輸入的內(nèi)容，為字符串類型。,,（2）消息框創(chuàng)建消息框的標(biāo)準(zhǔn)函數(shù)是MsgBox函數(shù)，該函數(shù)在對話框中顯示消息，等待用戶按下按鈕，并返回一個整數(shù)來表示用戶按下了哪一個按鈕。MsgBox函數(shù)的語法格式為：MsgtBox(prompt[,buttons][,title][,helpfile,context])其

4、中：Prompt是必要的字符串表達(dá)式參數(shù)，作為顯示在對話框中的消息。,,Buttons是可選參數(shù)，該數(shù)值表達(dá)式是分別代表顯示按鈕形式、使用圖標(biāo)樣式、缺省按鈕樣式和對話框模式的四個數(shù)值的和。Title是可選參數(shù)。該字符串表達(dá)式作為標(biāo)題顯示在消息框的標(biāo)題欄中。MsgBox函數(shù)返回值為1~6之間的一個整數(shù)，表示用戶按下了“確定”、“取消”、“終止”、“重試”、“忽略”或“是”按鈕。,,2、通用對話框（1）通用對話框的使用 把“通用對

5、話框（Common Dialog）”控件添加到工具箱中的方法為：①從“工程”菜單中選“部件”命令，或用鼠標(biāo)右鍵單擊工具箱，選其中“部件”命令，彈出“部件”對話框。,,②在“部件”對話框的“控件”選項卡中，查找“Microsoft Common Dialog Control 6.0”并將其選中，然后單擊“確定”按鈕。 “通用對話框”提供的六種對話框可以通過設(shè)置它的Action屬性或調(diào)用對應(yīng)的六種方法來打開。通用對話框的屬性、方法和含

6、義見表6-1。,表6-1 通用對話框的屬性、方法和作用,,（2）“打開”對話框“打開”對話框的功能是指定文件的驅(qū)動器、目錄、文件擴(kuò)展名和文件名。使用“打開”對話框時，通常首先對其進(jìn)行屬性設(shè)置，各屬性含義和設(shè)置方法如下：①對話框標(biāo)題（DialogTitle屬性）：設(shè)置對話框的標(biāo)題，缺省值為“打開”。②文件名稱（FileName屬性）：設(shè)置“打開”對話框中“文件名”區(qū)中的初始文件名，同時也能返回用戶在對話框中選中的

7、文件名。,,③初始化路徑（InitDir屬性）：設(shè)置初始目錄，同時也能返回用戶選擇的目錄名。④過濾器（Filter屬性）：設(shè)置對話框中的文件列表中顯示的文件類型。設(shè)置過濾器屬性的格式為：description1 | filter1 | description2 | filter2…其中，description是在“打開”對話框中的文件類型列表框中顯示的字符串。,,⑤標(biāo)志（Flags屬性）：用來修改每個具體對話框的默認(rèn)操作。

8、⑥缺省擴(kuò)展名（DefaultExt屬性）：設(shè)置在對話框中的缺省擴(kuò)展名⑦文件最大長度（MaxFileSize屬性）：設(shè)置文件名的最大字節(jié)數(shù)。,,⑧過濾器索引（FilterIndex屬性）：用索引值來指定對話框使用哪一個過濾器。⑨取消引發(fā)錯誤（CancelError屬性）：決定當(dāng)用戶單擊對話框上的“取消”按鈕時，是否會顯示一個報錯信息的消息框。注：CancelError屬性的設(shè)置方法對其他幾種對話框也同樣適用。,,（3）“保存”對話

9、框“保存”對話框也是在Windows應(yīng)用程序中經(jīng)常用到的。用ShowSave方法顯示對話框，它同樣能指定文件的驅(qū)動器、目錄、文件擴(kuò)展名和文件名，其使用方法和“打開”對話框的使用方法基本相同。,,（4）“顏色”對話框“顏色”對話框用來在調(diào)色板中選擇顏色，或者是創(chuàng)建并選擇自定義的顏色。要使用“顏色”對話框，通常先設(shè)置“通用對話框”控件中與顏色對話相關(guān)的屬性，然后使用ShowColor方法顯示對話框，使用Color屬性獲得所選擇的顏色。,

10、,在“通用對話框”控件中和顏色相關(guān)的屬性主要有“顏色”（Color）和“標(biāo)志”（Flags）兩個?！邦伾保–olor）屬性用來設(shè)置用來設(shè)置“顏色”對話框的初始顏色，同時它也能返回用戶在對話框中選擇的顏色。“標(biāo)志”（Flags）屬性用來決定“顏色”對話框的樣式。,,（5）“字體”對話框“字體”對話框用來指定字體名稱、大小、顏色和樣式。要使用“字體”對話框，通常先設(shè)置“通用對話框”控件中與字體對話相關(guān)的屬性，然后使用ShowFont

11、方法來顯示對話框?！昂妥煮w相關(guān)的屬性主要有Color、FontBold、FontItalic、FontStrikethru、FontUnderline、FontName和FontSize。,,在使用ShowFont方法之前，一定要把Flags屬性設(shè)置為下述常數(shù)之一：cdlCFScreenFonts或1：屏幕字體cdlCFPrinterFonts或2：打印機(jī)字體cdlCFBoth或3：既可以是屏幕字體又可以是打印機(jī)字體,,（6）“

12、打印”對話框“打印”對話框可以指定打印輸出方式?？梢灾付ū淮蛴№摰姆秶?，打印質(zhì)量，打印的份數(shù)等等。這個對話框還包含當(dāng)前打印機(jī)的信息，并允許配置或重新安裝缺省打印機(jī)。,,“打印”對話框主要屬性及其具體含義如下：①復(fù)制（Copies）：決定打印的份數(shù)。②標(biāo)志（Flags）：如果把Flags設(shè)置為0，設(shè)置“打印”對話框中的“打印范圍”。③起始頁（FromPage）和終止頁（ToPage）：用來設(shè)置從第幾頁打印到第幾頁。④最?。∕in

13、）和最大（Max）：分別用于設(shè)置打印的最小和最大頁碼數(shù)。⑤方向（Orientation）：用來設(shè)定打印的方向（1表示縱向，2表示橫向）。,,（7）“幫助”對話框“幫助”對話框可以用來制作應(yīng)用程序的聯(lián)機(jī)幫助?！皫椭睂υ捒蛑饕獙傩灾饕校孩賻椭舷挛模℉elpContext）： 返回或設(shè)置幫助文件中的主題的上下文ID，指定要顯示的幫助主題。②幫助命令（HelpCommand）：返回或設(shè)置聯(lián)機(jī)幫助的類型。,,③幫助鍵（HelpKey

14、）：返回或設(shè)置幫助主題的關(guān)鍵字。④幫助文件（HelpFile）：返回或設(shè)置幫助文件的路徑及其文件名稱。,,3、自定義對話框自定義對話框?qū)嶋H是一個用戶自行設(shè)計的，用來完成用戶和系統(tǒng)對話的窗體。創(chuàng)建自定義對話框首先要創(chuàng)建一個窗體，然后在窗體上添加必要的控件，完成對話框的各種功能。對話框的BorderStyle屬性通常設(shè)置為3—FixedDialog。顯示對話框使用Show方法。對話框分成兩種類型，即模式的和無模式的。,模式對話框是

15、在繼續(xù)操作應(yīng)用程序的其他部分之前必須被關(guān)閉的。而無模式對話框允許在對話框與其他窗體之間轉(zhuǎn)移焦點(diǎn)而不必關(guān)閉對話框。Show方法的兩個可選參數(shù)分別是style和ownerform。如果要顯示的對話框是模式的，則Style取值為1或vbModoal；如果要顯示的對話框是無模式的，則Style取值為0或vbModoaless。Ownerform參數(shù)決定該對話框是作為哪一個窗體的子窗體的。,第6章 對話框的設(shè)計,6.1 知識要點(diǎn)6.2

16、 習(xí)題與解答6.3 實(shí)訓(xùn)指導(dǎo)6.4 測驗題,6.2習(xí)題與解答,1、簡述用Visual Basic創(chuàng)建對話框的幾種方式。答案： 用Visual Basic創(chuàng)建對話框有①使用函數(shù)調(diào)用預(yù)定義對話框②使用通用對話框③自定義對話框三種常用方法。2、試寫出生成以下三個對話框所對應(yīng)的代碼。,,,圖6-2,,,圖6-1,,,圖6-3,,答案：（1）a = MsgBox("程序出現(xiàn)嚴(yán)重錯誤！", vbInforma

17、tion + _vbAbortRetryIgnore, "警告")或a = MsgBox("程序出現(xiàn)嚴(yán)重錯誤！", 66, "警告"),,（2）b = MsgBox("你好，歡迎使用Visual Basic！" & Chr(13) & Chr(10) & _"想要退出嗎？", vbQuestion + vbY

18、esNoCancel + vbDefaultButton2, "提示")或b = MsgBox("你好，歡迎使用Visual Basic！" & Chr(13) & Chr(10) & _"想要退出嗎？", 291, "提示"),,（3）c = InputBox("請輸入你所在城市的電話區(qū)號號碼：", &quo

19、t;輸入", "0419")3、簡述“通用對話框”控件的使用方法，使用“通用對話框”控件可以顯示哪些對話框，它們分別通過什么方法來實(shí)現(xiàn)。,,答案：要使用“通用對話框（Common Dialog）”，必須先把該控件添加到工具箱中。具體方法為：①從“工程”菜單中選“部件”命令；②在“部件”對話框的“控件”選項卡中，查找“Microsoft Common Dialog Control 6.0”并將其選中，然后

20、單擊“確定”按鈕。然后就可以象使用其他控件一樣式樣該控件了。,,使用“通用對話框”控件可以顯示“打開”對話框、“保存”對話框、“顏色”對話框、“字體”對話框、“打印”對話框和Windows幫助引擎對話框。它們分別通過ShowOpen、 ShowSave、 ShowColor、 ShowFont、 ShowPrinter 和ShowHelp方法來實(shí)現(xiàn)。,,4、模式對話框和無模式對話框的區(qū)別是什么？ 答案：模式對話框是在繼續(xù)操作應(yīng)用程序的

21、其他部分之前必須被關(guān)閉的。而無模式對話框允許在對話框與其他窗體之間轉(zhuǎn)移焦點(diǎn)而不必關(guān)閉對話框。當(dāng)對話框正在工作時，可以在當(dāng)前應(yīng)用程序的其他地方繼續(xù)工作。,,5、為什么要使用自定義對話框？答案：自定義對話框與使用函數(shù)或通過“通用對話框”控件創(chuàng)建的對話框相比，內(nèi)容和功能都可以有更多的發(fā)揮余地。使用函數(shù)創(chuàng)建的對話框一般都很簡單且功能單一，通常只是用來做簡單的輸入和提示。

22、 Continue…,,通過“通用對話框”控件只能創(chuàng)建的標(biāo)準(zhǔn)的對話框。而自定義對話框則相對靈活且功能強(qiáng)大，通常會滿足用戶為應(yīng)用程序的繼續(xù)運(yùn)行而提供數(shù)據(jù)的需要。,第6章 對話框的設(shè)計,6.1 知識要點(diǎn)6.2 習(xí)題與解答6.3 實(shí)訓(xùn)指導(dǎo)6.4 測驗題,6.3實(shí)訓(xùn)指導(dǎo),6.3.1技能訓(xùn)練目的☆ 掌握InputBox函數(shù)的使用方法☆ 掌握MsgBox函

23、數(shù)的使用方法☆ 掌握“通用對話框”的使用方法☆ 掌握“自定義對話框”的創(chuàng)建和使用方法,,6.3.2技能訓(xùn)練內(nèi)容【實(shí)訓(xùn)6.1】設(shè)計程序，窗體見 圖6-4。單擊“輸入”按鈕，則通過輸入對話框分別輸入十個整數(shù)并顯示在“輸入數(shù)據(jù)”后面的文本框中。單擊“排序”按鈕，十個整數(shù)從小到大排序后顯示在“排序后”后面的文本框中。單擊“清除”按鈕，兩個文本框全部清控。單擊“退出”，程序結(jié)束。,,,圖6-4,,提示：在窗體上添加兩個標(biāo)簽控件（L

24、abel1和Label2），它們的Caption屬性分別是“輸入數(shù)據(jù)：”和“排序后：”；再添加兩個標(biāo)簽控件（Label3和Label4），它們的Caption屬性均為空，BorderStyle屬性均設(shè)為1；添加四個命令按鈕（Command1 、Command2、 Command3和Command4），它們的Caption屬性分別為“輸入”、“排序”、“清除”和“退出”。,,參考代碼：Option ExplicitDim a(9) A

25、s IntegerPrivate Sub Command1_Click() Dim i As Integer, s As String For i = 0 To 9 s = InputBox("請輸入一個整數(shù)", "輸入") a(i) = Val(s) Label3.Caption = Label3.Caption + " " + s N

26、ext iEnd SubPrivate Sub Command2_Click() Dim i As Integer, j As Integer, t As Integer,,For i = 0 To 8 For j = i + 1 To 9 If a(j) < a(i) Then t = a(i) a(i) = a(j) a(j) = t En

27、d If Next j Label4.Caption = Label4.Caption + " " + Str(a(i)) Next i Label4.Caption = Label4.Caption + " " + Str(a(i))End SubPrivate Sub Command3_Click() Label3.Caption = ""

28、 Label4.Caption = ""End SubPrivate Sub Command4_Click() EndEnd Sub,,【實(shí)訓(xùn)6.2】在實(shí)訓(xùn)6.1中，如果程序只要求輸入1~100的整數(shù)，其他輸入均看作錯誤。請實(shí)現(xiàn)輸入異常時用消息框給出提示。如圖6-5所示。,,,圖6-5,,提示：在“輸入”按鈕的的單擊事件代碼中加入數(shù)據(jù)合法性判斷。參考代碼：,,Private Sub Command1_

29、Click() Dim i As Integer, s As String, ansinf As Integer For i = 0 To 9 s = InputBox("請輸入一個整數(shù)", "輸入") Do Until Val(s) = Int(Val(s)) And Val(s) >= 1 And Val(s) <= 100 ansinf = M

30、sgBox("輸入數(shù)據(jù)不合法，請核對后重新輸入！", 49, "錯誤提示") If ansinf = vbOK Then s = InputBox("請輸入一個整數(shù)", "輸入") Else End End If Loop a(i) = Val(s) Label3.C

31、aption = Label3.Caption + " " + s Next iEnd Sub,,【實(shí)訓(xùn)6.3】設(shè)計一個驗證密碼的程序（如圖6-6所示）。假定密碼為“abc”，用戶輸入是否正確請用消息框來給予提示（如圖6-7所示）。如果密碼輸入錯誤，提示是否重新輸入（如圖6-8所示），但只能最多進(jìn)行三次重新輸入，一旦密碼輸入次數(shù)超過三次，程序給出警告提示（如圖6-9所示），并結(jié)束。,,,圖6-6,圖6-7,,

32、,圖6-8,圖6-9,,參考代碼：Option ExplicitPrivate Sub Command1_Click() Dim ansinf As Integer Static i As Integer If Text1.Text = "abc" Then Form1.Hide ansinf = MsgBox("密碼正確，歡迎進(jìn)入本程序！", 64, &quo

33、t;密碼正確") Else ansinf = MsgBox("密碼錯誤，是否重新輸入？", 36, "錯誤提示") End If If ansinf = 6 Then Text1.Text = "" Text1.SetFocus ElseIf ansinf = 7 Then End End If,,i =

34、i + 1 If i = 3 Then ansinf = MsgBox("你是非法用戶，程序即將退出！", 16, "嚴(yán)重錯誤") End End IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""End SubPrivate Sub Command3_Click()E

35、ndEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call Command1_Click End IfEnd Sub,,【實(shí)訓(xùn)6.4】設(shè)計程序。實(shí)現(xiàn)簡單文本編輯器具有的“打開”、“保存”、“顏色設(shè)置”、“字體設(shè)置”和“打印”等功能。窗體如圖6-10所示。提示：窗體設(shè)計如圖所示，其中包含一個通用對話框（Co

36、mmonDialog1），一個文本框（Text1）和六個命令按鈕（Command1~ Command6）。由于本實(shí)訓(xùn)內(nèi)容與教材6.2節(jié)例題相似，此處僅提供“打開”功能的實(shí)現(xiàn)代碼。,,,圖6-10,,參考代碼：Private Sub Form_Load()CommonDialog1.CancelError = FalseEnd SubPrivate Sub Command1_Click()CommonDialog1.Show

37、OpenText1.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,第6章 對話框的設(shè)計,6.1 知識要點(diǎn)

38、6.2 習(xí)題與解答6.3 實(shí)訓(xùn)指導(dǎo)6.4 測驗題,6.4測驗題,6.4.1選擇題1．Commondialog1為窗體上一通用對話框，與Commondialog1.Action=3作用相同的語句是 。 A．Commondialog1.ShowColor B．Commondialog1.ShowOpen C．Commondialog1.ShowSave D．Commondial

39、og1.ShowPrinter答案：A,,2．執(zhí)行下列語句 a$=inputbox(“請輸入一個整數(shù)”,”輸入整數(shù)”,”123”)單擊確定按鈕后，a$的值為 。 A．字符串“輸入整數(shù)” B．整數(shù)123 C．空字符串 D．字符串“123”答案：D,,3．通過通用對話框能打開“字體對話框”的方法是 。 A．Common

40、dialog1.ShowColor B．Commondialog1.ShowFont C．Commondialog1.ShowSave D．Commondialog1.ShowOpen答案：B4．下列代碼中錯誤的是 。A．a(chǎn)=MsgBox ("")B．MsgBox "信息提示", vbInformation + vbOKCancelC．a(chǎn)=MsgB

41、ox "信息提示", vbInformation + vbOKCancelD．MsgBox "“答案：C,,5．下列為“打開”對話框設(shè)置過濾器屬性的語句中正確的是 。A．CommonDialog1.Filter = "所有文件|(*.*)|文本文件|(*.txt)"B．CommonDialog1.Filter = "所有文件|| (*.*)|文本文件||

42、(*.txt)"C．CommonDialog1.Filter = "所有文件|*.*|文本文件|*.txt"D．CommonDialog1.Filter = "所有文件||*.*|文本文件||*.txt“答案：C,,6.4.2填空題1．在窗體上有一命令按鈕Button1，其單擊事件代碼如下： Private Sub Command1_Click() Do While z

43、8 x = InputBox("x=") x = Val(x) y = InputBox("y=") y = Val(y) z = InputBox("z=") z = Val(z) x = x + y + z Loop Print xEnd S

44、ub程序運(yùn)行后，若依次輸入1，2，3，6，7，8后，輸出的結(jié)果是 （1） 。答案：21,,2．在使用ShowFont方法之前，一定要先設(shè)置 （2） 屬性。答案：flags屬性 3．在用Show方法顯示自定義對話框時，分別用Show方法后帶 （3） 和 （4） 參數(shù)來指定窗體為模式對話框或非模式對話框。答案：（3）VbModal或1 （4）VbModaless或0,,6.4.3編程題１．編寫

45、加法練習(xí)測試程序。窗體如圖6-11所示，程序運(yùn)行自動產(chǎn)生兩個100以內(nèi)的隨機(jī)整數(shù)分別填入兩個標(biāo)簽中，單擊“計算”按鈕，出現(xiàn)如圖6-12所示的對話框，在對話框中輸入運(yùn)算結(jié)果。確認(rèn)輸入數(shù)據(jù)后，相繼有提示計算正確或錯誤，“是否繼續(xù)計算？”的對話框出現(xiàn)，分別如圖6-13、6-14和6-15，如果選擇繼續(xù)，程序繼續(xù)隨機(jī)出題，選擇“否”，則程序給出你答題情況統(tǒng)計并給出相應(yīng)的分?jǐn)?shù)，如圖6-16。,,,圖6-11,圖6-12,,,圖6-13,圖6-14

46、,,,圖6-15,圖6-16,,參考答案Option ExplicitDim cornum As Integer, totnum As IntegerPrivate Sub Command1_Click() Dim ok As Integer, result As String, mark As Integer totnum = totnum + 1 result = InputBox("計算:" + L

47、abel1.Caption + "+" + Label3.Caption, "寫出正確答案") If Val(result) = Val(Label1.Caption) + Val(Label3.Caption) Then Label5.Caption = result ok = MsgBox("你算對了，繼續(xù)努力！", vbOKOnly, "答案正確&

48、quot;) cornum = cornum + 1 Else ok = MsgBox("很遺憾，你做錯了！？", vbOKOnly, "答案錯誤") End If ok = MsgBox("還繼續(xù)嗎？", vbYesNo, "詢問") If ok = 6 Then Randomize,,Label1.Caption = Round

49、(Rnd * 100) Label3.Caption = Round(Rnd * 100) Label5.Caption = "" Else mark = Round(cornum / totnum * 100) ok = MsgBox("你共計算了" & totnum & "道題，其中做對了" & cornum & &

50、quot;道。" & Chr(13) & Chr(10) & "分?jǐn)?shù)為：" & mark, , "統(tǒng)計分?jǐn)?shù)") End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Randomize Label1.Caption = Round(Rnd *