第9章鼠标、键盘和OLE控件

程序设计教程第9章鼠标、键盘和OLE控件VisualBasic学习目标OLE控件使用了解常用的鼠标事件MouseDown、MouseUp、MouseMove常用键盘响应事件KeyPress、KeyDown、KeyUp拖放操作的常用属性及事件掌握鼠标、键盘事件、拖放操作的应用熟悉目录9.1鼠标键盘事件拖放使用OLE控件9.29.39.49.5

程序举例9.1鼠标鼠标常用鼠标事件鼠标事件的语法格式示例鼠标常用鼠标事件鼠标事件的语法格式示例大多数控件可识别的鼠标事件除了前面章节中多次使用的Click和DblClick事件之外，还包括：MouseDown事件；MouseUp事件；MouseMove事件。我们可以使用这些事件使应用程序对鼠标位置及状态的变化作出响应。鼠标PrivateSubObject_鼠标事件(ButtonasInteger,ShiftasInteger,XasSingle,YasSingle)EndSub注意事项：（1）Button参数用来确定按下了哪个按钮或哪些按钮，其取值范围是0~7的整数。其中Button参数值为1，则按下了左键；Button参数值为2，则按下了右键；Button参数值为4，则按下了中键；其相应的VB常数分别为vbLeftButton，vbRightButton，vbMiddleButton。这些值的总和代表这些按钮的组合。例如，同时按下左右按钮的Button参数值为3（1+2）。常用鼠标事件鼠标事件的语法格式示例鼠标（2）Shift参数表示当鼠标键被按下或被释放时，是否同时被按下了Shift、Ctrl、Alt键。其取值范围1~7的整数。Shift参数值为1，则按下了Shift键；Shift参数值为2，则按下了Ctrl键；Shift参数值为4，则按下了Alt键；其相应的VB常数分别为vbShiftMask，vbCtrlMask，vbAltMask。这些值的总和代表这些键的组合。例如，同时按下Shift和Alt键的Shift参数值为5（1+4）。（3）x，y：用来确定鼠标按下时鼠标的当前坐标位置。常用鼠标事件鼠标事件的语法格式示例鼠标例8-1编写一个在窗体上可用鼠标画不同线条宽度的任意曲线程序。分析：MouseDown事件是三种鼠标事件中最常用的事件，按下鼠标按钮时就可触发此事件。释放鼠标按钮时，MouseUp事件被触发。鼠标指针在屏幕上移动时就会触发MouseMove事件。当鼠标指针处在窗体和控件的边框内，窗体和控件均能识别MouseMove事件。MouseDown事件、MouseUp事件和MouseMove事件搭配使用，往往相得益彰。常用鼠标事件鼠标事件的语法格式示例常用鼠标事件鼠标事件的语法格式示例鼠标程序界面如下：鼠标编写程序代码如下：DimdrAsBoolean'设定画线状态PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)dr=True'设定画线状态Form1.DrawWidth=Val(Text1.Text)'设定线条宽度CurrentX=X'设定当前横坐标CurrentY=Y'设定当前纵坐标EndSub'通过移动鼠标画线PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfdrThenLine-(X,Y)'画线EndIfEndSub常用鼠标事件鼠标事件的语法格式示例PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)dr=False'取消画线EndSub'通过滚动条调整线条宽度PrivateSubVScroll1_Change()Text1.Text=VScroll1.ValueEndSubPrivateSubCommand1_Click()Cls'清屏EndSub常用鼠标事件鼠标事件的语法格式示例鼠标9.2键盘事件键盘事件常用键盘事件键盘事件的语法格式示例键盘事件是用户敲击键盘时触发的事件，一般用来检测输入数据的合法性或对于不同键值的输入实现不同的操作。VB中常用的键盘事件有：KeyPress事件，KeyDown事件，KeyUp事件。键盘事件

1.KeyPress事件

当用户按下和松开一个ASCII字符键时发生KeyPress事件(即KeyPress事件只对能产生ASCII码的按键有反应)。该事件被触发时，被按键的ASCII码将自动传给事件过程的KeyAscii参数。在程序中，通过访问该参数，即可获知用户按下了哪个键。其语法格式为：PrivateSubObject_KeyPress(KeyAsciiasInteger)EndSub常用键盘事件键盘事件的语法格式示例键盘事件

1.KeyPress事件注意事项：

