用VB實現拖放功能

 

拖放是用鼠標拖動一個文件到其它對象的活動。在圖形操作過程中，拖放是最常用的功能之一，下面我們來看看怎樣用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環境下通過

原文轉自：http://www.anti-gravitydesign.com