ListView拖動問題

Question

現在寫一個小程式,一個Treeview,一個Listview.
Listview顯示資料庫的每條資料,然後鼠標拖動到Treeview控件中,'在Listview1 中選取要拖動的資料
Private Sub Listview1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim DYDY = TextHeight("A")   ' 獲得列表框中一行的高度
Label1.Move ListView1.Left, ListView1.Top + y - DY / 2, ListView1.Width, DYLabel1.Drag   '實際拖動的是Label1End Sub我用上面的代碼來進行拖動,
結果,Listview不能選擇行了,
而且怎麼樣取得拖動的那行的第一列的值.求救..

Answer 1

listview,treeview控件中如果要拖动listitem,node对象，请使用
OLECompleteDrag
OLEDragDrop
OLEDragOver
OLEStartDrag
事件,并相应设置oledropmode和oledragmode属性的值，方可进行拖放操作