Object为可以产生KeyPress事件的对象；KeyAscii参数为按键相对应的字符ASCII码值，大小写字母的值不同。将KeyAscii改变为0时，可取消击键，这样对象便接收不到所按键的字符。具有焦点的对象才能接收该事件，如设置Text1.SetFocus，Text1_KeyPress事件才可以响应。常用键盘事件键盘事件的语法格式示例键盘事件

2.KeyDown和KeyUp事件KeyDown和KeyUp事件是当一个对象具有焦点时按下或松开一个键时发生的。当控制焦点位于某对象时，按下键盘的任意一键，则会在该对象上触发产生KeyDown事件，释放该键时，将触发产生KeyUp事件，之后产生KeyPress事件。KeyDown和KeyUp事件的格式：PrivateSubObject_KeyDown(KeyCodeasInteger,ShiftasInteger)PrivateSubObject_KeyUp(KeyCodeasInteger,ShiftasInteger)常用键盘事件键盘事件的语法格式示例键盘事件

2.KeyDown和KeyUp事件注意事项：（1）KeyCode参数：是按键的扫描码,它的值只与按键在键盘上的物理位置有关，与键盘的大小写状态无关。（2）Shift参数，同鼠标事件的Shift参数取值，指示Shift、Ctrl、Alt键的状态。只有检查此参数才能判断输入的是大写字母还是小写字母。（3）虽然KeyDown和KeyUp事件可以应用于大多数键，但一般用来处理不被KeyPress识别的击键，如功能键、编辑键、定位键以及任何这些键和键盘换挡键的组合等。（4）Tab键不能引用KeyDown和KeyUp事件；命令按钮的Default属性设置为True时，Enter键不能引用KeyDown和KeyUp事件；命令按钮的Cancel属性设置为True时，Esc键不能引用KeyDown和KeyUp事件；常用键盘事件键盘事件的语法格式示例键盘事件【例9-2】在文本框中输入用户的用户名和密码，并在输入时检测按键的有效性，要求用户名必须为字母构成，长度不超过8位，密码的长度不得少于4位。常用键盘事件键盘事件的语法格式示例程序界面如下：键盘事件常用键盘事件键盘事件的语法格式示例编写程序代码如下：“确定”按钮Command1的Click事件为：PrivateSubCommand1_Click()IfTrim(Text1.Text)="admin"AndTrim(Text2.Text)="123456"ThenMsgBox"合法用户，请继续使用！"ElseMsgBox"非法用户，请重新登录！"EndEndIfEndSub“取消”按钮Command2的Click事件为：PrivateSubCommand2_Click()EndEndSub键盘事件文本框Text1的KeyPress事件为：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<65OrKeyAscii>122Or(KeyAscii<97AndKeyAscii>90)OrLen(Trim(Text1.Text))>8ThenMsgBox"用户名长度长于8位或含有非字母字符",vbOKOnly,"输入出错!"KeyAscii=0Text1.SetFocusEndIfEndSub文本框Text2的Validate事件为：PrivateSubText2_Validate(CancelAsBoolean)IfLen(Trim(Text2.Text))<4ThenMsgBox"密码长度小于4位",vbOKOnly,"输入出错!"Text2.Text=""Cancel=TrueEndIfEndSub常用键盘事件键盘事件的语法格式示例键盘事件【例9-3】使用Keydown事件及Shift参数来区分字符的大小写。常用键盘事件键盘事件的语法格式示例程序界面如下：键盘事件常用键盘事件键盘事件的语法格式示例编写程序代码如下：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)'vbKeyA是键盘a的键盘代码常数，Shift=1表示检测到Shift键IfKeyCode=vbKeyAAndShift=1ThenDimbAsIntegerb=MsgBox("你按下了大写A键",vbOKOnly,"确认框")EndIfEndSub

键盘事件常用键盘事件键盘事件的语法格式示例KeyPressKeyDown和KeyUp事件发生的时间输入一个ASCII字符按任意一个键参数值KeyAscii接收到字符的ASCII值KeyCode接收到键的扫描码按Shift+A时事件发生的次数事件发生一次事件发生两次按Shift+A时参数值(键盘处于大写状态)97第一次是16第二次是65按Shift+A时参数值(键盘处于小写状态)65第一次是16第二次是65KeyPress与KeyDown和KeyUp事件的有很大的区别。键盘事件的具体说明如下表的

