拖放是用鼠标拖动一个文件到其它对象的活动。在图形操作过程中，拖放是最常用的功能之一，下面我们来看看怎样用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环境下通过
没有相关教程
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
