vb中鍵盤鼠標事件

12章鍵盤與鼠標大事過程VisualBasic應用程序能夠響應多種鍵盤大事和鼠標大事。例如，窗體、圖片框與圖像控件都能檢測鼠標指針的位置，并可判定其左、右鍵是否已經按下，還能響應鼠標按鈕與Shift、CtrlAlt鍵的各種組合。利用鍵盤大事可以編程響應多種鍵盤操作，也可以解釋、ASCII字符。VisualBasicOLE的拖放功能，可用控件的Drag方法連同某些屬性和大事宋實現控件的拖放操作。OLE的拖放使應用程序的數據交換功能大大增加。術。鍵盤大事發(fā)大事，而且還供給進展數據輸入的手段以及在窗口和菜單中移動的根本形式。鍵盤大事有三種，即KeyPress、KeyUp和KeyDown大事。窗體和可承受鍵盤輸入的控件(如文本框TextBox、命令按鈕CommandButton、圖片框PictureBox、組合框ComboBox等)都可識別這些大事。值得留意的是，只有獲得焦點的對象才能夠承受鍵盤大事。對于窗體，只有成為活動窗體并且窗體中的任何控件均未獲得焦點時，才會產生窗體的鍵盤大事。窗體中任何控件已經獲得焦點時，會產生控件的鍵盤大事。KeyPress大事當用戶按下鍵盤上的某個鍵時，將觸發(fā)KeyPress大事。該大事可以用于窗體和大局部標準控件，嚴格來說，當按下某個鍵時，所觸發(fā)的是具有輸入焦點(FOCUS)的那個控件的KeyPress大事。在某一時刻，輸入焦點只能位于某一個控件上，假設窗體上沒有可見或有效的控件，則輸入焦點位于窗體上。當一個控件或窗體擁有輸入焦點時，該控件或窗體將承受從鍵盤上輸入的信息。例如，假定一個文本框擁有輸入焦點，則從鍵盤上輸入的任何字符都將在該文本框上回顯。KeyPress大事過程的一般格式是：PrivateSubKeyPress(KeyAsciiasInteger)大事過程EndSub假設承受KeyPress大事的對象為控件數組，對應的大事過程的格式為：PrivateSub對象名_KeyPress(IndexasInteger，KeyAsciiASInteger)大事過程EndSubIndex說明：“對象名”是承受鍵盤大事的對象的名稱，如文本框、窗體等。KeyAsciiKeyPress大事過程的參數，返回用戶所按鍵的ASCII值。如按下小寫字母“a97，按下大寫字母“A65ASCII值比大寫字母32。0～9ASCII48～57KeyPressKeyAscii0，可以取消該字符和這次按鍵操作。留意：在默認狀態(tài)下控件的鍵盤大事優(yōu)于窗體的鍵盤大事，岡此在發(fā)生鍵盤大事時，總是先激活控件的鍵盤大事。假設期望窗體先承受鍵盤大事，則必需把窗體的KeyPreviev屬性設置為TrueKeyPress[12-1]將輸入到文本框中的全部字符都強制轉換為大寫字符。KeyPress大事將輸入的每一個字符轉換為大寫。程序代碼：PrivateSubText1_KeyPress(KeyAsciiAsInteger)KeyAscii=Asc(UCase(Chr(KeyAscii)))EndSubKeyAsciiASCIIChrASCI：碼轉換成對應的字符，UCase函數將字符轉換為大寫，AscASCII碼。[12-2]限制在文本框中輸入的字符為數值。KeyPress大事將輸入的每一個字符進展推斷，當用戶按下的不是04之間的鍵時，使用KeyPress大事給用戶進展提示，并使輸入的值不在文本框中顯示出來。PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48orKeyAscii>57Then”0～9MsgBox“數字非法!只能輸入數字字符?！癒eyAscii=0”撤銷該字符，也不顯示EndIfEndSubKeyDownKeyUp大事KeyDown大事在按下鍵盤時觸發(fā)，KeyUp大事則在釋放鍵盤時觸發(fā)。KeyDown大事和KeyUp大事供給了最低級的鍵盤響應，可以報告鍵盤的物理狀態(tài)。按下某個鍵時也會觸發(fā)KeyPressKeyDown大事不同的是，KeyDownKeyUp大事返回的是鍵盤KeyPess返回的是“字符”的ASCII碼。例如，AASCII碼，在輸入小寫“a”時，KeyDown大事獲得與“AASCII碼，即KeyDown大事不區(qū)分大小寫，而KeyPressASCII字符處理。KeyDown大事過程的—般格式是：PrivateSub對象名_KeyDown(KeyCodeAsInteger,ShiftAsInteger)大事過程EndSubKeyUp大事過程的一般格式是：PrivateSubKeyUp(KeyCodeAsInteger,ShiftAsInteger)大事過程EndSub說明：“對象名”是窗體和能承受鍵盤大事的控件的名稱。KeyCodeASCII值。Shift是描述Shift、CtrlAlt鍵的狀態(tài)的一個整數，Shift參數是一個位域，由3個二進制位組成，最低位(0)Shift鍵的狀態(tài)，中間位1)Ctrl鍵的狀態(tài)，最高位(2)表示AltVisualBasicvbShiftMaskvbCtrlMask、vbAltMask12-1列出了Shift參數的取值。12-1Shift參數的取值及含義十進制數二進制數十進制數二進制數VB000031001vbShinMaskShift2010vbCtrlMaskCtrl3011vbShinMask+vbCtrlMaskShiftCtrl4100vbAltMaskAlt5101vbShinMask+vbAltMaskShiftAlt6110vbCtrlMask+vbAltMaskCtrlAlt7111vbShinMask+vbCtrlMask+vbAltMask3[12-3]推斷是否按下了某個鍵。以下程序代碼可推斷是否按下了“A”鍵：PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyAThenMsgBox“YouPressedtheAkey“EndSub請讀者用KeyPress大事過程實現類似功能，考慮一下有什么不同。[12-4]上檔符號鍵的監(jiān)測。問題分析：要監(jiān)測是否按下了鍵盤上的上檔符號鍵，只使用KeyCode是不夠的，需要Shift參數。下面的程序可推斷是否按下了“*”鍵：PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKey8AndShift=1ThenMsgBox“您按下了*鍵“EndIfEndSubANDShift的值確定是否按下了某個特別鍵。[12-5]推斷是否按下了AltAlt+F6時關閉窗體。Alt+F6組合鍵：PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyF6AndShift=4ThenUnloadMeEndIfEndSubKeyPressKeyDown／KeyUp大事的區(qū)分：KeyPress大事返回的是字符的ASCIIKeyDown／KeyUp返回的是鍵的代碼。例如，按“A”和“a”返回的是同一個KeyCode值，由于它們是同一個鍵：而對KeyPress來說，按“A”和“aASCII碼是不一樣的。在KeyDown／KeyUp大事中，為推斷Shift參數。KeyPress大事識別的擊鍵范圍比KeyDown／KeyUpFll-F12KeyPressKeyDown／KeyUp大事。鼠標大事在Windows應用程序中，與鼠標操作相關的大事較多，除了常用的單擊大事Click、雙擊大事DblClick外，有些程序還需要對鼠標指針的位置和狀態(tài)變化作出響應，因此需要使MouseDown、MouseUpMouseMove。鼠標大事鼠標大事是由鼠標動作而引起的。三個根本的鼠標大事是：MouseDown大事：按下鼠標按鈕時觸發(fā)。MouseUp大事：釋放鼠標時觸發(fā)。MouseMove大事：移動鼠標光標時觸發(fā)。鼠標大事過程的一般格式是：PrivateSub對象名—大事名(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)說明：“對象名”可以是窗體及能承受鼠標大事的大多數控件。當鼠標指針位于窗體上時，窗體將識別鼠標大事；當鼠標指針在控件上時，控件將識別鼠標大事。假設按下鼠標按鈕個放，則即使指針已移離對象，對象仍將連續(xù)識別全部鼠標大事，直到用戶釋放按鈕為止。MouseDown、MouseUpMouseMove。Button33個按鈕的狀態(tài)：假設某個按鈕按下，其對應的二進制位就被設置為10。將三位二進Button的值。Button參數最低位(0)對應左按鈕，中間位(位1)對應右按鈕，最高位(2)12-2給出了Button參數的取值及對應的含義。12-2MouseMoveButton參數的取值及含義十進制數二進制數常數意義00003個鍵都沒有按下1001vbLeftButton按下左按鈕2010vbRi~htButton按下右按鈕301lvbLeftButton+vbRightButton同時按下左、右按鈕4100vbMiddleButton按下中間按鈕5101vbLeftButton+vbMiddleButton同時按下左、中間按鈕6110vbRightButton+vbMiddleButton同時按下右、中間按鈕7111vbLeftButton+vbRightButton+vbMiddleButton3個按鈕同時按下Shift參數用來監(jiān)測鍵盤上ShiftCtrlAltShift參數一樣。(5)X、Y參數表示鼠標指針的坐標位置，X、Y的值與當前對象的坐標系有關。1．MouseDownMouseUp大事MouseDownMouseUP在窗體上的位置，或實現某些圖形效果。MouseDown大事與Move方法結合起來使用，就可以將命令按鈕移動到窗體的不同位置。鼠標指針的位置打算按鈕的位置：在單擊窗體的任意位置時，控件將移動到光標位Form_MouseDown將執(zhí)行此操作：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Command1.MoveX,YEndSub[12-6]在窗體中畫線。MouseDownMouseUp大事，然后在鼠標按鈕被釋放的位置消滅另一個端點。Line方法即可畫線。程序代碼為：DimX1,Y1PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)X1=X:Y1=YEndSubPrivateSubFormMouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Line(X1,Y1)-(X,Y)EndSubMouseDownX1Y1MouseUp大事發(fā)生時，則以X1，Y1為起點坐標，當前鼠標指針位置X，Y為終點，繪制一條直線，如圖12-1所示。12-1結合MouseUpMouseDown大事畫直線[12-7]在窗體上建一個名稱為List1的列表框和一個名稱為Text112-2所示。編寫窗體的MouseDown大事過程，程序運行后，假設用鼠標左鍵單擊窗體，則從鍵盤中輸入要添加到列表框中的工程(3項)：假設剛鼠標右鍵單擊窗體，則11-3所示。12-2程序界面設計12-3程序運行結果程序代碼如下：PrivateSubFormMouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YASSingle)IfButton=1ThenText1.Text=InputBox(“請輸入要添加的工程“)List1.AddltemText1.TextEndIfIfButton=2ThenText1.Text=InputBox(“請輸入要刪除的工程“)ForI=0ToList1.ListCount-1List1.List(1)=Text1.TextThenList1.RemoveltemIEndIfNextIEndIfEndSub2．MouseMove大事MouseMove大事，窗體和控件均能識別該大事。當移動鼠標時，MouseMove大事不斷發(fā)生，但并不是對鼠標經過的每個像素都會觸發(fā)。Form_MouseMoveCircle方法：PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XASSingle,YAsSingle)Circle(X,Y),50EndSub12-4MouseMove大事越少。眾多圓圈擠在一起，說明鼠標在此位置移動緩慢。12-4MouseMove大事留意：MouseMove大事，因此MouseMove大事不應去做需要大量時間的工作。ButtonMouseMoveMouseDown、MouseUp大事不同，MouseMoveButtonMouseDownMouseUpButton值無法檢測是否同時按下兩個以上的按鍵。[12—8]制作一個簡潔的畫圖程序，使其具有繪畫、擦除功能。問題分析：在窗體中添加一個圖片框Picture1，兩個按鈕(數組形式)12-5所示。Picture1中按下鼠標左鍵后拖動就可以隨便地畫線或寫字，釋放鼠標后就停頓畫線。單擊擦除按鈕可通過畫一個白色的圓點將圖像擦除。12-5畫圖程序代碼如下：OptionExplicitDimMouseStateAsIntegerDimIsdrawASBooleanPdvateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0 ”單擊繪畫按鈕MouseState=1Case1 ”單擊擦除按鈕MouseState=2EndSelectEndSubPrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1AndMouseState=2ThenPicture1.FillStyle=0Picture1.FillColor=RGB(255,255,255)Picture1.ForeCOlOr=RGB(255,255,255)Picture1.Circle(X,Y),50ElseIFButton=1AndMouseState=1ThenISdraw=TruePicture1.CurrentX=XPicture1.CurrentY=YEndIfPiCture1.AutoRedraw=TrueEndSubPrivateSubPicture1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Picture1.ForeColor=RGB(0,0,0)IfIsdrawAndMOuseState=1ThenPicture1.Line-(X,Y)EndIfEndSubPrivateSubPicture1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1AndMouseState=1ThenIsdraw=FalseEndSub程序中同時使用了MouseMove，MouseDown和MouseUP大事，當鼠標按下時觸發(fā)MouseDownMouseMove大事，線的起點為上次的終點。當鼠標釋MOUseUpIsdrawFalse就不能畫線。員標指針WindowsIVisualBasicMousePointerMouseIcon屬性來設置鼠標指針的外形。1．MousePointer屬性對象的MousePointerMousePointer12-30-DefaultWindows箭頭指針。12-2MousePointer屬性的取值和鼠標指針的外形常量值外形vbDefault0(默認值)外形由對象打算vbArrow1箭頭vbCrosshair2十字線VbIconPointer3I型vblbeam4圖標(嵌套方框)vbSizePointer5尺寸線(4個)VbSizeNWSE6左上-右下尺寸線VbSizeWE7水平尺寸線vbUpArrow8向上的箭頭vbHourglass9沙漏vbNoDrop10沒有入口：一個圓形記號vbArrowHourglass11箭頭和沙漏VbSizeNESW12左上-右下尺寸線VbSizeNS12垂直尺寸線vbArrowQuestion14箭頭和問號vbSizeAll15四向尺寸線vbCustom99MouseIcon屬性指定的自定義圖標Text1時鼠標的指針為I型：Text1.MousePointer=32．MouseIcon屬性MousePointer99時，可以用MouseIcon屬性將鼠標指針設置為任意外形。設置MouseIconLoadPicture函數加載圖形文件設置?？梢允褂脠D標或光標文件宋設置鼠標指針。圖標就是．icoVisualBasic的圖標文件一樣。光標就是．cur文件，本質上像圖標一樣是位圖，但是，光標主要是表示鼠標指針的外形而創(chuàng)立的。拖放操作在運行Windows程序時，可以使用鼠標拖放功能便利地轉變某些對象的位置，這種操作稱為拖放。拖放的一般過程是：把鼠標光標移到一個對象上，按廠鼠標鍵，不要松開，然來位置的對象稱為源對象，而拖動后放下的位置的對象稱為目標對象，在拖動過程中，被拖動的對象變?yōu)榛疑?。VisualBasic支持兩種拖放，即控件拖放和OLE拖放。拖放包括兩個操作：按下鼠標按鈕并移動控件的操作叫拖動(Dragging)，釋放按鈕的操作叫放下(Dropping)。控件拖放VisualBasic中，除菜單、計時器、對話框控件、圖形控件等以外的控件都支持拖放。下面介紹與控件拖放有關的屬性、大事和方法。屬性(1)DragMode屬性該屬性用來設置控件的拖放模式，共有兩種：自動拖動模式(Automatic)和手動拖動模式(Manual)DragMode0(默認值)DragMode1時表示自動拖動。DragMode1，則啟用自動拖動模式。當用戶在源對象上按下鼠標左鍵同DragDrop大事。值得留意的是：假設沒有進展代碼設計，對象不會移動到的位置上或加到目標對象中，用戶肯定要在目標對象的DragDrop大事中進展程序設計才能實現真正的拖放。在源對象被拖到目標對象上的過程中，假設經過其他對象，則在這些對象上產生DragOverDragOverDragDrop之前。DragMode1時，它不能再承受ClickMouseDown大事。DragMode0，則啟動手工拖動模式，此時，必需在MouseDown大事過DragDragMode0ClickMouseDown大事，其他狀況與自動拖動模式一樣。(2)DragIcon屬性在拖動控件的過程中，被拖動的控件并沒有移動，隨鼠標移動的是代表該控件的圖標。拖動控件時，VisualBasicDragIcon屬性進展設DragIconMouseIcon屬性類似。大事(1)DragDrop大事將源控件(圖標)DragDropDragDrop大事過程的一般格式為：PrivateSub對象名_DragDrop(SourceAsControl,XasSingle,YAsSingle)說明：①對象名是指鼠標指針所指的目標對象名。②Source參數為正在被拖動的控件(源對象)，可在大事過程中設置和使用該控件的屬性和方法。例如：Source．Enabled=False③X、Y是拖放完畢時鼠標指針的位置。(2)DragOver大事在拖動對象的過程中，當鼠標指針越過一個控件時，被越過的控件將產生DragOver大事。DragOver大事是當拖放操作正在進展時發(fā)生。DragOver大事過程的一般格式是：PrivateSub對象名_DragOver(SourceAsControl,XAsSingle,YAsSingle,StateAsInteger)說明：①Source，x，yDragDrop大事一樣。②State0(vbEnter)表示鼠標指針正在進入目標對象：假設為1(vbLeave)表示正在離開目標對象；假設為2(vbOver)表示正經過目標對象。TypeOf由于當源對象被拖放時，源對象作為Source參數傳入大事過程中，Source為對象變量，它相應的方法進展操作。語法格式為：IfTypeOf對象變量Is控件類型Then其中，TypeOf函數的返回值為對象變量所引用控件的類型。[12-9]自動方式拖放圖片。EXEForm1Picture1和Picture2Picture1Picture12-6所示。12-6拖放圖片程序代碼為：PrivateSubForm_LoadPicture1.DragMode=1”自動拖放EndSubPrivateSubPicture2_DragDrop(SourceAsControl,XAsSingle,YAsSingle)IfTypeOfSourceIsPictureBoxThen 源對象是葉；是圖片框Picture2.Picture=Source.PictureEndIfEndSubDrag方法Drag方法用于代碼中對象的拖放行為，其語法格式如下：對象名．DragActionAction12-4使示。12-4Drag方法中Action參數的取值及其含義常數常數VbCancelVbBeginDragVbEnddrag值012含義取消指定控件的拖放Drag方法消滅在控件的大事過程中時，允許拖放指定的控件DrasDroP大事ActionVbBeginDragDragAction參VbEnddragDragDropVbCancel則取DragDrop事什。[12-10]拖放操件應用程序例如。啟動一個的工程，在窗體卜添加一個文本框，一個分組 框。然后這兩個控件的DragMode屬性都改成1—Automatic。文本框的DragIcon屬性足“d：\VB教程\拖放操作＼BOO．ic，分組框的DragIcon屬性是“d\VB教程\拖放操作\phone0．IC。將窗體的Caption屬性設置為“拖放文本框的圖標是“書，拖放分組框的圖標是“機。將下過程添加到窗體的DragDrop大事中：PrivateSubForm_DragDrop(sourceAscontrol,XAsSingle,YAsSingle)Source.MoveX,YEndSub程序執(zhí)行時，將鼠標放在文本框上，鼠標指針變成書的圖標，然后可以將文本框拖到位置。將鼠標放在分組框上，鼠標指針變成機圖標，然后可以將分組框拖到位置。程序的執(zhí)行結果如圖12-7所示。由于屏幕硬拷貝不能包括鼠標指針，所以圖中見不到“書”和“機”圖標。12-7拖放操作例如程序的執(zhí)行結果OLE拖放OLEVisualBasic供給的最強大、最有用的功能之一，支持在控件和控件之間、Windows應用程序之間拖動文本和圖形。OLE拖放包括從對象拖動數據和將拖動數據放入對象。VisualBasicOLE拖放。OLE拖放也分為自動拖放和手動拖放。自動拖放無需編寫任何代碼，因此比較簡潔實現。[12-11]文字的拖放。EXEForm1窗體中添加兩個文本框Text1Text2，輸入以下代碼：PrivateSubForm_LoadText1.OLEDragMode=1 ”自動拖動源Text2.OLEDropMode=2 ”O(jiān)LE拖放EndSub運行程序，文本框中輸入假設干字符，用鼠標選中Text1中的局部字符，然后拖動這些選Text2上，釋放鼠標。習題十二一．選擇題1．編寫如下大事過程：PrivateSubForm_KeyPress(KeyAsciiAsInteger)PrintChr(KeyAscii);Print(KeyAscii)EndSub運行程序，按下“a”鍵輸出結果為 (B)a65 。(A)A65 (B)a65 (C)65A (D)65a2，在窗體上畫一個命令按鈕和 個文本框，并把窗體的KeyPress屬性設置為True，然后編寫如下代碼：DimAllAsStringPrivateSubCommand1_ClickText1.text=Ucase(A11)EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)All=All+Chr(KeyAscii)EndSub程序運行后在鍵盤上輸Hell單擊命令按鈕則文本框中顯示的內容為 (A)HELLO (B)Hello (C)不顯示任何信息 (D)出錯3．編寫如下大事過程：PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)：PrintKeyCodeEndSub運行程序后，按下“E”輸出為 。(A)E69 (B)e69 (C)69E (D)69eKeyPreview屬性設置為True，然后編寫如下過程：PrivateSubForm_KeyDown(KeyCodeASInteger,ShiftAsInteger)Printchr(KeyCode)；EndSubPrivateSubForm_KeyUp(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode+32)EndSub當按下“a”時，輸入為 。(A)Aa (B)A，A (C)a,a (D)a，A編寫以下大事過程：PrivateSubForm_KeyUp(KeyCodeAsInteger,ShiftAsInteger)KeyCode=KeyCode+32PrintUcase(Chr(KeyCOde))EndSub運行程序，當按下“A”鍵時，輸出為 A 。(A)A (B)65 (C)a (D)97編寫如下大事程序：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)IfShift=3AndButton=2ThenPrint“BBBB“EndIfEndSub運行后，為了在窗體上輸出“BBB，應執(zhí)行的操作為 D 。(A)同時按下Shitt鍵和鼠標左鍵。 (B)同時按下Shin鍵和鼠標右鍵。(C)同時按下Ctrl，Alt和鼠標左鍵。 (D)同時按下Ctrl，Shift和鼠標右鍵。7．編寫如下程序：DimsumAsIntegerPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Thensum=sum+1ElseIfButton=2ThenSum=sum-1EndIfEndSubPrivateSubCommand1_ClickPrintsumEndSub運行程序，當鼠標在窗體上左擊3次，右擊1次，再單擊按鈕，輸出為 A 。(A)l (B)-1 (C)2 (D)4編寫以下程序：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfShift=AndButton=ThenPrint“HELLO“EndIfEndSub運行程序后，當同時按下Shift鍵和Alt鍵并用鼠標左擊時，輸出“HELLO”，請選擇程序中Shift和Button參數的值 D 。(A)1,3 (B)2,1 (C)3,2 (D)5,1在某個程序中想要把鼠標的光標變?yōu)樯陈┩庑蝿tMousepointer的值應為D 。(A)1 (B)3 (C)14 (D)11二．填空題1KeyPress大事過程時，KeyAscii表示按鍵的ASCIIA碼值。2KeyPreview屬性設胃為True，并編寫如下大事過程：PrivateSubForm_KeyPress(KeyAsciiAsInteger)PrintKeyAsciiEndSub當按下“a”鍵時，輸出為65 3．在窗體上畫一個文本框，然后編寫如下過程：PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimchaAsStringCha=Chr(KeyAscii)KeyAscii=Asc(Ucase(cha))Text1.text=String(6,KeyAscii)EndSub運行程序后，假設在鍵盤上輸入“，則文本框中顯示的內容為AAAAAAA 4．PrivateSubForm_LoadShowText2.Text=““Text1.Text=““Text.SetFocusEndSubP