《菜單與對話框》PPT課件

《《菜單與對話框》PPT課件》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、第9章菜單與對話框本章主要內(nèi)容菜單的設(shè)計工具欄和狀態(tài)欄對話框9.1菜單設(shè)計9.1.1菜單編輯器(MenuEditor)9.1.2下拉式菜單9.1.3運行時動態(tài)改變菜單屬性9.1.4彈出式菜單進入菜單編輯器打開【菜單編輯器】窗口有三種方法：（1）從【工具】菜單上，單擊【菜單編輯器】。（2）在工具欄上單擊【菜單編輯器】快捷按鈕。（3）用鼠標(biāo)選中窗體后，單擊鼠標(biāo)右鍵，在彈出菜單中選擇【菜單編輯器】選項并單擊。菜單編輯器簡介【名稱】（Caption）Name（名稱）Checked（復(fù)選）Enabled（有效）Visible（可見索引（Index)菜單項的控制菜單項標(biāo)記?Checked（復(fù)選）：設(shè)置是否

2、選中標(biāo)志。?Enabled（有效）：決定菜單項是否對事件作出響應(yīng)。（正常顯示或灰色）Visible（可見）：決定菜單項是否可見。鍵盤的選擇快捷鍵快捷鍵訪問鍵標(biāo)題輸入：&File下拉式菜單下拉菜單例題【例9.1】控件名稱屬性屬性值myformcaption菜單例題myFramecaption當(dāng)前狀態(tài)mytexttext我本將心向明月，奈何明月照溝渠菜單的屬性如表下表所示啟動【菜單編輯器】，進行菜單設(shè)計，菜單的屬性如表9.2所示：標(biāo)題名稱快捷鍵標(biāo)題名稱索引值背景顏色Mnucolor菜單控制…天藍(lán)(&B)MnuBlueCtrl+B…顯示/隱藏主菜單項MnuShowHide…橙黃(&Y)MnuYell

3、owCtrl+Y…-SeprateBar2…草綠(&G)MnuGreenCtrl+G…增加菜單項MnuAdd…默認(rèn)(&W)MnuWhiteCtrl+W…刪除菜單項MnuDel字體…-SeprateBar1…增大字體(&I)MnuAddFontCtrl+A…關(guān)閉MnuClose…減小字體(&D)MnuDecFontCtrl+D動態(tài)菜單MnuDyna…新增的菜單項1MnuD1運行時動態(tài)改變菜單屬性在Windows應(yīng)用程序中，往往隨著用戶不同的操作，菜單項也會有相應(yīng)的變化，常見的有【復(fù)選菜單】、【失效菜單】和【不可見菜單】等變化。我們以例9.1為例來做一個動態(tài)的菜單項，其代碼段如下：具體【顯示／隱藏

4、動態(tài)菜單】、【增加菜單項】和【刪除菜單項】等的Click事件代碼如下：PrivateSubMnuShowHide_Click()IfMnuShowHide.Checked=TrueThenMnuShowHide.Checked=False'隱藏復(fù)選標(biāo)記MnuDyna.Visible=False'隱藏“動態(tài)菜單”項ElseMnuShowHide.Checked=True'顯示復(fù)選標(biāo)記MnuDyna.Visible=True'顯示“動態(tài)菜單”項EndIfEndSubPrivateSubMnuAdd_Click()DimDmAsIntegerDm=MnuD.Count+1'計算索引值LoadMnuD

5、.Item(Dm)'增加索引為Dm的新菜單項MnuD.Item(Dm).Caption="新增的菜單項"+Str(Dm)'為新菜單項設(shè)置標(biāo)題MnuD.Item(Dm).Visible=True'顯示新增菜單項MsgBox"新增菜單項"+Str(MnuD.Count)MnuDel.Enabled=True'使刪除菜單可有用EndSubPrivateSubMnuDel_Click()IfMnuD.Count>1ThenMsgBox"刪除新增菜單項"+Str(MnuD.Count)UnloadMnuD.Item(MnuD.Count)'刪除菜單項IfMnuD.Count=1ThenMnuDel.En

6、abled=False'使刪除菜單不可用EndIfEndIfEndSub彈出式菜單激活彈出式菜單使用PopupMenu方法：[<對象名>．]PopupMenu<菜單名>[，flags[，x[，y[，boldcommand]]]]其中：l對象名默認(rèn)為當(dāng)前窗體。lflags參數(shù)用于設(shè)定彈出菜單的性能。lx，y參數(shù)為坐標(biāo)值。lboldcommand參數(shù)用于在彈出式菜單中顯示一個菜單控制。lflags參數(shù)可以定義彈出式菜單的位置與性能。取值分兩組：位置常量和行為常量。Flags各常量取值如下：----位置常量取值：0(默認(rèn))：彈出菜單的左邊定位于X坐標(biāo)。4：彈出菜單以X點坐標(biāo)為中心線。8：彈出菜單的右

7、邊定位于X坐標(biāo)。----行為常量取值：0(默認(rèn))：菜單命令只接收右鍵單擊。2：菜單命令可以接收左、右鍵單擊?！纠?.1】彈出式菜單代碼如下PrivateSubmyText_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=vbRightButtonThen'判斷是否右擊了鼠標(biāo)myText.Enabled=Fa