鼠标键盘和OLE课件

1、Visual BasicVisual Basic教程教程第第9 9章章 鼠标、键盘和鼠标、键盘和OLEOLE控件控件鼠标鼠标键盘事件键盘事件拖放拖放使用使用OLEOLE控件控件Visual BasicVisual Basic教程教程9.1 9.1 鼠标鼠标9.1.1 9.1.1 鼠标事件鼠标事件在程序运行时，有时需要对鼠标指针的位置和状态变化作出响应，因此除了常用的Click和DblClick事件之外，还需要使用鼠标事件，鼠标事件包括MouseUp、MouseDown和MouseMove。1. 1. 鼠标事件的格式鼠标事件的格式鼠标事件包括MouseUp、MouseDown和MouseMove

2、，分别是当释放鼠标、按下鼠标和移动鼠标时触发的。MouseUp、MouseDown和MouseMove鼠标事件的语法格式是统一的。语法：语法：Private Sub Private Sub 对象对象_ _鼠标事件（鼠标事件（Button As Integer, Shift As Button As Integer, Shift As Integer, X As Single, Y As SingleInteger, X As Single, Y As Single）Visual BasicVisual Basic教程教程9.1.1 9.1.1 鼠标事件鼠标事件说明：（1）Button表示是哪个

3、鼠标键被按下或释放。用0、1、2三个位表示鼠标的左、右、中键，每位用0、1表示被按下或释放，三个位的二进制转换成十进制就是Button的值，如图9.1所示，表9.1列出了按钮与常数值的对应关系。十进制二进制常数按下按钮0000无1001vbLeftButton左按键2010vbRightButton右按键3011vbMiddleButton中按键4100VbLeftButton+vbRightButton左、右按键5101VbLeftButton+vbMiddleButton左、中按键6110VbRightButton+vbMiddleButton右、中按键7111VbLeftButton+v

4、bRightButton+vbMiddleButton左、中、右按键表9.1 Button常数值图9.1 Button键Visual BasicVisual Basic教程教程9.1.1 9.1.1 鼠标事件鼠标事件（2）Shift表示当鼠标键被按下或被释放时，Shift、Ctrl、Alt键的按下或释放状态。用0、1、2三个位表示鼠标的Shift、Ctrl、Alt键，三个位的二进制转换成十进制数就是Shift的值。Shift、Ctrl、Alt键切换常数如表9.2所示。常数值描述vbShiftMask1SHIFT键被按下。vbCtrlMask2CTRL键被按下。vbAltMask4ALT键被按下

5、。表9.2 Shift的常数值Visual BasicVisual Basic教程教程9.1.1 9.1.1 鼠标事件鼠标事件（3）X、Y表示鼠标指针的坐标位置。如果鼠标指针在窗体或图片框中，用该对象内部的坐标系，其他控件则用控件对象所在容器的坐标系。关于鼠标键事件有几点说明：移动鼠标连续触发MouseMove事件。按下鼠标键，触发MouseDown事件。释放鼠标键，触发MouseUp事件。MouseUp事件之后，触发Click事件。鼠标事件可以区分鼠标的左、右、中键与Shift、Ctrl、Alt键，并可识别和响应各种鼠标状态。Click和DblClick事件不能识别鼠标的左、右、中键与Shi

6、ft、Ctrl、Alt键。鼠标事件是由鼠标指针所在的窗体或控件来识别的。如果按下鼠标不放，则对象将继续识别所有鼠标事件（即使指针已离开对象仍继续识别），直到用户释放鼠标为止。Visual BasicVisual Basic教程教程9.1.1 9.1.1 鼠标事件鼠标事件2. MouseDown2. MouseDown和和MouseUpMouseUp事件事件MouseDown和MouseUp事件分别当鼠标按下和释放时触发，通常可以用来在运行时调整控件的位置，或实现某些图形效果。MouseDown事件更常用些。【例例9-19-1】在窗体中制作一个画线和画方块的程序。界面设计：界面设计：放置一个图片

