vb程序設(shè)計第6章對話框的設(shè)計-文庫吧
2024-12-28 20:42 本頁面
【正文】 ，其使用方法和“打開”對話框的使用方法基本相同。 （ 4）“顏色”對話框 ?“顏色”對話框用來在調(diào)色板中選擇顏色，或者是創(chuàng)建并選擇自定義的顏色。要使用“顏色”對話框，通常先設(shè)置“通用對話框”控件中與顏色對話相關(guān)的屬性，然后使用ShowColor方法顯示對話框，使用Color屬性獲得所選擇的顏色。 在“通用對話框”控件中和顏色相關(guān)的屬性主要有“顏色”（ Color）和“標志”（ Flags）兩個。 ?“顏色”（ Color）屬性用來設(shè)置用來設(shè)置“顏色”對話框的初始顏色，同時它也能返回用戶在對話框中選擇的顏色。 ?“標志”（ Flags）屬性用來決定“顏色”對話框的樣式。 ?（ 5）“字體”對話框 ?“字體”對話框用來指定字體名稱、大小、顏色和樣式。要使用“字體”對話框，通常先設(shè)置“通用對話框”控件中與字體對話相關(guān)的屬性，然后使用 ShowFont方法來顯示對話框?！? ?和字體相關(guān)的屬性主要有 Color、FontBold、 FontItalic、FontStrikethru、FontUnderline、 FontName和FontSize。 在使用 ShowFont方法之前，一定要把 Flags屬性設(shè)置為下述常數(shù)之一： ? cdlCFScreenFonts或 1：屏幕字體 ? cdlCFPrinterFonts或 2：打印機字體 ? cdlCFBoth或 3：既可以是屏幕字體又可以是打印機字體 （ 6）“打印”對話框 ?“打印”對話框可以指定打印輸出方式?？梢灾付ū淮蛴№摰姆秶?，打印質(zhì)量，打印的份數(shù)等等。這個對話框還包含當(dāng)前打印機的信息，并允許配置或重新安裝缺省打印機。 “打印”對話框主要屬性及其具體含義如下： ? ①復(fù)制（ Copies）：決定打印的份數(shù)。 ? ②標志（ Flags）：如果把 Flags設(shè)置為0，設(shè)置“打印”對話框中的“打印范圍”。 ? ③起始頁（ FromPage）和終止頁（ ToPage）：用來設(shè)置從第幾頁打印到第幾頁。 ? ④最小（ Min）和最大（ Max）：分別用于設(shè)置打印的最小和最大頁碼數(shù)。 ? ⑤方向（ Orientation）：用來設(shè)定打印的方向（ 1表示縱向， 2表示橫向）。 （ 7）“幫助”對話框 ?“幫助”對話框可以用來制作應(yīng)用程序的聯(lián)機幫助?！皫椭睂υ捒蛑饕獙傩灾饕校? ①幫助上下文（ HelpContext）： 返回或設(shè)置幫助文件中的主題的上下文 ID，指定要顯示的幫助主題。 ②幫助命令（ HelpCommand）：返回或設(shè)置聯(lián)機幫助的類型。 ③幫助鍵（ HelpKey）：返回或設(shè)置幫助主題的關(guān)鍵字。 ④幫助文件（ HelpFile）：返回或設(shè)置幫助文件的路徑及其文件名稱。 自定義對話框 ? 自定義對話框?qū)嶋H是一個用戶自行設(shè)計的，用來完成用戶和系統(tǒng)對話的窗體。 ? 創(chuàng)建自定義對話框首先要創(chuàng)建一個窗體，然后在窗體上添加必要的控件，完成對話框的各種功能。對話框的 BorderStyle屬性通常設(shè)置為 3—FixedDialog。 ? 顯示對話框使用 Show方法。對話框分成兩種類型，即模式的和無模式的。 模式對話框是在繼續(xù)操作應(yīng)用程序的其他部分之前必須被關(guān)閉的。而無模式對話框允許在對話框與其他窗體之間轉(zhuǎn)移焦點而不必關(guān)閉對話框。 Show方法的兩個可選參數(shù)分別是 style和ownerform。如果要顯示的對話框是模式的，則 Style取值為 1或 vbModoal；如果要顯示的對話框是無模式的，則 Style取值為 0或 vbModoaless。 Ownerform參數(shù)決定該對話框是作為哪一個窗體的子窗體的。 第 6章 對話框的設(shè)計 ? 知識要點 ? 習(xí)題與解答 ? 實訓(xùn)指導(dǎo) ? 測驗題 ? 簡述用 Visual Basic創(chuàng)建對話框的幾種方式。 答案： 用 Visual Basic創(chuàng)建對話框有①使用函數(shù)調(diào)用預(yù)定義對話框②使用通用對話框③自定義對話框三種常用方法。 ? 試寫出生成以下三個對話框所對應(yīng)的代碼。 圖 62 圖 61 圖 63 答案：（ 1） a = MsgBox(程序出現(xiàn)嚴重錯誤！ , vbInformation + _ vbAbortRetryIgnore, 警告 ) 或 a = MsgBox(程序出現(xiàn)嚴重錯誤！, 66, 警告 ) （ 2） b = MsgBox(你好，歡迎使用 Visual Basic！ amp。 Chr(13) amp。 Chr(10) amp。 _想要退出嗎？ , vbQuestion + vbYesNoCancel + vbDefaultButton2, 提示 ) 或 b = MsgBox(你好，歡迎使用Visual Basic！ amp。 Chr(13) amp。 Chr(10) amp。 _想要退出嗎？ , 291, 提示 )
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1