鼠标键盘和OLE控.ppt

1,第9章 鼠标、键盘和OLE控件,9.1 鼠标 9.2 键盘事件 9.3 拖放,2,9.1 鼠标,9.1.1 鼠标事件 9.1.2 改变鼠标指针,3,9.1.1 鼠标事件,1. 鼠标事件的格式 鼠标事件包括MouseUp、MouseDown和MouseMove，分别是释放鼠标、按下鼠标和移动鼠标时触发的。语法： Private Sub 对象名_鼠标事件(Button As Integer，Shift As Integer，x As Single，y As Single) （1）Button表示是哪个鼠标键被按下或释放。,Button常数值,4,9.1.1 鼠标事件,（2）Shift表示当鼠标键被按下或被释放时，Shift、Ctrl、Alt键的按下或释放状态。,（3）X、Y表示鼠标指针的坐标位置。如果鼠标指针在窗体或图片框中，用该对象内部的坐标系，其他控件则用控件对象所在容器的坐标系。,Shift的常数值,5,9.1.1 鼠标事件,2. MouseDown和MouseUp事件,【例9-1】界面设计：放置一个图片框Picture1用来绘图，三个按钮Command1Command3，其中Command1和Command2分别为“直线”和“方块”。,功能要求：单击Command1或Command2按钮后，在图片框中单击鼠标当鼠标按下时确定一个端点，当鼠标释放时确定另一个端点来画直线或画方块。Command3在图片框中清除图形。,运行界面,6,9.1.1 鼠标事件,3MouseMove事件,MouseMove事件是鼠标在屏幕上移动时触发的，窗体和控件都能识别MouseMove事件， 当鼠标指针在对象的边界范围内时该对象就能接收MouseMove事件。,【例9-2】使用MouseMove事件可以连续地画线和方块，当鼠标移动时在不断触发的MouseMove事件中画线和方块。,运 行 界 面,7,9.1.2 改变鼠标指针,1MousePointer属性 对象的MousePointer属性用于设置鼠标指针的形状。在运行时对于控件，当鼠标经过时就会显示MousePointer属性设置的形状；对于窗体，当鼠标经过空白区域或窗体中的MousePointer属性为0（默认值）的控件时，就会显示窗体的MousePointer属性设置的形状。,（快讲）,8,9.1.2 改变鼠标指针,2MouseIcon属性 当MousePointer属性设置为99（自定义图标）时，可以使用MouseIcon属性来确定鼠标指针的形状。有两种方法设置MouseIcon属性： （1）在属性窗口中选择MouseIcon属性，单击按钮，出现“加载图标”对话框，选择一个图形文件为鼠标指针形状，可以是.ico或.cur文件。 （2）在程序中使用LoadPicture函数来加载图形文件。 例如，将经过窗体时鼠标指针设置为用户定义的图标： Form1.MouseIcon = LoadPicture(“c:windowswinupd.ico“),9,9.2 键盘事件,1. 查看键盘按键的ASC码值,如果不清楚键盘各按键ASC码值，可以通过对象浏览器窗口来查看。 打开“对象浏览器”如图所示。在搜索栏键入“KeyCodeConstants”，单击搜索按钮。在“成员”栏出现各种键盘按键常数，选择某一个按键常数就可以在下面的描述中显示按键的ASC码值。,查看键代码,（自学）,10,9.2 键盘事件,2. KeyPress事件,KeyPress事件是当键盘有键按下时触发的。KeyPress事件检测的键有Enter、Tab、BackSpace以及键盘上的字母、数字和标点符号键，其它功能键则不作响应。,语法： Private Sub 对象名_KeyPress(KeyAscii As Integer) KeyAscii是对应的ASCII码值，将KeyAscii 设置为0，可以取消本次击键，这样对象便接收不到按键的字符。,11,9.2 键盘事件,KeyPress事件过程在截取TextBox或ComboBox控件所输入的击键时可以立即测试击键的有效性，【例93】。,运行界面,12,9.2 键盘事件,3KeyDown和KeyUp事件,KeyDown事件是当按下按键时触发，KeyUp事件是当释放按键时触发，这两个事件提供了最低级的键盘响应，可以报告键盘的物理状态。 其语法为： Private Sub 对象名_KeyDown(KeyCode As Integer，Shift As Integer) Private Sub 对象名_KeyUp(KeyCode As Integer，Shift As Integer),13,9.2 键盘事件,窗体中对象的属性设置,【例9-4】在图片框中用键盘键控制小球的运动。,14,9.3 拖 放,拖放（drag and drop）是一种将一个对象（称为源对象）拖到另一个对象（称为目标对象）上执行某种操作的功能。 要拖动一个对象，可单击该对象，按住鼠标键，然后移到指定的新位置释放鼠标放下对象。,（自学）,15,9.3 拖 放,1. 属性 （1）DragMode属性 DragMode属性确定拖放操作是自动方式还是手动方式。默认值为0手动方式，可以用手动方式来确定拖放操作何时开始或结束，当DragMode属性设置为1自动方式时，能够对一个对象执行自动拖放操作。 （2）DragIcon属性 DragIcon属性是设置拖动操作时显示的图标，默认源对象的灰色轮廓作为拖动的图标，也可以设置为.ico图标文件作为拖动操作的图标。,16,9.3 拖 放,2. 事件 （1）DragDrop事件 DragDrop事件是当一个完整的拖放动作完成时触发，即将一个控件拖动到一个对象上，并释放鼠标按钮，或使用Drag方法并将其动作参数设置为2（Drop）时触发。 （2） DragOver事件 DragOver事件是当拖放操作正在进行时发生，当拖动对象越过一个控件时触发该事件。,17,9.3 拖 放,3. 方法 Drag方法用于在代码中对象的拖放行为。它可以启动、停止或取消手工拖动。采用手动拖放方式时，必须使用Drag方法来启动拖动操作。不过，在自动拖放方式下，也可以使用Drag方法。 Drag 方法的语法为： 对象名.Drag action 拖放操作的步骤如下： （1）设置DragMode属性为1，使对象可以自动被