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

第10章

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

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

10.1.1鍵盤(pán)事件

有三種事件處理鍵盤(pán)操作

1.KeyPress事件

2.KeyDown事件：用戶(hù)按下鍵盤(pán)上某個(gè)鍵時(shí)觸發(fā)此事件

3.KeyUp事件：用戶(hù)按下鍵盤(pán)上某個(gè)鍵后釋放時(shí)觸發(fā)此事件

10.1

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

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

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

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

(2)Shift參數(shù)表示當(dāng)鼠標(biāo)鍵被按下或釋放時(shí)，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)左鍵時(shí)把按鈕的位置移動(dòng)到鼠標(biāo)指針的位置，單擊鼠標(biāo)右鍵時(shí)把按鈕的位置移動(dòng)到窗體的左上角位置（即坐標(biāo)原點(diǎn)）。以下程序?qū)ouseDown事件與Move方法結(jié)合起來(lái)使用。

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

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

ElseCommand1.Move0,0'移動(dòng)到窗體的左上角

EndIfEndSub例10.1

實(shí)現(xiàn)命令按鈕位置的移動(dòng)例10.1

10.2菜單設(shè)計(jì)

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

10.2.1下拉式菜單

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

10.2.2

菜單編輯器

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

10.2.3菜單的Click事件除分隔線(xiàn)以外的所有菜單元素都能識(shí)別Click事件例10.5

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

設(shè)計(jì)步驟如下：

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

(2)編寫(xiě)程序代碼

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

Dimsel1AsInteger,sel2AsStringDimr1AsLong

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

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

Randomize

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

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

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

sel1=10

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

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

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

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

sel2="*"EndSubPrivateSubCommand1_Click()

'"命題"按鈕單擊事件

DimaAsLong,bAsLongIfsel1=0Orsel2=""Then

MsgBox"先選擇運(yùn)算數(shù)的位數(shù)和運(yùn)算類(lèi)型"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)算類(lèi)型組成算式

SelectCasesel2‘根據(jù)運(yùn)算類(lèi)型，求運(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)算類(lèi)型

=“+”加法

=“-”減法

=“*”乘法PrivateSubCommand2_Click()

'"答題"按鈕單擊事件

Dimr2AsLongIfText2.Text=""Then

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

Ifr1=r2Then'判斷答案

MsgBox"正確"Else

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

EndEndSub

10.2.5

彈出式菜單

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

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

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

［對(duì)象]PopupMenu

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

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

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

PrivateSubForm_MouseUp(ButtonAsInteger,_

ShiftAsInteger,XAsSingle,YAsSingle)

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

PopupMenumnu10

EndIf

EndSub

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

彈出式菜單10.3對(duì)話(huà)框

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

(1)預(yù)定義對(duì)話(huà)框

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

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

(選中“MicrosoftCommonDialogControl6.0”

)

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

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

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

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

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