第9章 VB绘图.ppt

1. MousePointer属性 功能：设置鼠标光标的标准形状 取值范围：0~15，99(自定义) 设置方法： 通过属性窗口设置 在程序中设置Object.MousePointer=n 9.5.2 鼠标的光标形状 2 . MouseIcon属性 功能：设置鼠标光标的自定义形状。(MousePointer=99） 取值方式： 通过属性窗口 通过程序代码 例：在窗体上显示所有类型的鼠标光标 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 9.6 对象拖放 拖放：在屏幕上用鼠标把一个对象从一个位置拖(Dragging)到另一个位置再放下(Dropping) 拖放的一般过程：将鼠标光标移动到一个控件对象上，按下鼠标键，然后移动鼠标，对象随着鼠标的移动而在屏幕上移动，松开鼠标对象被放下 。 除了菜单、计时器和通用对话框以外，其余的控件均可在程序运行期间被拖放 。 1．属性 (1) DragMode：设置/返回拖放模式是自动的还是手动的。 0-Manual 拖放模式是手动的(默认) 1-Automatic 拖放模式是自动的 为了能对一个控件执行自动拖放操作，必须把它的属性DragMode设置为Automatic，即自由地被拖动。 注意:设置为自动拖放后，控件将不再响应通常的鼠标事件(Click、DblClick、MouseDown、MouseUp) (2) DragIcon：设置/返回拖放操作中鼠标指针的图标。 9.6.1 与拖放有关的属性、事件和方法 2．事件(DragDrop和DragOver) (1) DragDrop 当把控件(或图标)拖到目标对象上之后，如果松开鼠标键，则会触发目标对象的DragDrop事件。 Private Sub Object_DragDrop(Source As Control, X As Single, Y As Single) 事件处理代码 End Sub Source：类型为Control的对象变量，用来返回被拖放的对象的属性。通过Source的Name属性来判断被拖放的控件的名字，从而决定该控件是否允许被放置在目标对象上。还可以在控件或图标被放下后，将它的Visible属性设置为False，就象被放置在目标对象的内部。 X和Y：返回松开鼠标键放下对象时鼠标光标的位置 。 9.6.1 与拖放有关的属性、事件和方法 (2) DragOver 当被拖放的控件(或图标)越过某一个对象时，会触发该对象的DragOver事件，类似于控件的MouseMove事件。 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 鼠标光标正位于目标对象的区域之内 9.6.1 与拖放有关的属性、事件和方法 3．方法 Move方法 Drag方法：用来开始、结束或取消一个拖放操作 Object.Drag [DragAction] DragAction为一个整型值，有三个值可以选择： 0-vbCancel 取消进行中的任何拖放操作 1-BeginDrag 开始拖放操作 2-EndDrag 结束拖放操作并放置对象 9.6.1 与拖放有关的属性、事件和方法 9.6.2 自动拖放 将对象的DragMode属性设置为1-Automatic，运行后，可用鼠标自由地拖动对象。但是鼠标键松开后，被拖动的对象又回到原来位置。 需要在目标对象的DragDrop事件中，利用程序代码将被拖动的对象移动到目标控件中： Object.Move X,Y 例9-8：将三个按钮拖入图片框中，并按顺序排列。 Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single) Select Case Source.Name Case Command1: Command1.Move Picture1.Left , Picture1.Top Case Command2: