




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)
文檔簡介
第10菜單及對話框菜單及對話框都是Windows應(yīng)用程序的常用部件。應(yīng)用程序通過菜單為用戶提供一組命令。對話框是應(yīng)用程序與用戶交互的主要途徑。
第10章
菜單及對話框菜單設(shè)計鍵盤與鼠標事件對話框通用/自定義本章主要內(nèi)容退出
窗體和大多數(shù)控件都能響應(yīng)鍵盤和鼠標事件
10.1.1鍵盤事件
有三種事件處理鍵盤操作
1.KeyPress事件
2.KeyDown事件:用戶按下鍵盤上某個鍵時觸發(fā)此事件
3.KeyUp事件:用戶按下鍵盤上某個鍵后釋放時觸發(fā)此事件
10.1
鍵盤與鼠標事件
Click、DblClick、MouseMove、MouseDown和MouseUp事件當移動鼠標時發(fā)生MouseMove事件當按下鼠標任意鍵時發(fā)生MouseDown事件,放開鼠標鍵時發(fā)生MouseUp事件后三種事件可以區(qū)分鼠標的左、右、中鍵與Shift、Ctrl、Alt鍵
PrivateSub對象名_鼠標事件(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
說明:(1)Button參數(shù)表示哪個鼠標鍵被按下或釋放。用0,1,2位分別表示鼠標的左、右、中鍵,用1或0表示被按下或釋放
(2)Shift參數(shù)表示當鼠標鍵被按下或釋放時,Shift、Ctrl、Alt鍵的按下或釋放狀態(tài)。用0、1、2位表示Shift、Ctrl、Alt鍵
(3)X,Y表示鼠標指針的當前坐標位置
210位
······左鍵右鍵中鍵
10.1.2
鼠標事件MouseMove、MouseDown或MouseUp當單擊鼠標左鍵時把按鈕的位置移動到鼠標指針的位置,單擊鼠標右鍵時把按鈕的位置移動到窗體的左上角位置(即坐標原點)。以下程序?qū)ouseDown事件與Move方法結(jié)合起來使用。
PrivateSubForm_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then'單擊鼠標左鍵時
Command1.MoveX,Y'移動到鼠標指針的位置
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ù)選標記菜單項頂層菜單例10.1c
10.2.2
菜單編輯器
設(shè)計菜單的工具——菜單編輯器菜單編輯器分為上、下兩部分,上半部分用來設(shè)置屬性,下半部分是菜單顯示區(qū),用來顯示用戶輸入的菜單內(nèi)容。
10.2.3菜單的Click事件除分隔線以外的所有菜單元素都能識別Click事件例10.5
編一程序,進行兩個操作數(shù)的算術(shù)運算練習(xí)
設(shè)計步驟如下:
(1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性菜單欄向用戶提供功能選擇,包括運算數(shù)的位數(shù),運算符類型(加、減、乘)和退出程序菜單設(shè)計各個菜單項名稱例10.5
(2)編寫程序代碼
OptionExplicit‘規(guī)定所有變量都要顯式聲明,見10.9.1節(jié)
Dimsel1AsInteger,sel2AsStringDimr1AsLong
PrivateSubForm_Load()sel1=0'位數(shù)標記
sel2=""'運算標記
Randomize
EndSubPrivateSubMnu11_Click()‘單擊“一位數(shù)”菜單項
sel1=1'設(shè)置位數(shù)標記
EndSubPrivateSubMnu12_Click()‘單擊“二位數(shù)”菜單項
sel1=10
EndSubPrivateSubMnu13_Click()‘單擊“三位數(shù)”菜單項
sel1=100EndSubPrivateSubMnu21_Click()‘單擊“加法”菜單項
sel2="+"'設(shè)置運算標記EndSubPrivateSubMnu22_Click()‘單擊“減法”菜單項
sel2="-"EndSubPrivateSubMnu23_Click()‘單擊“乘法”菜單項
sel2="*"EndSubPrivateSubCommand1_Click()
'"命題"按鈕單擊事件
DimaAsLong,bAsLongIfsel1=0Orsel2=""Then
MsgBox"先選擇運算數(shù)的位數(shù)和運算類型"ExitSubEndIfa=sel1+Int(9*sel1*Rnd)‘根據(jù)指定位數(shù),隨機生成操作數(shù)
b=sel1+Int(9*sel1*Rnd)Text1.Text=Str(a)+sel2+Str(b)+“=”‘根據(jù)操作數(shù)及運算類型組成算式
SelectCasesel2‘根據(jù)運算類型,求運算結(jié)果r1Case"+"r1=a+bCase"-"r1=a-bCase"*"r1=a*bEndSelectText2.Text=""Text2.SetFocusEndSub菜單操作后Sel1指定位數(shù)
=1
一位數(shù)
=10
二位數(shù)
=100
三位數(shù)Sel2指定運算類型
=“+”加法
=“-”減法
=“*”乘法PrivateSubCommand2_Click()
'"答題"按鈕單擊事件
Dimr2AsLongIfText2.Text=""Then
MsgBox"請輸入答案"ExitSubEndIfr2=Val(Text2.Text)'讀取用戶的答案
Ifr1=r2Then'判斷答案
MsgBox"正確"Else
MsgBox"錯誤"EndIfEndSubPrivateSubMnu30_Click()‘“退出”菜單命令
EndEndSub
10.2.5
彈出式菜單
彈出式菜單又稱為快捷菜單??梢愿鶕?jù)右擊鼠標時的位置彈出不同的菜單。使用VB提供的菜單編輯器,把某個菜單設(shè)置成隱藏。創(chuàng)建快捷菜單的步驟如下:
(1)使用菜單編輯器設(shè)計菜單
(2)設(shè)置頂層菜單項為不可見,即不選中菜單編輯器里的“可見”選項或在屬性窗口中設(shè)定Visible屬性為False(3)編寫與彈出式菜單相關(guān)聯(lián)的MouseUp(釋放鼠標)事件過程。格式為:
[對象]PopupMenu
菜單名[,位置常數(shù)][,橫坐標[,縱坐標]]]例10.6在例10.5的基礎(chǔ)上,把“位數(shù)”菜單改為快捷菜單
(1)打開例10.8的應(yīng)用程序,選定窗體,然后在菜單編輯器中將“位數(shù)”菜單標題的“可見”框中的“√”取消(即不選中)
(2)增加以下的MouseUp事件過程代碼:
PrivateSubForm_MouseUp(ButtonAsInteger,_
ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then‘檢查是否右擊,擊左鍵為1
PopupMenumnu10
EndIf
EndSub
程序運行時,右擊窗體空白處,即會彈出快捷菜單,如圖10.12所示例10.6例10.5A
彈出式菜單10.3對話框
對話框(DialogBox)是應(yīng)用程序與用戶進行交互的主要途徑。三種對話框:
(1)預(yù)定義對話框
使用函數(shù)InputBox和MsgBox來實現(xiàn)。
(2)通用對話框通用對話框是一種ActiveX控件,在使用之前,應(yīng)選擇“工程”菜單中的“部件”命令先將其添加到工具箱中
(選中“MicrosoftCommonDialogControl6.0”
)
利用通用對話框能夠創(chuàng)建下列六種標準對話框(指定相應(yīng)的參數(shù),P233):
打開(Open),另存為(SaveAs),顏色(Color)
字體(Font),打印機(Printer),幫助(Help)(3)用戶自定義對話框
建立一個窗體,把窗體設(shè)置成對話框特性(沒有控制菜單框、最大化及最小化按鈕,不能改變其大小,見表10.3)
在窗體上根據(jù)需要放置控件附錄使用WebBrowser控件制作一個簡易的Web瀏覽器在“部件”對話框的“控
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責。
- 6. 下載文件中如有侵權(quán)或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 采訪廣告公司心得體會模版
- 病毒性胃腸炎的臨床護理
- 住宅-生活用房
- 世界旅游形象大使長三角特別賽區(qū)
- 幼兒園語言教育與活動設(shè)計 課件 第四章 幼兒園語言教育活動與其他教育活動的交叉與融合
- 瘡瘍?nèi)粘Wo理
- 運營能力規(guī)劃
- 作業(yè)治療器材
- 高中語文教師教育教學(xué)工作總結(jié)模版
- 牛羊產(chǎn)后護理
- 德陽市綿竹市2023年三下數(shù)學(xué)期末含解析
- 2023年福建省福州市八縣一中聯(lián)考高一化學(xué)第二學(xué)期期末達標測試試題含解析
- 醫(yī)學(xué)專題-呼吸困難識別、處理與轉(zhuǎn)運原則
- 管理英語3課件
- 七年級-體育與健康基礎(chǔ)知識考核試題
- 同濟大學(xué)實驗報告封面
- 《醫(yī)學(xué)影像診斷學(xué)》分章節(jié)試題庫含答案大全
- 申根簽證申請表
- 知識點一RLC串聯(lián)電路的電壓關(guān)系
- 淘寶運營轉(zhuǎn)正考試題及答案
- 《機器人技術(shù)及應(yīng)用》教學(xué)大綱
評論
0/150
提交評論