vb中键盘鼠标事件

12章键盘与鼠标大事过程VisualBasic应用程序能够响应多种键盘大事和鼠标大事。例如，窗体、图片框与图像控件都能检测鼠标指针的位置，并可判定其左、右键是否已经按下，还能响应鼠标按钮与Shift、CtrlAlt键的各种组合。利用键盘大事可以编程响应多种键盘操作，也可以解释、ASCII字符。VisualBasicOLE的拖放功能，可用控件的Drag方法连同某些属性和大事宋实现控件的拖放操作。OLE的拖放使应用程序的数据交换功能大大增加。术。键盘大事发大事，而且还供给进展数据输入的手段以及在窗口和菜单中移动的根本形式。键盘大事有三种，即KeyPress、KeyUp和KeyDown大事。窗体和可承受键盘输入的控件(如文本框TextBox、命令按钮CommandButton、图片框PictureBox、组合框ComboBox等)都可识别这些大事。值得留意的是，只有获得焦点的对象才能够承受键盘大事。对于窗体，只有成为活动窗体并且窗体中的任何控件均未获得焦点时，才会产生窗体的键盘大事。窗体中任何控件已经获得焦点时，会产生控件的键盘大事。KeyPress大事当用户按下键盘上的某个键时，将触发KeyPress大事。该大事可以用于窗体和大局部标准控件，严格来说，当按下某个键时，所触发的是具有输入焦点(FOCUS)的那个控件的KeyPress大事。在某一时刻，输入焦点只能位于某一个控件上，假设窗体上没有可见或有效的控件，则输入焦点位于窗体上。当一个控件或窗体拥有输入焦点时，该控件或窗体将承受从键盘上输入的信息。例如，假定一个文本框拥有输入焦点，则从键盘上输入的任何字符都将在该文本框上回显。KeyPress大事过程的一般格式是：PrivateSubKeyPress(KeyAsciiasInteger)大事过程EndSub假设承受KeyPress大事的对象为控件数组，对应的大事过程的格式为：PrivateSub对象名_KeyPress(IndexasInteger，KeyAsciiASInteger)大事过程EndSubIndex说明：“对象名”是承受键盘大事的对象的名称，如文本框、窗体等。KeyAsciiKeyPress大事过程的参数，返回用户所按键的ASCII值。如按下小写字母“a97，按下大写字母“A65ASCII值比大写字母32。0～9ASCII48～57KeyPressKeyAscii0，可以取消该字符和这次按键操作。留意：在默认状态下控件的键盘大事优于窗体的键盘大事，冈此在发生键盘大事时，总是先激活控件的键盘大事。假设期望窗体先承受键盘大事，则必需把窗体的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“数字非法!只能输入数字字符。“KeyAscii=0”撤销该字符，也不显示EndIfEndSubKeyDownKeyUp大事KeyDown大事在按下键盘时触发，KeyUp大事则在释放键盘时触发。KeyDown大事和KeyUp大事供给了最低级的键盘响应，可以报告键盘的物理状态。按下某个键时也会触发KeyPressKeyDown大事不同的是，KeyDownKeyUp大事返回的是键盘KeyPess返回的是“字符”的ASCII码。例如，AASCII码，在输入小写“a”时，KeyDown大事获得与“AASCII码，即KeyDown大事不区分大小写，而KeyPressASCII字符处理。KeyDown大事过程的—般格式是：PrivateSub对象名_KeyDown(KeyCodeAsInteger,ShiftAsInteger)大事过程EndSubKeyUp大事过程的一般格式是：PrivateSubKeyUp(KeyCodeAsInteger,ShiftAsInteger)大事过程EndSub说明：“对象名”是窗体和能承受键盘大事的控件的名称。KeyCodeASCII值。Shift是描述Shift、CtrlAlt键的状态的一个整数，Shift参数是一个位域，由3个二进制位组成，最低位(0)Shift键的状态，中间位1)Ctrl键的状态，最高位(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]上档符号键的监测。问题分析：要监测是否按下了键盘上的上档符号键，只使用KeyCode是不够的，需要Shift参数。下面的程序可推断是否按下了“*”键：PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKey8AndShift=1ThenMsgBox“您按下了*键“EndIfEndSubANDShift的值确定是否按下了某个特别键。[12-5]推断是否按下了AltAlt+F6时关闭窗体。Alt+F6组合键：PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyF6AndShift=4ThenUnloadMeEndIfEndSubKeyPressKeyDown／KeyUp大事的区分：KeyPress大事返回的是字符的ASCIIKeyDown／KeyUp返回的是键的代码。例如，按“A”和“a”返回的是同一个KeyCode值，由于它们是同一个键：而对KeyPress来说，按“A”和“aASCII码是不一样的。在KeyDown／KeyUp大事中，为推断Shift参数。KeyPress大事识别的击键范围比KeyDown／KeyUpFll-F12KeyPressKeyDown／KeyUp大事。鼠标大事在Windows应用程序中，与鼠标操作相关的大事较多，除了常用的单击大事Click、双击大事DblClick外，有些程序还需要对鼠标指针的位置和状态变化作出响应，因此需要使MouseDown、MouseUpMouseMove。鼠标大事鼠标大事是由鼠标动作而引起的。三个根本的鼠标大事是：MouseDown大事：按下鼠标按钮时触发。MouseUp大事：释放鼠标时触发。MouseMove大事：移动鼠标光标时触发。鼠标大事过程的一般格式是：PrivateSub对象名—大事名(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)说明：“对象名”可以是窗体及能承受鼠标大事的大多数控件。当鼠标指针位于窗体上时，窗体将识别鼠标大事；当鼠标指针在控件上时，控件将识别鼠标大事。假设按下鼠标按钮个放，则即使指针已移离对象，对象仍将连续识别全部鼠标大事，直到用户释放按钮为止。MouseDown、MouseUpMouseMove。Button33个按钮的状态：假设某个按钮按下，其对应的二进制位就被设置为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参数用来监测键盘上ShiftCtrlAltShift参数一样。(5)X、Y参数表示鼠标指针的坐标位置，X、Y的值与当前对象的坐标系有关。1．MouseDownMouseUp大事MouseDownMouseUP在窗体上的位置，或实现某些图形效果。MouseDown大事与Move方法结合起来使用，就可以将命令按钮移动到窗体的不同位置。鼠标指针的位置打算按钮的位置：在单击窗体的任意位置时，控件将移动到光标位Form_MouseDown将执行此操作：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大事发生时，则以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大事不断发生，但并不是对鼠标经过的每个像素都会触发。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大事，当鼠标按下时触发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函数加载图形文件设置。可以使用图标或光标文件宋设置鼠标指针。图标就是．icoVisualBasic的图标文件一样。光标就是．cur文件，本质上像图标一样是位图，但是，光标主要是表示鼠标指针的外形而创立的。拖放操作在运行Windows程序时，可以使用鼠标拖放功能便利地转变某些对象的位置，这种操作称为拖放。拖放的一般过程是：把鼠标光标移到一个对象上，按厂鼠标键，不要松开，然来位置的对象称为源对象，而拖动后放下的位置的对象称为目标对象，在拖动过程中，被拖动的对象变为灰色。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大事是当拖放操作正在进展时发生。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程序执行时，将鼠标放在文本框上，鼠标指针变成书的图标，然后可以将文本框拖到位置。将鼠标放在分组框上，鼠标指针变成机图标，然后可以将分组框拖到位置。程序的执行结果如图12-7所示。由于屏幕硬拷贝不能包括鼠标指针，所以图中见不到“书”和“机”图标。12-7拖放操作例如程序的执行结果OLE拖放OLEVisualBasic供给的最强大、最有用的功能之一，支持在控件和控件之间、Windows应用程序之间拖动文本和图形。OLE拖放包括从对象拖动数据和将拖动数据放入对象。VisualBasicOLE拖放。OLE拖放也分为自动拖放和手动拖放。自动拖放无需编写任何代码，因此比较简洁实现。[12-11]文字的拖放。EXEForm1窗体中添加两个文本框Text1Text2，输入以下代码：PrivateSubForm_LoadText1.OLEDragMode=1 ”自动拖动源Text2.OLEDropMode=2 ”OLE拖放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，应执行的操作为 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在某个程序中想要把鼠标的光标变为沙漏外形则Mousepointer的值应为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