第9章菜單與對(duì)話框(參考版)
2025-07-27 02:06本頁(yè)面
【正文】 圖 917 使用“公共對(duì)話框”控件 Private Sub Command1_Click(Index As Integer) n = Index Select Case n Case 0 = 所有文件 (*.*)|*.*|文本文件 (*.TXT)|*.txt = 1 = = 從打開對(duì)話框返回 Case 1 = = 從另存為對(duì)話框返回 “ Case 2 = 從顏色對(duì)話框返回 = = 從顏色對(duì)話框返回 Case 3 = 3 Or 256 With Text1 .FontName = .FontSize = .FontStrikethru = .FontBold = .FontItalic = .FontUnderline = .ForeColor = End With = 從字體對(duì)話框返回 = 從字體對(duì)話框返回 End Select End Sub 。 注意：必須將 Flags屬性設(shè)為下列常數(shù)之一與其他選項(xiàng)之和： cdlCFScreenFonts或 1（ 屏幕字體 ） cdkCFPrinterFonts或 2（ 打印機(jī)字體 ） cdlCFBoth或 3（ =1+2 兩種字體皆有 ） 例如：設(shè)為 259（ =256+3是 cdlCFEffects常數(shù)與 3之和 ，在對(duì)話框中將出現(xiàn)顏色 、 效果等選項(xiàng) ） 。 2) 然后在 “ 屬性頁(yè) ” 對(duì)話框中設(shè)置屬性 。 圖 911 “打開”對(duì)話框 運(yùn)行時(shí)選定文件并關(guān)閉對(duì)話框后 ， 可用 FileName屬性得到文件所在的驅(qū)動(dòng)器 、 文件夾以及文件名 、 文件擴(kuò)展名 。 圖 910 “屬性頁(yè)”對(duì)話框 1. 使用“打開”對(duì)話框 打開文件是 Windows應(yīng)用程序 （ 例如 Office） 中的常用操作 。 表 97 通用對(duì)話框控件的方法列表 名稱 功能 ShowOpen 顯示文件打開對(duì)話框 ShowSave 顯示文件存儲(chǔ)對(duì)話框 ShowColor 顯示顏色對(duì)話框 ShowFont 顯示字體對(duì)話框 ShowPrinter 顯示打印對(duì)話框 ShowHelp 顯示 Windows幫助對(duì)話框 每種對(duì)話框都有自己特殊的屬性 ， 這些屬性既可以在屬性窗口 中設(shè)置 ， 也可以在 代碼 中設(shè)置 ， 還可以在 “ 屬性頁(yè) ” 對(duì)話框中設(shè)置 。 在程序運(yùn)行時(shí) ， “ 公共對(duì)話框 ” 可以顯示一個(gè)對(duì)話框或是執(zhí)行幫助的引擎 ， 所顯示的對(duì)話框由控件的 “ 方法 ” 決定 。 在 “ 部件 ” 對(duì)話框中 ， 選定所需的文件 ， 按 “ 確定 ” 按鈕即可將 “ 公共對(duì)話框 ” 控件添加到控件工具箱中 （ 圖 99右 ） 。 添加 “ 公共對(duì)話框 ” 控件 “ 公共對(duì)話框 ” 控件屬于 VB專業(yè)版和企業(yè)版所特有的ActiveX控件 ， 位于文件
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1