VB鍵盤與鼠標(biāo)事件過程.ppt

第十章鍵盤與鼠標(biāo)事件過程,第一節(jié)KeyPress事件,第一節(jié)KeyPress事件,當(dāng)壓下鍵盤上的某個(gè)鍵時(shí)，將發(fā)生KeyPress事件。,注意：當(dāng)一個(gè)控件或窗體擁有輸入焦點(diǎn)時(shí),該控件或窗體將接收從鍵盤上輸入的信息。,KeyPress事件中的參數(shù)IndexAsInteger只用于控件組；KeyAsciiAsInteger用于單個(gè)控件。,利用KeyPress事件可以對(duì)輸入的值進(jìn)行限制。,用KeyPress可以捕捉擊鍵動(dòng)作。,在默認(rèn)情況下，控件的鍵盤事件優(yōu)先于窗體的鍵盤事件，因此在發(fā)生鍵盤事件時(shí)，總是先激活控件的鍵盤事件。,PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii57ThenBeepKeyAscii=0EndIfEndSub,PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenPrintText1.TextEndIfKeyAscii=0避免輸入的字符在文本框中回顯EndSub,例10.1編寫口令程序。用文本框的PassWord屬性編寫過口令程序，下面的口令程序是用KeyPress事件編寫的。,第二節(jié)KeyDown和KeyUp事件,當(dāng)按下鍵盤上的某個(gè)鍵時(shí)，將發(fā)生KeyDown事件；而當(dāng)松開某個(gè)鍵時(shí)，將發(fā)生KeyUp事件。,KeyDown和KeyUp事件的參數(shù)有兩種形式，IndexAsInteger只用于控件組；KeyCodeAsInteger，ShiftAsInteger用于單個(gè)控件。,1.KeyCode,按鍵的實(shí)際的ASCII碼。該碼以“鍵”為準(zhǔn)，而不是以“字符”為準(zhǔn)。,說明：大小寫字母用同一個(gè)鍵，它們的KeyCode相同(使用大寫字母的ASCII碼)，但大鍵盤上的數(shù)字鍵與數(shù)字鍵盤上相同的數(shù)字鍵的KeyCode是不一樣的。對(duì)于有上檔字符和下檔字符的鍵，其KeyCode為下檔字符的ASCII碼。,2.Shift,轉(zhuǎn)換鍵。它指的是3個(gè)轉(zhuǎn)換鍵的狀態(tài)，包括Shift、Ctrl和Alt，這3個(gè)鍵分別以二進(jìn)制方式表示，每個(gè)鍵用3位，即Shift鍵為001，Ctrl鍵為010，Alt鍵為100。,利用邏輯符And可以判斷是否按下了某個(gè)轉(zhuǎn)換鍵。3個(gè)符號(hào)常量：ConstShift=1ConstCtrl=2ConstAlt=4,如果ShiftAndShift0則按下了Shift鍵如果ShiftAndCtrl0則按下了Ctrl鍵如果ShiftAndAlt0則按下了Alt鍵,對(duì)于某個(gè)對(duì)象來說，當(dāng)發(fā)生某個(gè)鍵盤事件時(shí)，只要通過傳送KeyCode和Shift參數(shù)調(diào)用鍵盤處理程序就可以了。,PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)ConstAlt=4ConstKey_F2=&H71ShiftDown%=(ShiftAndShift)0AltDown%=(ShiftAndAlt)0F2Down%=(KeyCode=Key_F2)IfAltDown%AndF2Down%ThenText1.Text=AAAAAAEndIfEndSub,例10.2編寫一個(gè)程序，當(dāng)按下鍵盤上的某個(gè)鍵時(shí)，輸出該鍵的KeyCode碼。,例10.3編寫程序，演示KeyDown和KeyUp的功能。,例10.4編寫程序，當(dāng)按下轉(zhuǎn)換鍵和功能鍵時(shí)，輸出相應(yīng)的信息。,例10.5編寫程序，通過鍵盤移動(dòng)滾動(dòng)條上的滾動(dòng)框，并顯示移動(dòng)情況。,第三節(jié)鼠標(biāo)事件,壓下鼠標(biāo)鍵時(shí)，將觸發(fā)MouseDown事件；松開鼠標(biāo)鍵時(shí)，將觸發(fā)MouseUp事件；移動(dòng)鼠標(biāo)光標(biāo)時(shí)，將觸發(fā)MouseMove事件。,一、鼠標(biāo)位置,格式：Sub對(duì)象_事件(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)EndSub,“對(duì)象”可以是窗體或控件，“事件”可以是MouseDown、MouseUp或MouseMove。鼠標(biāo)位置由參數(shù)x、y確定。,二、鼠標(biāo)鍵,鼠標(biāo)鍵狀態(tài)由參數(shù)Button來設(shè)定，該參數(shù)是一個(gè)整數(shù)(16位)，在設(shè)置鍵狀態(tài)時(shí)實(shí)際上只使用了低3位。當(dāng)按下某個(gè)鍵時(shí)，相應(yīng)的位被置1，否則為0。,說明：MouseDown、MouseUp事件，只能用鼠標(biāo)的按鍵參數(shù)判斷是否按下或松開某一個(gè)鍵，不能檢查兩個(gè)鍵同時(shí)按下或松開。MouseMove事件可以通過Button參數(shù)判斷按下一個(gè)或同時(shí)按下兩個(gè)、三個(gè)鍵。在判斷是否按下多個(gè)鍵時(shí)，要注意避免二義性。為提高可讀性，可把3個(gè)鍵定義為符號(hào)常量。,例10.6用鼠標(biāo)事件在窗體上畫圓。,例10.7編寫程序，在窗體上畫圓。要求：按著右鍵移動(dòng)鼠標(biāo)，則可畫圓；否則不能畫圓。,三、轉(zhuǎn)換參數(shù)(Shift),和參數(shù)Button一樣，轉(zhuǎn)換參數(shù)Shift也是一個(gè)整數(shù)值，并用其低3位表示Shift、Ctrl和Alt鍵的狀態(tài)，其中最低位表示按下Shift鍵（001，十進(jìn)制數(shù)1)，右數(shù)第二位表示按下Ctrl鍵(010，十進(jìn)制數(shù)2)，第三位表示按下Alt鍵(100,十進(jìn)制數(shù)4)。,注意：某鍵被按下使得一個(gè)二進(jìn)制位被設(shè)置。當(dāng)按下某個(gè)鍵時(shí)，相應(yīng)的位被置1，否則為0。Shift參數(shù)反映了當(dāng)按下指定的鼠標(biāo)鍵時(shí)，鍵盤上轉(zhuǎn)換鍵(Shift、Ctrl和Alt)的當(dāng)前狀態(tài)?？梢园裇hift參數(shù)和Button參數(shù)結(jié)合起來進(jìn)行測(cè)試。,例10.8Shift參數(shù)和Button參數(shù)測(cè)試程序。,例10.9在圖片框中畫一個(gè)箭頭，當(dāng)在圖片框內(nèi)移動(dòng)鼠標(biāo)時(shí)，箭頭會(huì)隨著鼠標(biāo)光標(biāo)的移動(dòng)而改變方向。,第四節(jié)鼠標(biāo)光標(biāo)的形狀,一、MousePointer屬性,鼠標(biāo)光標(biāo)的形狀通過MousePointer屬性來設(shè)置。該屬性可以在屬性窗口中設(shè)置，也可以在程序代碼中設(shè)置。,MousePointer的屬性是一個(gè)整數(shù)，可以取015的值，當(dāng)某個(gè)對(duì)象的MousePointer屬性被設(shè)置為某個(gè)值時(shí)，鼠標(biāo)光標(biāo)在該對(duì)象內(nèi)就以相應(yīng)的形狀顯示。,1.在程序代碼中設(shè)置MousePointer屬性,二、設(shè)置鼠標(biāo)光標(biāo)形狀,格式：對(duì)象.MousePointer=設(shè)置值,“對(duì)象”可以是復(fù)選框、組合框、命令按鈕、目錄列表框、驅(qū)動(dòng)器列表框、文件列表框、窗體、框架、圖像、標(biāo)簽、列表框、圖片框、滾動(dòng)條、文本框、屏幕等。,“設(shè)置值”是015的一個(gè)值。,2.在屬性窗口中設(shè)置MousePointer屬性,單擊屬性窗口中的MousePointer屬性條,然后單擊設(shè)置框右端向下的箭頭，將下拉顯示MousePointer的15個(gè)屬性值。,例10.10編寫程序，顯示鼠標(biāo)光標(biāo)的形狀。,PrivateSubPicture1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Picture1.MousePointer=11EndSub,3.自定義鼠標(biāo)光標(biāo),如果把MousePointer屬性設(shè)置為99，則可通過MouseIcon屬性定義自己的鼠標(biāo)光標(biāo)。,(1)如果在屬性窗口中定義，可首先選擇所需要的對(duì)象,再把MousePointer屬性設(shè)置為“99-Custom”，然后設(shè)置MouseIcon屬性,把一個(gè)圖標(biāo)文件賦給該屬性(與設(shè)置Picture屬性的方法相同)。,(2)如果用程序代碼設(shè)置，則可先把MousePointer屬性設(shè)置為99，然后再用LoadPicture函數(shù)把一個(gè)圖標(biāo)文件賦給MouseIcon屬性。,4.鼠標(biāo)光標(biāo)形狀的使用,在Windows中，鼠標(biāo)光標(biāo)的應(yīng)用有一些約定俗成的規(guī)則。為了與Windows環(huán)境相適應(yīng)，在應(yīng)用程序中應(yīng)遵守這些規(guī)則。,注：表示用戶當(dāng)前可用的功能。表示程序狀態(tài)的用戶可視線索。當(dāng)坐標(biāo)（X、Y）值為0時(shí)，改變鼠標(biāo)光標(biāo)形狀。,第五節(jié)拖放,按下鼠標(biāo)鍵，不要松開，然后移動(dòng)鼠標(biāo)，對(duì)象將隨鼠標(biāo)的移動(dòng)而在屏幕上拖動(dòng)，松開鼠標(biāo)鍵后，對(duì)象即被放下。,一、與拖放有關(guān)的屬性、事件和方法,1.屬性,(1)DragMode屬性：該屬性用來設(shè)置自動(dòng)(1)或手動(dòng)(0)拖放模式。(2)DragIcon屬性：在拖動(dòng)一個(gè)控件時(shí)，這個(gè)控件變成一個(gè)圖標(biāo)，等放下后再恢復(fù)成原來的控件。,2.事件,與拖放有關(guān)的事件是DragDrop和DragOver。把控件(圖標(biāo))拖到目標(biāo)對(duì)象之后，如果松開鼠標(biāo)鍵，則產(chǎn)生一個(gè)DragDrop事件。DragOver事件用于圖標(biāo)的移動(dòng)。當(dāng)拖動(dòng)對(duì)象越過一個(gè)控件時(shí)，產(chǎn)生DragOver事件。,3.方法,按下鼠標(biāo)鍵，不要松開，然后移動(dòng)鼠標(biāo)，對(duì)象將隨鼠標(biāo)的移動(dòng)而在屏幕上拖動(dòng)，松開鼠標(biāo)鍵后，對(duì)象即被放下。,拖放有關(guān)的方法有Move和Drag。Drag方法的格式為：控件.Drag整數(shù),注意：不管控件的DragMode屬性如何設(shè)置，都可以用Drag方法來人工地啟動(dòng)或停止一個(gè)拖放過程。“整數(shù)”的取值為0、1或2，其含義分別為取消拖放、允許拖放或結(jié)束拖放。,上述事件具有相同的參數(shù)：,X、Y坐標(biāo)（不是屏幕的絕對(duì)坐標(biāo)，而是相對(duì)控件的坐標(biāo)）,鼠標(biāo)按鈕的狀態(tài)（左、中、右等）,控制鍵的狀態(tài)（Shift、Ctrl、Alt）,二、自動(dòng)拖放,在程序代碼窗口中的“對(duì)象”框中選擇“Form”，在“過程”框中選擇DragDrop，編寫Form_DragDrop事件過程，將源對(duì)象移到鼠標(biāo)光標(biāo)(x，y)處。,1.步驟：,在窗體上畫一個(gè)控件，例如圖片框，并用DragIcon屬性裝入一個(gè)圖標(biāo)文件。,在屬性窗口中找到DragMode屬性,將其值設(shè)置為“1-Automatic”。,例1：,2.實(shí)現(xiàn)的方法：,在設(shè)計(jì)階段，不要用Picture屬性裝入圖象，而是用DragIcon屬性裝入圖象，方法與Picture類似。,在執(zhí)行階段,通過程序代碼設(shè)置DragIcon屬性。,例10.11在窗體上建立兩個(gè)控件，拖拉其中一個(gè)控件，當(dāng)把它放到第二個(gè)控件上時(shí)，該控件消失，單擊窗體后再度出現(xiàn)。,按照拖放要求，拖動(dòng)過程中應(yīng)把控件變成圖標(biāo)，放下時(shí)再恢復(fù)為控件。,例2：,三、手動(dòng)拖放,1.步驟：,在窗體上建立一個(gè)圖片框,裝入一個(gè)圖標(biāo)（例如Phone02.ico)。,設(shè)置圖片框的DragIcon屬性。,PrivateSubForm_Load()Picture1.DragIcon=Picture1.PictureEndSub,用MouseDown事件過程打開拖拉開關(guān)。,PrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Picture1.Drag1EndSub,關(guān)閉拖拉開關(guān)，停止拖拉，并產(chǎn)生DragDrop事件。,編寫DragDrop事件過程。,PrivateSubPicture1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Picture1.Drag2EndSub,PrivateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSingle)Source.Move(X-Source.Width/2),(Y-Source.Height/2)EndSub,例10.12用手動(dòng)拖放模擬文件操作：從文件夾中取出文件，放入文件柜中，在放入前，先打開文件柜的抽屜，放入后再關(guān)上。,壓下鼠標(biāo)鍵事件過程,SubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)EndSub,松開鼠標(biāo)鍵事件過程,SubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)EndSub,移動(dòng)鼠標(biāo)光標(biāo)事件過程,SubForm_MouseMove(B