【正文】 機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 【 例 6】 設計如圖所示的界面，運行時單擊“背景色”按鈕打開顏色對話框，在對話框中選擇的顏色用于設置文本框的背景顏色，單擊“字體”按鈕打開字體對話框，在對話框中選擇字體、效果及顏色，用于設置文本框文字的字體、效果及顏色 CommonDialog1 Text1 設置 Flag : 25 25 259 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 “顏色”對話框的屬性頁設置如下 ： 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 “顏色”、“字體”對話框的屬性頁設置如下 ： 顏色 : Color 標志 : Flags FontSize Min Max FontName 通常： 25 25 259 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 “背景色 ”按鈕 Command1的 Click事件過程如下： Private Sub Command1_Click() ?將通用對話框顯示為顏色對話框 = End Sub “字體 ”按鈕 Command2的 Click事件過程如下： Private Sub Command2_Click() ?將通用對話框顯示為字體對話框 = = = = = = = End Sub 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 1． 在程序中對通用對話框的屬性設置不起作用 在程序中對通用對話框的屬件設置必須注意語句的先后順序，屬性設置語句必須放在打開對話框語句前，否則在程序中對通用對話框的屬性設置在本次使用中不起作用。當輸入某文件所在的路徑及名稱后，單擊“確定”按鈕按所選擇的運行方式運行該文件，單擊“取消”按鈕取消本次操作，返回窗體 Form1中。 使用 End語句來結束程序，窗體不會接收到 QueryUnload事件 常見錯誤及難點分析 4． 與窗體有關的事件 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 ?是一種特殊類型的窗體對象 ?主要用于用戶和應用程序的交互 ?建立對話框的方法三種 –使用預定義對話框，如函數(shù) InputBox、 MsgBox –自定義對話框 –使用 CommonDialog控件創(chuàng)建 通用對話框 167。如果在QueryUnLoad事件中把 QueryUnload的參數(shù) Cancel設置為 True，就會忽略 Unload語句，從而不卸載窗體。 在窗體從內(nèi)存中卸載時依次發(fā)生 QueryUnload和 Unload事件。用戶可以將一個窗體裝入內(nèi)存或從內(nèi)存中刪除很多次，但窗體的建立只有一次。 Initialize是在窗體創(chuàng)建時發(fā)生的事件。如果已在設計時將 Enabled或 Visible屬性設置為 False，必須在使用 SetFocus方法前將 Enabled或 Visible屬性設置為 True。在窗體的 Load事件完成前窗體或窗體上的控件是不可視的，所以不能在 Form_ Load事件中把焦點移到正在加載的窗體上，也不能在 Load事件內(nèi)使用 SetFocus方法將焦點移至窗體上的控件。為了使窗體可見，在用 Load語句后，再將窗體的 Visible屬性設置為 True，或使用 Show方法加載窗體。 盡管所有的菜單項都能響應 Click事件，但是菜單欄中的菜單名通常不需要編寫事件過程。”后的字母）時窗體，按 Alt+熱鍵字母可選擇窗體頂部菜單欄中的菜單項，當子菜單打開時，按熱鍵字母選擇子菜單中的。 菜單名、頂層菜單不能定義快捷菜單， 而菜單項 可以有快捷鍵。菜單項可以包括菜單命令、分隔條和子菜單標題。 B2=1按下 Alt鍵； B1=1按下 Ctrl鍵； B0=1按下 Shift鍵 (2) Shift參數(shù) 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 【 例 3 】 在 例 2的基礎上設計窗體和文本框的彈出式菜單，如下圖所示： 標題 名稱 可見 文本框快捷菜單 EE ....增加 1磅 EE1 ? ....減少 1磅 EE2 ? ....鎖定 EE3 ? 窗體快捷菜單 FF ....紅色背景 FF1 ? ....綠色背景 FF2 ? ....默認背景 FF3 ? 菜單編輯器設置如下： 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 文本框 的 MouseDown事件代碼設計如下： Private Sub Text1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu EE, 0 Or 0 End If End Sub 窗體 的 MouseDown事件代碼設計如下： Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu FF,8 Or 0, , ,FF3 End If End Sub 彈出菜單右上角位于坐標 (x,y)處 1 : 按下鼠標的左按鈕 2 : 按下鼠標的右按鈕 4 : 按下鼠標的中間按鈕 彈出菜單項只響應左鍵 菜單項 FF3顯示為黑體 彈出菜單項只響應左鍵 彈出菜單右上角位于坐標 (x,y)處 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 菜單項事件代碼設計如下： ? 保存窗體的初始顏色 : Dim Fcolor As Long Private Sub Form_Load() Fcolor = ?amp。 shift 參數(shù)是具有相應于 SHIFT 鍵（ 位 0）， CTRL 鍵（ 位 1），以及 ALT 鍵（ 位 2）最少二進制位的一個位字段。 Button為 4(100B) (2) Shift參數(shù) B2=1按下 Alt鍵； B1=1按下 Ctrl鍵； B0=1按下 Shift鍵 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 返回一個整數(shù)，在 Button 參數(shù)指定的按鈕被按下或者被釋放的情況下，該整數(shù)相應于 SHIFT,CTRL,和 ALT 鍵的狀態(tài)。E) DD 訪問鍵 Alt+E ....刪除線 DD1 .… 下劃線 DD2 .… 粗體 DD3 .… 斜體 DD4 菜 單 列 表 區(qū) 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 菜 單 列