沈阳农业大学信息与电气工程学院高级语言程序设计（Visual Basic）课件 第10章.ppt

第10章 键盘与鼠标事件过程 使用键盘事件过程，可以处理当按下或释放键盘上某个键时所执行的操作，而鼠标事件过程可用来处理与鼠标光标的移动和位置有关的操作。 10.1　KeyPress事件 当压下键盘上的某个键时发生KeyPress事件。其定义为： Private Sub Text1_KeyPress(KeyAscii As Integer) ? End Sub KeyAscii是所按键的ASCII值 10.2 KeyDown和KeyUp事件 KeyDown和KeyUp事件分别在压下和松开键盘上的某个键时发生，这两个事件返回的是键盘的直接状态。 KeyDown事件过程的定义为： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) ? End Sub 10.3　鼠标事件 当压下、松开鼠标键或移动鼠标时产生鼠标事件。其中压下鼠标事件过程的模板为： Sub Form_MouseDown(Button As Integer, Shift As integer,x As single, y As Single) End Sub 10.3.1 鼠标位置 鼠标位置由参数x、y确定，随鼠标光标在窗体上的移动而变化。当移到某个位置时，如果压下鼠标键，则产生MouseDown事件，如果松开鼠标键则产生MouseUp事件。(x,y)是接收鼠标事件的窗体或控件上的坐标。 10.3.2　鼠标按钮 鼠标按钮状态由参数Button来设定，该参数是一个整数（16位），在设置按钮状态时实际上只使用了低3位 。 10.3.3　转换参数 转换参数Shift是一个整数值，并用其低三位表示Shift、Ctrl和Alt键的状态，某键被按下使得一个二进制位被设置 10.4　鼠标光标的形状 10.4.1 MousePointer属性 鼠标光标的形状通过MousePointer属性来设置。该属性可以在设计阶段设置，也可以在运行时设置。 10.4.2 设置鼠标光标形状 1.在程序代码中设置MousePointer属性： 对象.Mousepointer = 设置值 2.在属性窗口中设置MousePointer属性 3.自定义鼠标光标 4.鼠标光标形状的使用 10.5　拖放 10.5.1 与拖放有关的属性、事件和方法 DragMode属性 DragIcon属性 DragDrop事件 DragOver 事件 Move方法 Drag方法 10.5.2 自动拖放 把DragMode属性设置为 1 - Automatic 编写DragDrop事件过程 使用Move方法 10.5.3　手动拖放 把DragMode属性设置为“0 - Manual” 编写MouseDown、MouseUp及DragDrop事件过程 使用Drag方法 * *