【正文】 “ 打開(kāi) ” 對(duì)話框可以用來(lái)指定文件所在的 驅(qū)動(dòng)器 、文件夾 以及 文件名 、 文件擴(kuò)展名 ， 如圖 911所示 。 在彈出式菜單中只能有一個(gè)菜單項(xiàng)被加粗 。 編寫(xiě) “ 文本內(nèi)容 ” 項(xiàng) Txt的 Click事件代碼： Private Sub Txt_Click() temp = InputBox(請(qǐng)輸入標(biāo)題板的新內(nèi)容 , 輸入 , ) If temp Then = temp End If End Sub 編寫(xiě) “ 文本字體 ” 中 4個(gè)菜單選項(xiàng)的 Click事件代碼： Private Sub song_Click() = 宋體 End Sub Private Sub li_Click() = 隸書(shū) End Sub Private Sub kai_Click() = 楷體 _GB2312 End Sub Private Sub hei_Click() = 黑體 End Sub 編寫(xiě) “ 文本風(fēng)格 ” 中 3個(gè)菜單選項(xiàng)的 Click事件代碼： Private Sub bld_Click() = Not = End Sub Private Sub Itl_Click() = Not = End Sub Private Sub Undrln_Click() = Not = End Sub 4. 菜單控件數(shù)組 既然 VB將菜單項(xiàng)視為控件 ， 因此就能運(yùn)用控件數(shù)組的概念 。 復(fù)選（ Checked） “復(fù)選”屬性設(shè)置為 True時(shí)，可以在相應(yīng)的菜單項(xiàng)旁加上記號(hào)“ √”。 在設(shè)計(jì)或運(yùn)行時(shí)可以設(shè)置 Caption屬性 、 Enabled和Visible屬性 、 Checked屬性以及其它屬性 。 用于設(shè)置菜單項(xiàng)的各個(gè)屬性 ， 表 91列出其中的主要屬性： 表 91 菜單控件的主要屬性 其他屬性可參見(jiàn) VB的聯(lián)機(jī)幫助 。如果該屬性被設(shè)置為 False，則相應(yīng)的菜單項(xiàng)將被暫時(shí)從菜單中去掉，直到該屬性重新被設(shè)置為 True。F) Menu 主菜單項(xiàng) 1 … .文本內(nèi)容 (amp。 ? 公共對(duì)話框 “ 公共對(duì)話框 ” （ Common Dialog） 控件為用戶提供了一組標(biāo)準(zhǔn)的系統(tǒng)對(duì)話框 ， 可以使用它進(jìn)行打開(kāi)或保存文件 、 設(shè)置打印選項(xiàng) 、 選擇各種顏色以及選擇字體等的操作 。 注意：必須將 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) ） 。 在程序運(yùn)行時(shí) ， “ 公共對(duì)話框 ” 可以顯示一個(gè)對(duì)話框或是執(zhí)行幫助的引擎 ， 所顯示的對(duì)話框由控件的 “ 方法 ” 決定 。 【 例 93】 在例 92中 ， 當(dāng)前文本的字體在菜單中被關(guān)閉 ——菜單項(xiàng)呈灰色 ， 可以選擇未被選擇的字體 。 圖 94 利用菜單控制標(biāo)題板 只需在例 413的基礎(chǔ)上作如下修改： ① 打開(kāi)菜單編輯器 ， 按照表 93設(shè)計(jì)菜單項(xiàng)： 表 93 菜單項(xiàng)的設(shè)置 標(biāo)題（