VB中Dragdrop事件與Dragover事件的使用

　　在WINDOWS中，拖動意味著移動光標到對象上，按住鼠標，接著移動鼠標使對象在屏幕內滑動以重新定位對象。當釋放鼠標按鈕時，在拖動對象所在控件邊界內放開鼠標會觸發DragDrop事件。如果放開鼠標時對象不在一個控件的上面，那么對象定位于窗體本身。
如果一個對象在一個控件（或窗體）上被放開，并且在后者的DragDrop事件中沒有放任何內容，那么“被放開”的對象將仍然在窗體上原先位置出現，不會出現其他事情。因此，拖動對象的DragDrop事件不是用來存放有關放開對象時執行某些指令的地方。而應將這些指令放到背景的DragDrop事件中或者拖動對象所放開的目標控件中。
一個DragDrop事件提供三條信息－－DragDrop（Source as Control，X as Single，Y as Single）Source，是已經放開的圖片，圖標或控件。X和Y值，是放開事件所在目表對象的水平和垂直方向位置。如：

Sub pictrue1－DragDrop（Source as Control，X as Single，Y as Single）
Pictrue1．DrawWidth＝6
picture1．pset（x，y），QBcolor（4）
End Sub

當一個控件拖動到另一個之上時，發生一個DragOver事件，以警告被入侵的控件或窗體發生了拖動。一個DragOver事件提供四條信息：
DragOver（Source as conterol，X as Single，Y as Single，State as Integer）
“Source”為入侵者標志。入侵者在被入侵的控件或窗體內的當前位置由X，Y來確定入侵者的狀態，如是否剛剛進入。仍在其內或將要離開等由State變量報告。
通過允許用戶拖動一個指針在屏幕上移動，接觸窗口內的不同區域引起事情發生。一種常用的編程技術是和一狀態欄一同使用。狀態欄隨程序運行時的情況而改變，報告光標的當前位置，變量如Font等的狀態，提供一種有效的幫助功能。

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