




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)
文檔簡介
VisualBasic輔導講義計算機與數(shù)學基礎(chǔ)教學部:劉冰鍵盤和鼠標事件MouseDown:鼠標的任一鍵被按下時觸發(fā)該事件。MouseUp:鼠標的任一鍵被釋放時觸發(fā)該事件。MouseMove:鼠標被移動時觸發(fā)該事件。以Form對象為例,它們的語法格式為:PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)鼠標事件——在需要判斷鼠標點擊的時候適用【例】設計鼠標事件過程。要求:1.鼠標移動時,標簽上顯示鼠標當前坐標值。2.在窗體某個位置單擊鼠標左鍵時,以該位置為圓心,500為半徑畫圓。3.在單擊鼠標同時如果按下Shift鍵,則圓顯示為紅色;按下Ctrl鍵,顯示為綠色;按下Alt鍵,顯示為藍色。
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)DimcolorAsLongIfButton=1Then
SelectCaseShift
Case0color=RGB(0,0,0)'黑
Case1color=RGB(255,0,0)'紅
Case2color=RGB(0,255,0)'綠
Case4color=RGB(0,0,255)'藍
EndSelectForm1.Circle(X,Y),500,color'畫圓
EndIfMousePointer(形狀)屬性鼠標光標屬性MouseIcon(自定義圖標形狀)屬性注意:MousePointer=99時,MouseIcon屬性才有效。在程序中使用LoadPicture函數(shù)裝入以.ico或.cur為擴展名的圖標文件,用來設置MouseIcon屬性。形狀屬性值(15個):0
由對象決定1箭頭2十字線3I型……向上箭頭11沙漏……99由MouseIcon自定義事件過程格式:SubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EndSub對具有焦點的控件按下并釋放鍵盤某個鍵時產(chǎn)生鍵盤事件過程。
鍵盤事件過程常用鍵盤事件:KeyDown、KeyUp、KeyPress事件。 按下(鍵值)釋放按下(字符ASCⅡ值)參數(shù)說明:Shift
控制鍵值。KeyCode
按鍵代碼。大小寫共用一個鍵(大寫);上下檔字符取下檔字符;功能鍵用鍵代碼或常量字符:如:F1112VBKeyF1獲得按鍵值:PrintKeycodeKeyPress(KeyAsciiAsInteger)IfKeyCode=vbKeyF1Then……Endif參數(shù)說明:KeyAscii識別按鍵字符的ASCII碼。默認小寫,shift或大寫鎖定變大寫;因此,可以對輸入值進行限制。字符:A(65),a(97),0(48),9(57)少量功能鍵:回車鍵(13),Esc(27)0:取消按鍵
PrintKeycodePrintKeyAscii用戶按下一個鍵時觸發(fā)KeyDown事件SubObject_KeyDown(KeyCodeAsInteger,ShiftAsInteger)釋放引發(fā)KeyUp事件SubObject_KeyUp(KeyCodeAsInteger,ShiftAsInteger)KeyPress只響應按下標準ASCII字符表中對應的鍵時的事件SubObject_KeyPress(KeyAsciiAsInteger)鍵盤事件PrivateSubCommand1_Click()ClsEndSubPrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)Form1.ForeColor=vbRedPrintKeyCodeEndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)Form1.ForeColor=vbBluePrintKeyAsciiEndSubKeyPreview(鍵預覽)屬性
默認狀態(tài)下,當窗體上加入控件后,焦點始終在控件上(除非控件不可用或者不可見),而此時窗體接收不到keydown等事件,此時將窗體的keypreview改為true,則無論焦點在哪個控件上,窗體都可以接受到keydown,keypress等事件。3.2003年9月(14)窗體的MouseDown事件過程
Form_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
有4個參數(shù),關(guān)于這些參數(shù),正確的描述是______。
A)通過Button參數(shù)判定當前按下的是哪一個鼠標鍵
B)Shift參數(shù)只能用來確定是否按下Shift鍵
C)Shift參數(shù)只能用來確定是否按下Alt和Ctrl鍵
D)參數(shù)x,y用來設置鼠標當前位置的坐標5.2005年4月(26)把窗體的KeyPreview屬性設置為True,然后編寫如下事件過程
PrivateSubForm_KeyPress(KeyAsciiAsInteger)
DimchAsString
ch=Chr(KeyAscii)
KeyAscii=Asc(UCase(ch))
PrintChr(KeyAscii+2)
EndSub
程序運行后,按鍵盤上的“A”鍵,則在窗體上顯示的內(nèi)容是______。A)AB)BC)CD)D13.2004年9月(18)以下敘述中錯誤的是
。
A)在KeyPress事件過程中不能識別鍵盤的按下與釋放
B)在KeyPress事件過程中不能識別回車鍵
C)在KeyDown和KeyUp事件過程中,將鍵盤輸入的"A"和"a"視作相同的字母
D)在KeyDown和KeyUp事件過程中,從大鍵盤上輸入的"1"和從右側(cè)小鍵盤上輸入的"1"被視作不同的字符1.2006年4月(9)在窗體上畫1個命令按鈕和1個文本框,其名稱分別為Command1和Text1,然后編寫如下代碼:
DimSaveAllAsStringPrivateSubCommand1_Click()Text1.Text=Left(U
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 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. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 牙周治療病例
- 小學學校預防艾滋病工作總結(jié)(13篇)
- 區(qū)塊鏈技術(shù)在教育信息安全的應用前景
- 區(qū)塊鏈創(chuàng)新與數(shù)字貨幣監(jiān)管的協(xié)同發(fā)展
- 創(chuàng)新與規(guī)范醫(yī)療AI技術(shù)倫理雙驅(qū)動力
- 福建省龍巖市非一級達標校2018-2019學年高二上學期期末教學質(zhì)量檢查英語試題
- 2025年員工季度工作情況總結(jié)(4篇)
- Unit2-Warming-up-公共課課件二
- 2025至2031年中國周邊傳動橋式刮泥機行業(yè)投資前景及策略咨詢研究報告
- 購銷簡單的合同范本(17篇)
- 婦科管理制度
- 新晉管理者培訓
- 2025-2030中國二氯乙烷行業(yè)市場發(fā)展趨勢與前景展望戰(zhàn)略研究報告
- 供電公司故障搶修服務規(guī)范
- 防高處墜落 物體打擊專項施工方案
- 食品銷售初級考試試題及答案
- 全國第三屆職業(yè)技能大賽(增材制造)選拔賽理論考試題庫(含答案)
- 人教部編版初中語文七年級下冊 《15.青春之光》課件
- TSG21-2025固定式壓力容器安全技術(shù)(送審稿)
- 2025中國海洋石油集團有限公司校園招聘筆試參考題庫附帶答案詳解
- 統(tǒng)信服務器UOS操作系統(tǒng)-產(chǎn)品白皮書
評論
0/150
提交評論