VB語言第10章菜單

第10菜單及對話框菜單及對話框都是Windows應(yīng)用程序的常用部件。應(yīng)用程序通過菜單為用戶提供一組命令。對話框是應(yīng)用程序與用戶交互的主要途徑。

第10章

菜單及對話框菜單設(shè)計鍵盤與鼠標(biāo)事件對話框通用/自定義本章主要內(nèi)容退出

窗體和大多數(shù)控件都能響應(yīng)鍵盤和鼠標(biāo)事件

10.1.1鍵盤事件

有三種事件處理鍵盤操作

1.KeyPress事件

2.KeyDown事件：用戶按下鍵盤上某個鍵時觸發(fā)此事件

3.KeyUp事件：用戶按下鍵盤上某個鍵后釋放時觸發(fā)此事件

10.1

鍵盤與鼠標(biāo)事件

Click、DblClick、MouseMove、MouseDown和MouseUp事件當(dāng)移動鼠標(biāo)時發(fā)生MouseMove事件當(dāng)按下鼠標(biāo)任意鍵時發(fā)生MouseDown事件，放開鼠標(biāo)鍵時發(fā)生MouseUp事件后三種事件可以區(qū)分鼠標(biāo)的左、右、中鍵與Shift、Ctrl、Alt鍵

PrivateSub對象名_鼠標(biāo)事件(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

說明：(1)Button參數(shù)表示哪個鼠標(biāo)鍵被按下或釋放。用0，1，2位分別表示鼠標(biāo)的左、右、中鍵，用1或0表示被按下或釋放

(2)Shift參數(shù)表示當(dāng)鼠標(biāo)鍵被按下或釋放時，Shift、Ctrl、Alt鍵的按下或釋放狀態(tài)。用0、1、2位表示Shift、Ctrl、Alt鍵

(3)X,Y表示鼠標(biāo)指針的當(dāng)前坐標(biāo)位置

210位

······左鍵右鍵中鍵

10.1.2

鼠標(biāo)事件MouseMove、MouseDown或MouseUp當(dāng)單擊鼠標(biāo)左鍵時把按鈕的位置移動到鼠標(biāo)指針的位置，單擊鼠標(biāo)右鍵時把按鈕的位置移動到窗體的左上角位置（即坐標(biāo)原點）。以下程序?qū)ouseDown事件與Move方法結(jié)合起來使用。

PrivateSubForm_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then'單擊鼠標(biāo)左鍵時

Command1.MoveX,Y'移動到鼠標(biāo)指針的位置

ElseCommand1.Move0,0'移動到窗體的左上角

EndIfEndSub例10.1

實現(xiàn)命令按鈕位置的移動例10.1

10.2菜單設(shè)計

應(yīng)用程序通過菜單為用戶提供一組命令菜單一般分為兩種：下拉式菜單和彈出式菜單

10.2.1下拉式菜單

1.下拉式菜單的結(jié)構(gòu)下拉式菜單基本結(jié)構(gòu)包括：頂層菜單、菜單項和子菜單子菜單項子菜單提示符訪問鍵快捷鍵分隔線復(fù)選標(biāo)記菜單項頂層菜單例10.1c

10.2.2

菜單編輯器

設(shè)計菜單的工具——菜單編輯器菜單編輯器分為上、下兩部分，上半部分用來設(shè)置屬性，下半部分是菜單顯示區(qū)，用來顯示用戶輸入的菜單內(nèi)容。

10.2.3菜單的Click事件除分隔線以外的所有菜單元素都能識別Click事件例10.5

編一程序，進(jìn)行兩個操作數(shù)的算術(shù)運(yùn)算練習(xí)

設(shè)計步驟如下：

