CSDN博客

img vbfdy

用VB实现拖放功能

发表于2001/8/16 14:55:00  752人阅读

 

拖放是用鼠标拖动一个文件到其它对象的活动。在图形操作过程中,拖放是最常用的功能之一,下面我们来看看怎样用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环境下通过
0 0

相关博文

我的热门文章

img
取 消
img