VB9.pptVIP

9.1.1 鼠标事件 9.1.1 鼠标事件 2. MouseDown和MouseUp事件 9.1.1 鼠标事件 3．MouseMove事件 9.1.2 改变鼠标指针 1．MousePionter属性 9.2 键盘事件 1. 查看键盘按键的ASCⅡ码值 9.2 键盘事件 2. KeyPress事件 例 通过编程序，在一个文本框（Text1）中限定只能输入数字、小数点，只能响应BackSpace 键及回车键。 Private Sub Text1_KeyPress (KeyAscii As Integer) Select Case KeyAscii Case 48 to 57,46,8,13 Case Else KeyAscii=0 End Select End Sub 9.2 键盘事件 3．KeyDown和KeyUp事件 9.3 拖 放 2. 事件 9.3 拖 放 拖放操作的步骤如下： （1）设置DragMode属性为1，使对象可以自动被拖放。 （2）设置DragIcon属性决定对象被拖动时鼠标指针的形状，可以是任 图或图标。 （3）为目标对象编写DragDrop和DragOver事件。 9.3 拖 放 设计界面如图(a)所示，运行界面