用VB實現拖放功能

　　拖放是用鼠標拖動一個文件到其它對象的活動在圖形操作過程中拖放是最常用的功能之一下面我們來看看怎樣用VB實現拖放功能

　　首先介紹與拖放有關的控件

　　屬性DragMode決定拖動操作的初始化是人工方式還是自動方式

　　DragIcon確定在拖動過程中顯示的指針的圖標形狀

　　方法Drag開始結束或取消拖動控件

　　事件MouseDown事件發生於用戶按下鼠標按鈕時

　　DragOver事件發生於拖動操作完成時

　　DragDrop事件發生於拖動操作正在進行時

　　然後編寫一個小程序這個程序能實現在窗口中或窗口間拖動圖標的功能建

　　立窗口Form和Form在窗口中都加入Image其中Form下的Imagepicture為你想顯示的圖標

　　Form下程序代碼為

　　Option Explicit

　　Dim dragx As Single

　　Dim dragy As Single

　　Const BEGIN_DRAG=

　　Private Sub Form_DragDrop（Source As Control X As Single Y As Single）

　　ImagePicture=Source   ;Sourse為被拖動的控件

　　FormImagePicture=LoadPicture（″″）

　　ImageMove（Xdragx）（Ydragy） XY為鼠標所在目標窗體或控件的當前坐標

　　End Sub

　　Private Sub Form_Load（）

　　Load Form

　　FormShow

　　End Sub

　　Private Sub Image_MouseDown（Button As IntegerShift As Integer

　　X As SingleY As Single）

　　dragx=X

　　dragy=Y

　　ImageDrag BEGIN_DRAG   ;開始拖動操作

　　ImageDragIcon = LoadPicture（″按下鼠標時想顯示的光標″）

　　End Sub

　　Form下程序代碼為

　　Option Explicit

　　Dim dragx As Single

　　Dim dragy As Single

　　Const BEGIN_DRAG=

　　Private Sub Form_DragDrop（Source As ControlX As SingleY As Single）

　　ImagePicture=Source

　　FormImagePicture=LoadPicture（″″）

　　ImageMove（Xdragx）（Ydragy）

　　End Sub

　　Private Sub Image_MouseDown（Button As Integer Shift As Integer源碼天空

　　X As SingleY As Single）

　　dragx=X

　　dragy=Y

　　ImageDrag BEGIN_DRAG

　　ImageDragIcon=LoadPicture（″按下鼠標時想顯示的光標″）

　　End Sub

　　本程序在VBWindow環境下通過

From:http://tw.wingwit.com/Article/program/net/201311/13801.html