7、框Picture1用来绘图，三个按钮Command1Command3，其中Command1和Command2分别为“直线”和“方块”。功能要求：功能要求：单击Command1或Command2按钮后，在图片框中单击鼠标当鼠标按下时确定一个端点，当鼠标释放时确定另一个端点来画直线或画方块。Command3在图片框中清除图形。运行界面如图9.2所示。图9.2 运行界面Visual BasicVisual Basic教程教程9.1.1 9.1.1 鼠标事件鼠标事件程序代码如下：Dim C1 As Integer Dim X1 As Integer, Y1 As Integer Private Sub

8、 Command1_Click()单击直线按钮 C1 = 1End Sub Private Sub Command3_Click()单击方块按钮 C1 = 2End Sub Private Sub Form_Load()装载窗体 C1 = 0End SubVisual BasicVisual Basic教程教程9.1.1 9.1.1 鼠标事件鼠标事件在图片框中按下鼠标键时确定一个端点。Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)在图片框中按下鼠标键 If

9、 Button = 1 Then X1 = X Y1 = Y End IfEnd SubVisual BasicVisual Basic教程教程9.1.1 9.1.1 鼠标事件鼠标事件在图片框中释放鼠标键则确定另一个端点，根据单击的按钮，在图片框中由两端点画直线和画方块。Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)在图片框中释放鼠标键 If Button = 1 Then Select Case C1 Case 1 Picture1.Line (X1, Y1

10、)-(X, Y) Case 2 Picture1.Line (X1, Y1)-(X, Y), , B End Select End IfEnd Sub Private Sub Form_Load()装载窗体 C1 = 0End SubVisual BasicVisual Basic教程教程9.1.1 9.1.1 鼠标事件鼠标事件3 3MouseMoveMouseMove事件事件MouseMove事件是鼠标在屏幕上移动时触发的，窗体和控件都能识别MouseMove事件， 当鼠标指针在对象的边界范围内时该对象就能接收MouseMove事件，除非有另一个对象捕获了鼠标。当移动鼠标时，Button参数

11、对于MouseMove事件与MouseDown和MouseUp事件不同，MouseMove事件的Button值表示所有按键的状态，而MouseDown和MouseUp事件的Button的值无法检测是否同时按下两个以上的按键。【例例9-29-2】在图片框中绘制连续的线和方块。使用MouseMove事件可以连续地画线和方块，当鼠标移动时在不断触发的MouseMove事件中画线和方块。运行界面如图9.3所示。程序代码如下。Visual BasicVisual Basic教程教程9.1.1 9.1.1 鼠标事件鼠标事件当第一次按下鼠标时，开始画线或方块，第二次按下鼠标就停止。Private Sub P

12、icture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)在图片框中按下鼠标键 If Button = 1 And C2 = 0 Then C2 = 1 Select Case C1 Case 1 Picture1.CurrentX = X Picture1.CurrentY = Y Case 2 X1 = X Y1 = Y End Select Else C2 = 0 End IfEnd SubVisual BasicVisual Basic教程教程9.1.1 9.1.1 鼠标事件鼠标事件当

13、在图片框中移动鼠标时，不断地画线和画方块，实现连续画线和方块。Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)在图片框中移动鼠标 If Button = 1 And C2 = 1 Then Select Case C1 Case 1 Picture1.Line -(X, Y) Case 2 Picture1.Line (X1, Y1)-(X, Y), , BF End Select End IfEnd SubVisual BasicVisual Basic教

14、程教程9.1.2 9.1.2 改变鼠标指针改变鼠标指针1 1MousePionterMousePionter属性属性对象的MousePionter属性用于设置鼠标指针的形状。在运行时对于控件，当鼠标经过时就会显示MousePionter属性设置的形状；对于窗体，当鼠标经过空白区域或窗体中的MousePionter属性为0的控件时，就会显示窗体的MousePionter属性设置的形状。MousePionter属性的设置值与形状如表9.3所示。Visual BasicVisual Basic教程教程9.1.2 9.1.2 改变鼠标指针改变鼠标指针常数值描述vbDefault0（默认）形状由操作系统

