第11章_键盘和鼠标.pptVIP

* 第11章 键盘和鼠标事件 第11章 键盘和鼠标事件 11.1 鼠标事件 11.2 键盘事件 11.1 鼠标事件 单击Click、双击DblClidk、鼠标按下MouseDown、松开鼠标MouseUp、当鼠标光标从某个对象上移过时MouseMove事件 Private Sub Object_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) …… End Sub 鼠标键Button 只有3种：001左键，010右键、100中间键 转换键Shift P168表7-4 鼠标位置X和Y 鼠标指针在接收鼠标事件的窗体或控件上的位置坐标，不需要用户设置，随鼠标光标的移动而变化 例：利用MouseMove事件做简单画图程序 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) CurrentX = X CurrentY = Y If Button 0 Then Print m End If End Sub 在属性窗口或代码窗口设置对象的MousePointer属性 Object.MousePointer=0~15 设置为99时，鼠标光标显示为用户自定义的光标形状，再通过MouseIcon属性来设置 文件类型：彩色图标(.ico)和彩色光标(.cur) 鼠标的光标形状 例：在窗体上显示所有类型的鼠标光标 Private Sub Form_Click() Static i As Integer form1.MousePointer = i i = i + 1 If i = 16 Then i = 99 If i = 100 Then i = 0 End Sub 拖放：用鼠标把一个对象从一个位置“拖”(Dragging)到另一个位置再放下(Dropping) 除了菜单、计时器和通用对话框以外，其它控件均可在程序运行期间被拖放 对象拖放 1．属性 1) DragMode： 0-Manual 手动拖放(默认) 1-Automatic 自动拖放，当用户单击控件时将自动地开始一个拖放操作，控件将不再响应通常的鼠标事件(Click、DblClick、MouseDown、MouseUp) 2) DragIcon 设置/返回拖放操作中鼠标指针的图标；默认鼠标指针图标是斜向上的箭头和被拖放的对象的外框线 与拖放有关的属性、事件和方法 2．事件(DragDrop和DragOver) 1) DragDrop Private Sub Object_DragDrop(Source As Control, X As Single, Y As Single) 事件处理代码 End Sub 通过Source的Name属性来判断被拖放的控件的名字，从而决定该控件是否允许被放置在目标对象上。还可以在控件或图标被放下后，将它的Visible属性设置为False，就象被放置在目标对象的内部。参数X和Y返回松开鼠标键放下对象时鼠标光标的位置 2) DragOver Private Sub Object_DragOver(Source As Control, X As Single, Y As Single, State As Integer) 事件处理代码 End Sub State参数表示被拖动对象的状态，可以取3个值: 0-vbEnter 鼠标光标正在进入目标对象的区域。 1-vbLeave 鼠标光标正在离开目标对象的区域。 2-vbOver 鼠标光标正位于目标对象的区域之内 3．方法 与拖放有关的方法有Move和Drag Drag方法用来开始、结束或取消一个拖放操作 Object.Drag [DragAction] 0-vbCancel 取消进行中的任何拖放操作 1-BeginDrag 开始拖放操作 2-EndDrag 结束拖放操作并放置对象 自动拖放 将对象的DragMode属性设置为1-Automatic，运行后，可用鼠标自由地拖动对象。但是鼠标键松开后，被拖动的对象又回到原来位置。此时还需要在目标对象的DragDrop事件中，利用程序代码将被拖动的对象移动到目标控件中： Object.Move X,Y 手动拖放 将DragMode属性设置为默认值0-Manual，运行