第9章菜單與對話框(更新版)
【正文】 t For Each x In fname = IIf( = Index, False, True) Next End Sub 如果改為影藏： = IIf( = Index, False, True) 彈出式菜單 彈出式菜單能以靈活的方式為用戶提供更加便利的操作 ， 它可以根據(jù)用戶單擊鼠標(biāo)右鍵時的位置 ， 動態(tài)地調(diào)整菜單項(xiàng)的顯示位置 ， 同時也改變菜單項(xiàng)顯示內(nèi)容 ， 因此彈出式菜單又稱為 “ 上下文菜單 ” 或 “ 快捷菜單 ” 。F) Menu 主菜單項(xiàng) 1 … .文本內(nèi)容 (amp。T) txt 子菜單項(xiàng) 11 … .文本字體 (amp。如果該屬性被設(shè)置為 False，則相應(yīng)的菜單項(xiàng)將被暫時從菜單中去掉，直到該屬性重新被設(shè)置為 True。在程序運(yùn)行時，按下快捷鍵會立刻運(yùn)行一個菜單項(xiàng)。 用于設(shè)置菜單項(xiàng)的各個屬性 ， 表 91列出其中的主要屬性： 表 91 菜單控件的主要屬性 其他屬性可參見 VB的聯(lián)機(jī)幫助 。 菜單由若干個命令 、 分隔條 、 子菜單標(biāo)題 （ 其右邊含有三角的菜單項(xiàng) ） 等菜單項(xiàng)組成 。 在設(shè)計(jì)或運(yùn)行時可以設(shè)置 Caption屬性 、 Enabled和Visible屬性 、 Checked屬性以及其它屬性 ?？梢杂梅指罹€將某些菜單項(xiàng)歸為一類并與其他項(xiàng)隔開。 復(fù)選（ Checked） “復(fù)選”屬性設(shè)置為 True時，可以在相應(yīng)的菜單項(xiàng)旁加上記號“ √”。 3) 菜單控件列表框 。 編寫 “ 文本內(nèi)容 ” 項(xiàng) Txt的 Click事件代碼： Private Sub Txt_Click() temp = InputBox(請輸入標(biāo)題板的新內(nèi)容 , 輸入 , ) If temp Then = temp End If End Sub 編寫 “ 文本字體 ” 中 4個菜單選項(xiàng)的 Click事件代碼： Private Sub song_Click() = 宋體 End Sub Private Sub li_Click() = 隸書 End Sub Private Sub kai_Click() = 楷體 _GB2312 End Sub Private Sub hei_Click() = 黑體 End Sub 編寫 “ 文本風(fēng)格 ” 中 3個菜單選項(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ù)組的概念 。S) Styl 子菜單項(xiàng) 13 … . … .粗體 Styly 1 子菜單項(xiàng) 131 … . … .斜體 Styly 2 子菜單項(xiàng) 132 … . … .下劃線 Styly 3 子菜單項(xiàng) 133 2) 修改菜單項(xiàng)代碼 。 在彈出式菜單中只能有一個菜單項(xiàng)被加粗 。 用鼠標(biāo)右鍵單擊控件工具箱 ， 在彈出菜單中選擇 “ 部件 ” ， 打開部件對話框 （ 如圖 99左 ） 。 “ 打開 ” 對話框可以用來指定文件所在的 驅(qū)動器 、文件夾 以及 文件名 、 文件擴(kuò)展名 ， 如圖 911所示
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1