|
|
拖放是用鼠标拖动一个文件到其它对象的活动。在图形操作过程中，拖放是最常用的功能之一，下面我们来看看怎样用VB实现拖放功能。
首先介绍与拖放有关的控件：
1.属性:DragMode决定拖动操作的初始化是人工方式还是自动方式
DragIcon确定在拖动过程中显示的指针的图标形状
2.方法:Drag开始，结束或取消拖动控件
3.事件:MouseDown事件发生于用户按下鼠标按钮时。
DragOver事件发生于拖动操作完成时。
DragDrop事件发生于拖动操作正在进行时。
然后编写一个小程序，这个程序能实现在窗口中或窗口间拖动图标的功能。建
立窗口Form1和Form2，在窗口中都加入Image1，其中Form1下的Image1.picture为你想显示的图标。
Form1下程序代码为：
Option Explicit
Dim dragx As Single
Dim dragy As Single
Const BEGIN_DRAG=1
Private Sub Form_DragDrop(Source As Control， X As Single， Y As Single)
Image1.Picture=Source ；Sourse为被拖动的控件
Form2.Image1.Picture=LoadPicture(″″)
Image1.Move(X－dragx)，(Y－dragy)； X，Y为鼠标所在目标窗体或控件的当前坐标
End Sub
Private Sub Form_Load()
Load Form2
Form2.Show 0
End Sub
Private Sub Image1_MouseDown(Button As Integer，Shift As Integer，
X As Single，Y As Single)
dragx=X
dragy=Y
Image1.Drag BEGIN_DRAG ；开始拖动操作
Image1.DragIcon = LoadPicture(″按下鼠标时想显示的光标″)
End Sub
Form2下程序代码为：
Option Explicit
Dim dragx As Single
Dim dragy As Single
Const BEGIN_DRAG=1
Private Sub Form_DragDrop(Source As Control，X As Single，Y As Single)
Image1.Picture=Source
Form1.Image1.Picture=LoadPicture(″″)
Image1.Move(X－dragx)，(Y－dragy)
End Sub
Private Sub Image1_MouseDown(Button As Integer， Shift As Integer，
X As Single，Y As Single)
dragx=X
dragy=Y
Image1.Drag BEGIN_DRAG
Image1.DragIcon=LoadPicture(″按下鼠标时想显示的光标″)
End Sub
本程序在VB5.0，Window95环境下通过 |
|