15、决定。VbArrow1箭头。VbCrosshair2十字线。VbIbeam3I型VbIconPointer4图标（矩形内的小矩形）。VbSizePointer5尺寸线（指向东、南、西、北的箭头）。VbSizeNESW6右上-左下尺寸线（指向东北、西南的双箭头）。VbSizeNS7垂直尺寸线（指向南、北的双箭头）。VbSizeNWSE8左上-右下尺寸线（指向东南、西北的双箭头）。VbSizeWE9水平尺寸线（指向东、西的双箭头）。VbUpArrow10向上的箭头。VbHourglass11沙漏（表示等待状态）。VbNoDrop12禁止形状（不允许放下）。VbArrowHourglass13箭头和

16、沙漏。VbArrowQuestion14箭头和问号。VbSizeAll15四向尺寸线（表示缩放）。VbCustom99通过MouseIcon属性指定的自定义图标。表9.3 MousePionter属性值Visual BasicVisual Basic教程教程9.1.2 9.1.2 改变鼠标指针改变鼠标指针2 2MouseIconMouseIcon属性属性当MousePionter属性设置为99时，可以使用MouseIcon属性来确定鼠标指针的形状。有两种方法设置MouseIcon属性：（1）在属性窗口中选择MouseIcon属性，单击 按钮，出现“加载图标”对话框，选择一个图形文件为鼠标指针形

17、状，可以是.ico或.cur文件。（2）在程序中使用LoadPicture函数来加载图形文件。例如，将经过窗体时鼠标指针设置为用户定义的图标： Form1.MouseIcon = LoadPicture(c:windowswinupd.ico)Visual BasicVisual Basic教程教程9.2 9.2 键盘事件键盘事件1. 1. 查看键盘按键的查看键盘按键的ASCASC码值码值如果不清楚键盘各按键的ASC码值，可以通过对象浏览器窗口来查看。在工具栏单击“对象浏览器”按钮，打开“对象浏览器”如图9.4所示。在搜索栏键入“KeyCodeConstants”，单击搜索 按钮。在“成员”栏

18、出现各种键盘按键常数，选择某一个按键常数就可以在下面的描述中显示按键的ASC码值。 图9.4 查看键代码Visual BasicVisual Basic教程教程9.2 9.2 键盘事件键盘事件2. KeyPress2. KeyPress事件事件KeyPress事件是当键盘有键按下时触发的。KeyPress事件检测的键有Enter、Tab、BackSpace以及键盘上的字母、数字和标点符号键，对于其他功能键、编辑键和定位键，则不作响应。语法：语法：Private Sub Private Sub 对象对象_KeyPress(KeyAscii As Integer)_KeyPress(KeyAsci

19、i As Integer)说明：对象：是接受键盘事件的对象，由具有焦点的对象接收。KeyAscii：是按键对应的ASC码值。将keyAscii改为0时可取消本次击键，这样对象便接收不到按键的字符。Visual BasicVisual Basic教程教程9.2 9.2 键盘事件键盘事件【例例9-39-3】在文本框中输入学生的学号和密码，并在输入时检测按键的有效性。功能要求：功能要求：在输入用户名的文本框中输入用户名，在按键时判断如果不是字母键则将按键取消并将焦点设置在文本框，输入用户名超过8位时提示出错。运行界面如图9.5所示，当输入用户名超过8位时的显示。 图9.5 运行界面Visual Ba

20、sicVisual Basic教程教程9.2 9.2 键盘事件键盘事件程序代码如下：Private Sub Text1_KeyPress(KeyAscii As Integer)在用户名文本框按键 If KeyAscii 122 Or (KeyAscii 90) Then 按键不是大小写字母 KeyAscii = 0 Text1.SetFocus End If If Len(Text1.Text) 8 Then 超过8位 MsgBox 用户名超过8位, vbOKOnly, 输入出错 KeyAscii = 0 Text1.SetFocus End IfEnd SubVisual BasicVis

21、ual Basic教程教程9.2 9.2 键盘事件键盘事件3 3KeyDownKeyDown和和KeyUpKeyUp事件事件KeyDown事件是当按下按键时触发，KeyUp事件是当释放按键时触发，这两个事件提供了最低级的键盘响应，可以报告键盘的物理状态。语法：语法：Private Sub Private Sub 对象对象_KeyDown(KeyCode As Integer, Shift As _KeyDown(KeyCode As Integer, Shift As Integer)Integer)Private Sub Private Sub 对象对象_KeyUp(KeyCode As I

22、nteger, Shift As Integer)_KeyUp(KeyCode As Integer, Shift As Integer)Visual BasicVisual Basic教程教程9.2 9.2 键盘事件键盘事件【例例9-49-4】在图片框中用键盘键控制小球的运动。功能要求：功能要求：在图片框Picture1中放置一个形状控件Shape1，窗体还有两个按钮Command1和Command2分别为“开始”和“结束”，单击“开始”按钮黄色小球Shape1出现，单击箭头键“”和“”小球向运动左和右移动，单击空格键小球向上或向下跳动。窗体中对象的属性设置如表9.4所示。对象名属性属性值F

23、orm1Caption运动小球Shape1Shape3-CircleFillStyle0-SolidFillColor&H0000FFFF&VisibleFalseCommand1Caption开始Command2Caption结束表9.4 窗体中对象的属性设置Visual BasicVisual Basic教程教程9.2 9.2 键盘事件键盘事件程序代码如下。程序分析：程序分析：箭头键“”的ASC码值为37，“”的ASC码值为39，空格键为32。运行界面如图9.6所示。图9.6 运行界面Visual BasicVisual Basic教程教程9.3 9.3 拖放拖放 1 1属性属性（1）Dr

24、agMode属性DragMode属性确定拖放操作是自动方式还是手动方式。默认值为0手动方式，可以用手动方式来确定拖放操作何时开始或结束，当DragMode属性设置为1自动方式时，能够对一个对象执行自动拖放操作。（2）DragIcon属性DragIcon属性是设置拖动操作时显示的图标，默认源对象的灰色轮廓作为拖动的图标，也可以设置为.ico图标文件作为拖动操作的图标。Visual BasicVisual Basic教程教程9.3 9.3 拖放拖放 2事件事件（1）DragDrop事件DragDrop事件是当一个完整的拖放动作完成时触发，即将一个控件拖动到一个对象上，并释放鼠标按钮，或使用Drag

25、方法并将其动作参数设置为2（Drop）时触发。DragDrop事件可用来控制在拖动操作完成时将会发生的情况。语法：语法：Private Sub 对象对象_DragDrop(Source As Control, X As Single, Y As Single)（2）DragOver事件DragOver事件是当拖放操作正在进行时发生，当拖动对象越过一个控件时触发该事件。语法：语法：Private Sub 对象对象_DragOver(Source As Control, X As Single, Y As Single, State As Integer)Visual BasicVisual Ba

26、sic教程教程9.3 9.3 拖放拖放 3.3.方法方法Drag方法用于在代码中对象的拖放行动。Drag方法可以启动、停止或取消手工拖动。语法：语法：对象对象.Drag Action.Drag Action拖放操作的步骤如下：（1）设置DragMode属性为1，使对象可以自动被拖放。（2）设置DragIcon属性决定对象被拖动时鼠标指针的形状，可以是任何位图或图标。（3）为目标对象编写DragDrop和DragOver事件。【例例9-59-5】在窗体中将图像框进行拖放。功能要求：功能要求：在窗体中放置四个图像框Image1Image4，一个框架Frame1和一个标签Label1，将三个小图像框

27、Image1Image3拖放到大图像框Image4中，就会将图像放置到Image4中，并将文本在标签Label1中显示。Visual BasicVisual Basic教程教程9.3 9.3 拖放拖放 属性设置如表9.5所示，设计界面如图9.7(a)所示，运行界面如图9.7(b)所示，显示将Image1中的图片拖放到Image4中。对象名属性属性值Form1Caption拖放对象Image1Image2Image3DragMode1-AutomaticStretchTruePicture设置三个图形文件Image4StretchTrueLabel1Caption空表9.5 窗体中对象的属性设置

