vb程序設(shè)計第九章菜單-在線瀏覽
2025-03-01 20:42本頁面
【正文】 _Click() = True End Sub Private Sub m_menu1_Click() = False End Sub 菜單 下拉式菜單 例 [92]設(shè)計一個應(yīng)用程序，通過菜單完成兩個整數(shù)的加減運(yùn)算 。 使用 load方法在菜單控件數(shù)組中增加一個新的菜單項（命令），也可以 用 Unload方法從菜單控件數(shù)組中刪除一個菜單項。 解題思路 ：當(dāng)單擊窗體時，調(diào)用 load方法，利用控件數(shù)組 appendcal為菜單 增加兩個子菜單；當(dāng)雙擊窗體時，調(diào)用 unload方法將新增的兩個子菜單刪除。 菜單 彈出式菜單 彈出式菜單獨(dú)立于菜單欄，直接顯示在窗體上； 彈出式菜單通常是單擊鼠標(biāo)右鍵打開，又稱為 ” 右鍵菜單 “ 或 ” 快捷菜單 “ ； 創(chuàng)建方法： 在 ” 菜單編輯器 “ 中，對最高一級菜單的 ” 可見 “ 屬性設(shè)置為 ” False“，然后 調(diào)用 PopupMenu方法將其作為快捷菜單顯示出來，格式： [對象名 ].PopMenu 菜單名， [flags]， [X]， [Y]， [DefaultMenu] 其中： 對象名：可選項，默認(rèn)為當(dāng)前窗體； 菜單名：必選項，要顯示的彈出式菜單名，是在菜單編輯器中定義的 主菜單標(biāo)題，該主菜單標(biāo)題至少含有一個子菜單； flags：可選項，是一個數(shù)值或符號常量，用于指定彈出式菜單的位置 和行為； 菜單 值 位置常量 說明 0 vbPopMenuLeftAlign 缺省值，彈出式菜單的左上角位于坐標(biāo) (x,y)處 4 vbPopMenuCenterAlign 彈出式菜單的上邊框的中央位于坐標(biāo) (x,y)處 8 vbPopMenuCenterRight 彈出式菜單的右上角位于坐標(biāo) (x,y)處 彈出式菜單 Flags取值表 ： 值 位置常量 說明 0 vbPopMenuLeftButton 缺省值，彈出式菜單中的命令只接受鼠標(biāo)左鍵單擊 2 vbPopMenuRightButton 缺省值，彈出式菜單中的命令只接受鼠標(biāo)右鍵單擊 指定菜單行為 ： 若要同時指定菜單位置和行為，則將兩個參數(shù)值用 or連接： 0 or 2 菜單 彈出式菜單 x,y：指定顯示彈出式菜單的 x坐標(biāo)和 y坐標(biāo)，省略時為鼠標(biāo)的當(dāng)前坐標(biāo)； DefaultMenu：指定彈出式菜單中要顯示為黑體的菜單控件的名稱，省略 時，則彈出式菜單沒有以黑體字出現(xiàn)的菜單項； 在顯示彈出式菜單時，一般把 PopupMenu方法放在 MouseDown事件中，該事件響應(yīng)所有的鼠標(biāo)單擊事件。 例 [94]在上例的基礎(chǔ)上將 ” 運(yùn)算 “ 菜單作為彈出式菜單顯示。 通用對話框的使用 通過設(shè)置不同的 Action屬性值（只能在程序中設(shè)置）或調(diào)用不同的方法 來決定對話框的類型 顯示的對話框 方法 Action屬性值 “打開”對話框 ShowOpen 1 “另存為”對話框 ShowSave 2 “顏色”對話框 ShowColor 3 “字體”對話框 ShowFont 4 “打印機(jī)”對話框 ShowPrinter 5 “幫助”對話框 ShowHelp 6 對話框 通用對話框 (1)“打開 ” 對話框 程序運(yùn)行后，將 Action屬性值設(shè)置為 1或調(diào)用 ShowOpen方法，即可彈出 “ 打開 ” 對話框。 DialogTitle FileName InitDir Filter Flags DefaultExt MaxFile Size FilterIndex CancelError 對話框 通用對話框 “打開 ” 對話框?qū)傩灾担? ① “ 對話框標(biāo)題 ” － DialogTitle 用途：用于設(shè)置對話框的標(biāo)題； ② “文件名稱 ” － FileName 用途：用于設(shè)置打開對話框顯示的初始文件名。 如：選擇過濾器為 *.txt，表示顯示所有的文本文件。*.jpg): 文本文件 (*.txt) | *.txt | 圖形文件 (*.bmp。*
試題試卷相關(guān)推薦
鄂ICP備17016276號-1