键盘事件说明9.3拖放拖放拖放包括两个操作：拖动(Drag)：指按下鼠标并拖着控件移动；放下(Drop)：指释放鼠标键。在拖放操作中，通常把原来位置的对象为源对象，将要放下位置处的对象为目标对象。1.拖放的概念拖放与拖放有关的属性有：DragMode和DragIcon。（1）DragMode属性功能：确定拖放操作方式是自动方式还是手动方式，取值为0或1。0：(缺省)，手工拖动模式；1：自动拖动模式。DragMode属性为1时，则该对象不再接收Click事件和MouseDown事件。（2）DragIcon属性拖动过程中显示的图标(.ico或.cur文件)。可以在程序中用LoadPicture()函数加载或通过其他控件的Picture属性赋值。2.拖放的属性拖放(1)DragDrop事件当一个控件拖动到一个目标对象上时，触发DragDrop事件。其语法格式为：PrivateSubObject_DragDrop(SourceasControl,XasSingle,YasSingle)说明：Source：指正在被拖动的控件，即源对象。X，Y：是松开鼠标键时鼠标指针在目标对象中的坐标值。3.拖放的事件拖放(2)DragOver事件当拖动对象越过一个控件时便触发该控件的DragOver事件。其语法格式为：PrivateSubObject_DragOver(SourceasControl,XasSingle,YasSingle,StateasInteger)说明：Object：表示拖放操作过程中源对象所处位置下方的控件。Source、X、Y参数含义同DragDrop事件。State：表示源对象被拖动的状态。取值为0、1、2，分别表示鼠标光标正进入控件的区域、正退出控件的区域及正位于控件的区域之内。3.拖放的事件拖放与拖放有关的方法是Drag方法。当DragMode为0时，才需用Drag方法启动拖放。当然，也可对DragMode属性设置为1的对象使用Drag方法。其语法格式为：Object.Drag[Action]说明：（1）Action是一个数值，取0、1、2。0：其常数为vbCancel，表示取消拖放操作；1(缺省)：其常数为vbBeginDrag，表示开始拖放操作；2：其常数为vbEndDrag，表示结束拖放操作。（2）只有在控件没有焦点时才能被拖动。为防止控件获得焦点，可将TabStop属性设置为False。4.拖放的方法拖放【例9-4】设计一个应用程序。窗体上有三个控件，分别是图像框(笑脸)控件，命令按钮(安装)控件和图片框(回收站)控件，要求图像框和命令按钮控件可以在窗体中随意拖动到不同的位置。当把图像框拖到图片框(回收站)上释放鼠标左键时，提示是否删除该对象，若选择删除，则窗体中图像框消失，图片框中回收站图片改变。若将命令按钮拖到图片框上释放鼠标左键时，提示“不能删除此对象”信息。分析：

在窗体上分别拖动三个控件：Image1、Picture1、Command1，并分别设置Picture属性和TabStop属性设为False。拖放程序界面如下图所示：拖放PrivateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSingle)'将拖放的源对象移到新位置Source.MoveX-Source.Width/2,Y-Source.Width/2EndSubPrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then'判断是否按下左键Picture1.Drag1'手工启动拖放EndIfEndSub编写程序代码如下：拖放PrivateSubCommand1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then'判断是否按下左键Command1.Drag1'手工启动拖放EndIfEndSubPrivateSubImage1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then'判断是否按下左键Image1.Drag1'手工启动拖放EndIfEndSub程序代码续1拖放PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)IfTypeOfSourceIsImageThen'判断拖动源的类型IfMsgBox("确实要删除此对象吗？",vbYesNo,"操作提示")=vbYesThenPicture1.Picture=LoadPicture(App.Path+"\RECYFULL.ICO")Source.Visible=False'隐藏源控件ElseImage1.Drag0'取消控件的拖放操作EndIfElseMsgBox"对不起，此对象不能删除！"EndIfEndSub程序代码续2拖放PrivateSubCommand1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)IfTypeOfSourceIsImageThenIfMsgBox("确实要删除此对象吗？",vbYesNo,"操作提示")=vbYesThenPicture1.Picture=LoadPicture(App.Path+"\RECYFULL.ICO")Source.Visible=FalseElseImage1.Drag0EndIfElseMsgBox"对不起，此对象不能删除！"EndIfEndSub程序代码续3