(1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性菜單欄向用戶提供功能選擇，包括運(yùn)算數(shù)的位數(shù)，運(yùn)算符類型(加、減、乘)和退出程序菜單設(shè)計各個菜單項名稱例10.5

(2)編寫程序代碼

OptionExplicit‘規(guī)定所有變量都要顯式聲明，見10.9.1節(jié)

Dimsel1AsInteger,sel2AsStringDimr1AsLong

PrivateSubForm_Load()sel1=0'位數(shù)標(biāo)記

sel2=""'運(yùn)算標(biāo)記

Randomize

EndSubPrivateSubMnu11_Click()‘單擊“一位數(shù)”菜單項

sel1=1'設(shè)置位數(shù)標(biāo)記

EndSubPrivateSubMnu12_Click()‘單擊“二位數(shù)”菜單項

sel1=10

EndSubPrivateSubMnu13_Click()‘單擊“三位數(shù)”菜單項

sel1=100EndSubPrivateSubMnu21_Click()‘單擊“加法”菜單項

sel2="+"'設(shè)置運(yùn)算標(biāo)記EndSubPrivateSubMnu22_Click()‘單擊“減法”菜單項

sel2="-"EndSubPrivateSubMnu23_Click()‘單擊“乘法”菜單項

sel2="*"EndSubPrivateSubCommand1_Click()

'"命題"按鈕單擊事件

DimaAsLong,bAsLongIfsel1=0Orsel2=""Then

MsgBox"先選擇運(yùn)算數(shù)的位數(shù)和運(yùn)算類型"ExitSubEndIfa=sel1+Int(9*sel1*Rnd)‘根據(jù)指定位數(shù)，隨機(jī)生成操作數(shù)

b=sel1+Int(9*sel1*Rnd)Text1.Text=Str(a)+sel2+Str(b)+“=”‘根據(jù)操作數(shù)及運(yùn)算類型組成算式

SelectCasesel2‘根據(jù)運(yùn)算類型，求運(yùn)算結(jié)果r1Case"+"r1=a+bCase"-"r1=a-bCase"*"r1=a*bEndSelectText2.Text=""Text2.SetFocusEndSub菜單操作后Sel1指定位數(shù)

=1

一位數(shù)

=10

二位數(shù)

=100

三位數(shù)Sel2指定運(yùn)算類型

=“+”加法

=“-”減法

=“*”乘法PrivateSubCommand2_Click()

'"答題"按鈕單擊事件

Dimr2AsLongIfText2.Text=""Then

MsgBox"請輸入答案"ExitSubEndIfr2=Val(Text2.Text)'讀取用戶的答案

Ifr1=r2Then'判斷答案

MsgBox"正確"Else

MsgBox"錯誤"EndIfEndSubPrivateSubMnu30_Click()‘“退出”菜單命令

EndEndSub

10.2.5

彈出式菜單

彈出式菜單又稱為快捷菜單。可以根據(jù)右擊鼠標(biāo)時的位置彈出不同的菜單。使用VB提供的菜單編輯器，把某個菜單設(shè)置成隱藏。創(chuàng)建快捷菜單的步驟如下：

(1)使用菜單編輯器設(shè)計菜單

(2)設(shè)置頂層菜單項為不可見，即不選中菜單編輯器里的“可見”選項或在屬性窗口中設(shè)定Visible屬性為False(3)編寫與彈出式菜單相關(guān)聯(lián)的MouseUp(釋放鼠標(biāo))事件過程。格式為：

［對象]PopupMenu

菜單名[,位置常數(shù)][,橫坐標(biāo)[,縱坐標(biāo)]]]例10.6在例10.5的基礎(chǔ)上，把“位數(shù)”菜單改為快捷菜單

(1)打開例10.8的應(yīng)用程序，選定窗體，然后在菜單編輯器中將“位數(shù)”菜單標(biāo)題的“可見”框中的“√”取消(即不選中)

(2)增加以下的MouseUp事件過程代碼：

PrivateSubForm_MouseUp(ButtonAsInteger,_

ShiftAsInteger,XAsSingle,YAsSingle)

IfButton=2Then‘檢查是否右擊,擊左鍵為1

PopupMenumnu10

EndIf

EndSub

程序運(yùn)行時，右擊窗體空白處，即會彈出快捷菜單，如圖10.12所示例10.6例10.5A

彈出式菜單10.3對話框

對話框(DialogBox)是應(yīng)用程序與用戶進(jìn)行交互的主要途徑。三種對話框：

(1)預(yù)定義對話框

使用函數(shù)InputBox和MsgBox來實現(xiàn)。

(2)通用對話框通用對話框是一種ActiveX控件，在使用之前，應(yīng)選擇“工程”菜單中的“部件”命令先將其添加到工具箱中

(選中“MicrosoftCommonDialogControl6.0”

)

利用通用對話框能夠創(chuàng)建下列六種標(biāo)準(zhǔn)對話框(指定相應(yīng)的參數(shù)，P233)：

打開(Open)，另存為(SaveAs)，顏色(Color)

字體(Font)，打印機(jī)(Printer)，幫助(Help)(3)用戶自定義對話框

建立一個窗體，把窗體設(shè)置成對話框特性（沒有控制菜單框、最大化及最小化按鈕，不能改變其大小，見表10.3）

在窗體上根據(jù)需要放置控件附錄使用WebBrowser控件制作一個簡易的Web瀏覽器在“部件”對話框的“控