Drapdrop的一般用法

首先要設定某控制項的allowdrapdrop屬性為true

然後利用控制項的mousedown事件啟用drapdrop

private sub 事件函式名(byval sender as object, byval e as system.windows.forms.mouseeventargs) handles 控制項.mousedown

if e.button = windows.forms.mousebuttons.left then

控制項.dodragdrop(data, 操作型別)

end if

end sub

在目標控制項的drapenter、drapover、drapdrop、drapdrop事件編寫相應的程式**，這裡就簡單的寫些**

private sub button1_dragenter(byval sender as object, byval e as system.windows.forms.drageventargs) handles button1.dragenter

e.effect = dragdropeffects.all

end sub

private sub button1_dragover(byval sender as object, byval e as system.windows.forms.drageventargs) handles button1.dragover

e.effect = dragdropeffects.all

end sub

private sub button1_dragdrop(byval sender as object, byval e as system.windows.forms.drageventargs) handles button1.dragdrop

if e.data.getdatapresent(dataformats.filedrop, false) then

dim b as object = e.data.getdata(dataformats.filedrop)

else

dim b() as string = e.data.getformats

end if

end sub

注意：getdatapresent 可以判斷資料是否程式所需要的資料型別

getformats 返回乙個字串陣列，裡面包含了所拖放的資料的可轉換型別

getdata 返回的雖然是object，但是一般情況下這個object型別其實是拖放資料的一維陣列

高階：當呼叫控制項的dodrapdrop方法後，就會啟用givefeedback事件，在該事件裡可以設定是否顯示滑鼠的預設顯示樣式。

cursor是滑鼠的顯示圖示。可以新建乙個cursor類來表示你要設定的滑鼠樣式。

一般做法是新建乙個bitmap，然後獲取bitmap的控制代碼，再把控制代碼交給新建的cursor類。