28、Visual BasicVisual Basic教程教程9.3 9.3 拖放拖放 程序代码如下： 在图像框Image4是目的对象，在拖放事件中将Source对象的图形装载到图像框Image4中，并根据Source所对应的拖动源对象，用分支结构显示标签Label1的内容。Private Sub Image4_DragDrop(Source As Control, X As Single, Y As Single)在图像框中拖放图像 Image4.Picture = Source.Picture If Source = Image1 Then Label1.Caption = 鸵鸟 ElseIf

29、Source = Image2 Then Label1.Caption = 钟 Else Label1.Caption = 五角星 End IfEnd SubVisual BasicVisual Basic教程教程9.4 9.4 使用使用OLEOLE控件控件9.4.19.4.1添加添加OLEOLE容器控件容器控件1 1在设计时嵌入或链接对象在设计时嵌入或链接对象（1）使用OLE控件直接嵌入对象将OLE控件OLE1放置在窗体上时，就会出现“插入对象”的对话框，如图9.8所示。选择“新建”选项按钮，并在“对象类型”框中选择的一种对象类型，单击“确定”按钮，就嵌入了一个OLE对象。 图9.8插入对象

30、对话框Visual BasicVisual Basic教程教程9.4.1 9.4.1 添加添加OLEOLE容器控件容器控件例如，在上图中OLE1嵌入“媒体剪辑”对象，运行工程时，在窗体上会显示出播放媒体的菜单，运行界面如图9.9所示。图9.6插入对象对话框图9.9插入对象对话框Visual BasicVisual Basic教程教程9.4.1 9.4.1 添加添加OLEOLE容器控件容器控件（2）使用OLE控件从文件嵌入对象 在图9.10中单击“从文件创建”选项按钮，单击“浏览”按钮选择文件，将所选的文件当作OLE对象插入。如图9.10所示。（3）使用OLE控件链接对象如果在图9.8或图9.1

31、0中选择“链接”复选框，就会插入一个链接对象。使用链接对象，当应用程序没有运行时，对象的数据可能被另一个应用程序更改。图9.10 从文件创建Visual BasicVisual Basic教程教程9.4.1 9.4.1 添加添加OLEOLE容器控件容器控件（4）选择性粘贴文件如果只需要利用文件的一部分，可以使用“选择性粘贴”来创建OLE对象。使用“选择性粘贴”的步骤如下：运行需要选择的文件，将需要选择的部分复制到剪贴板上。在VB中用鼠标右键单击“OLE容器控件”，从快捷菜单中选择“特殊粘贴”菜单项，出现“选择性粘贴”对话框如图9.11所示。在对话框中选择“粘贴”或“粘贴链接”选项，单击“确定”

32、按钮就创建了OLE对象。选择“粘贴”复选框是插入一个嵌入对象，选择“粘贴链接”复选框是插入一个链接对象。在图9.11中，选择粘贴Word中的文本内容。 图9.11 选择性粘贴Word文本Visual BasicVisual Basic教程教程9.4.1 9.4.1 添加添加OLEOLE容器控件容器控件3 3在运行时创建显示在运行时创建显示“插入对象插入对象”对话框对话框如果在设计时不选择OLE对象，则在运行时也可以使用OLE对象的InsertObjDlg和PasteSpecialDlg方法来显示“选择性粘贴”和“插入对象”对话框，并在对话框中创建OLE对象。语法：语法：对象对象. Insert

33、ObjDlg. InsertObjDlg对象对象. PasteSpecialDlg. PasteSpecialDlg（1）InsertObjDlg方法InsertObjDlg方法用来显示“插入对象”对话框，提供可用的对象清单，并根据用户的选择创建对象。例如，显示“插入对象”对话框：OLE1.InsertObjDlg（2）PasteSpecialDlg方法PasteSpecialDlg方法用来显示“选择性粘贴”对话框，允许用户从系统剪贴板中将对象粘贴到OLE控件。Visual BasicVisual Basic教程教程9.4.1 9.4.1 添加添加OLEOLE容器控件容器控件4 4在运行时创建

