[飛行船大大]

--------------------
閱讀本主題的最佳解答
--------------------


我想做一個很簡單的拖曳
先在F0RM中放 一個LISTBOX 其中有 3項 資料list1, list2, list3. 我想滑鼠 按某一項 (例如 "list2" )拖到右框中 任一空白的TEXT1(0) ~TEXT1(15) 中
將左邊的項目 拖曳到右邊的各個空白項目之中 , 放開滑鼠 就可將 此項的名稱 "list2" 填到其中. 像小學生做連連看

但發現 我 沒寫過拖曳 , 卻拖動整個LISTBOX 移動 . 不正確
請 熟悉拖曳 的大大們 修正我所寫的錯誤.

也附上專案,各位若修改後請寄 fancytom@hotmail.com
http://huhuge.hp.infoseek.co.jp/post_jpg/DRAG.rar

謝謝

如下圖：

---目前code 如下--------------------

Private Sub Form_Load()
   List1.OLEDragMode = vbOLEDragAutomatic
 
End Sub
 
Private Sub Form_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
'
End Sub
 
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   List1.DragMode = 1 '允許拖
End Sub
 
 
 
Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   List1.Drag 2
 
End Sub
 
Private Sub Text1_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
   Text1(Index).Text = List1.Text
End Sub