9.4使用OLE控件使用OLE控件VB提供了一个OLE容器控件（在工具箱中），用于容纳“链接”对象或“嵌入”对象，也就是说，可以使用OLE容器控件来插入对象。采用OLE技术开发的应用程序可以集成其他软件的功能，而不用重复开发相同功能。

例如，你可以通过Word、Excel、Mail、Microsoft

Graph等建立起一个包含文字处理、电子报表、电子邮件和统计图形功能的综合性办公自动化系统软件。9.4.1添加OLE容器控件在Visual

Basic的工具箱右下角，可以找到OLE控件，开发时直接使用该控件就可以开发出OLE应用程序。使用OLE控件【例9-5】在VB程序中使用Excel表格。分析：程序设计步骤如下（如图9-5所示）：（1）创建工程和窗体Form1；（2）单击工具箱中的OLE控件，在窗体Form1上拖动鼠标设置控件的大小和位置，释放鼠标后，屏幕出现“插入对象”对话框。（3）在列表框中选中“MicrosoftExcel工作表”，单击“确定”按钮；（4）窗体中显示一个空白的Excel表格，在表格中输入数据。（5）单击窗体的空白区域，完成对象的创建。9.4.1添加OLE容器控件使用OLE控件在Windows环境下,OLE控制的对象包括两种：嵌入对象和链接对象，两者的不同之处在于插入到OLE控件的对象（数据）存放的位置。嵌入对象：当嵌入一个对象时，与该嵌入对象相关联的数据存储在OLE自定义控制项中，并可以存入文件、剪切或拷贝至剪贴板，还可以被编辑（通过容器应用程序）。嵌入对象的数据是完全存放在嵌入的应用程序中，在该应用程序中能完全控制数据，而其它软件是不能访问嵌入对象和它的数据，嵌入对象只能由被嵌入应用程序独占。链接对象：当链接一个对象时，与这个链接的对象相关联的数据存储在创建该对象的应用程序中。只有该数据的预留位置是存放在OLE自定义控制项中，数据本身并不存放在OLE自定义控制项中。链接对象则只是把对象中包含的数据的指针（地址）插入到应用程序中去，在该应用程序中可以访问链接对象的数据，但其他软件也可以访问到该对象的数据。9.4.2嵌入对象和链接对象的区别使用OLE控件9.4.3设计阶段使用OLE容器控件在9.1节中我们借助“插入对象对话框”，在应用程序中没有编写任何代码就为OLE控件创建了一个嵌入对象，如果要创建链接对象的话，则只需在图9-5中选择“从文件创建”，并指定链接的文档即可（选择“链接”选项），如图9-6所示。设计时创建对象的另一方法是使用“特殊粘贴”对话框。使用OLE控件我们也可以编程来创建嵌入或链接对象。通过OLE控件的44个属性、5个方法和14个事件过程，可以实现对OLE对象的自定义控制。OLE容器控件的常用属性有：（1）AutoActivate：设置激活方式：0-Mannuao：手工激活；1-GetFocus：获得焦点时被激活；2-DoubleClick：为缺省值，指双击时被激活；3-Automatic：自动的。9.4.4程序运行阶段使用OLE容器控件使用OLE控件（2）Class属性（类属性）格式为：object.class类名包含几个部分：application.objecttype.version类名：说明对象类型Application：提供对象的应用程序名Objecttype：在对象库中定义的对象名Version：提供对象的应用程序的版本号例如：Excel.Sheet.8（3）DisplayType：指出OLE对象是显示对象内容还是只显示图标。（4）HostName：VisualBasic应用名。（5）OLETypeAllowed属性返回或设置OLE容器控件所能包含的对象类型。语法为：object.OLETypeAllowed[=value]其中value的值设置如表9-2所示。9.4.4程序运行阶段使用OLE容器控件使用OLE控件（6）SizeMode：OLE对象如何改变大小：0-对象按实际大小显示，如果对象超出控制则被截断；1-对象所包含的图像适合控制的大小；2-控制适合对象的大小。（7）SourceDoc属性指定链接或嵌入对象时使用的源文件名。语法为：object.sourceDoc[=name]name：指定文件名的字符串表达式。（8）Action属性：指定作用在OLE控件上的动作（如建立、删除、启动等）。语法为：object.Action=value9.4.4程序运行阶段使用OLE容器控件使用OLE控件【