34、链接或嵌入对象在运行时创建链接或嵌入对象（1）创建链接对象用OLE控件的CreateLink方法，在运行时从文件中创建一个链接对象。语法：语法：CreateLink SourceDoc, SourceItemCreateLink SourceDoc, SourceItem说明：SourceDoc：为文件参数，从该文件创建对象。SourceItem：从源文件中链接的数据。例如，创建链接对象：OLE1.CreateLink C:WINDOWSMediachord.wav（2）创建嵌入对象在运行时，从文件中创建一个嵌入的对象，可以使用CreateEmbed方法。语法：语法：CreateEmbed S

35、ourcedoc, ClassCreateEmbed Sourcedoc, ClassVisual BasicVisual Basic教程教程9.4.2 OLE9.4.2 OLE容器控件的属性、方法和事件容器控件的属性、方法和事件1. OLE1. OLE控件的常用属性控件的常用属性（1）Object属性通过使用OLE控件的Object属性，可以使用链接或嵌入对象的属性和方法。Object属性在运行时是只读属性，它保持对OLE控件中对象的引用。使用该属性OLE控件必须包含可编程的对象。语法：语法：OLEOLE控件名控件名.Object.Object.属性属性| |方法方法 （2）AutoActi

36、ve属性AutoActive属性用于设置激活OLE控件对象的方式，该属性对应的各种方式如表9.6所示。属性值属性常数含义vbOLEActivateManual0-Manual手工激活，使用DoVerb方法。vbOLEActivateGetFocus1-GetFocus接受焦点激活。vbOLEActivateDoubleclick2-DoubleClick双击或按ENTER键激活。vbOLEActivateAuto3-Autimatic自动激活。表9.6 各种激活方式Visual BasicVisual Basic教程教程9.4.2 OLE9.4.2 OLE容器控件的属性、方法和事件容器控件的属

37、性、方法和事件（3）OLEType属性OLEType属性返回OLE容器控件中对象的状态。0-vbOLELinked表示链接，1-vbOLEEmbedded表示嵌入，2- vbOLENone表示不包含对象。（4）Class属性Class属性为内嵌对象的类名。例如，当嵌入“媒体剪辑”时，OLE1控件设置为“OLE1.Class=MPlayer”。（5）SizeMode属性SizeMode属性用来指定OLE对象如何调整大小，或如何显示图像。0为剪裁，对象按实际大小显示；1为伸展，调整对象图像的大小使其充满OLE控件；2为自动，如果显示对象的大小作了改变，OLE控件自动调整大小；3为缩放，重新调整对象

38、的大小使其尽可能充满OLE控件，且仍然维持该对象原来的比例。Visual BasicVisual Basic教程教程9.4.2 OLE9.4.2 OLE容器控件的属性、方法和事件容器控件的属性、方法和事件2. OLE2. OLE控件的常用方法控件的常用方法（1）Update方法要在OLE控件中显示当前的最新数据，则要使用控件的Update方法。运行时对源文件的更改不会自动出现在OLE控件中，必须使用Update方法。语法：语法：OLEOLE对象名对象名.Update.Update（2）Delete方法Delete方法删除指定对象，释放关联的内存，用于显式地删除对象。当关闭窗体或对象被一个新对象

39、取代时，对象都将被自动删除。（3）DoVerb方法在运行时，可以使用OLE控件的DoVerb方法激活一个对象，进行编辑等操作。有些嵌入的对象可以通过双击来从OLE控件内部激活，称为现场激活。（4）Close方法如果要退出OLE对象的激活状态，可以调用OLE控件的Close方法。Visual BasicVisual Basic教程教程9.4.2 OLE9.4.2 OLE容器控件的属性、方法和事件容器控件的属性、方法和事件【例例9-69-6】在学生信息数据库StudentAd.mdb的学生信息Student表中添加一个“个人简介”字段，通过OLE控件使用“媒体剪辑”对象来显示个人简介的视频文件。在Studen