史萊姆論壇 - VB6 簡單的拖曳問題

史萊姆論壇 (http://forum.slime.com.tw/)

- 程式語言討論區 (http://forum.slime.com.tw/f76.html)

- - VB6 簡單的拖曳問題 (http://forum.slime.com.tw/thread230537.html)

VB6 簡單的拖曳問題

我想做一個很簡單的拖曳
先在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

謝謝

如下圖：

http://huhuge.hp.infoseek.co.jp/post_jpg/Picture4.gif

---目前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

http://www.FunP.net/324341

改用 Listview 控制項
因為 List 控制項，只能整個拖曳，會不好看
Listview可以對個別 subitem作拖曳動作 (對應到 Text1_OLEDragDrop)

範例中
拖曳text時
需反白整個字串(text1.text)，才能形成 OLE拖曳 (ListView1_OLEDragDrop)
所以對 lbl控制項陣列也作了個拖曳設定 (對應到 ListView1_DragDrop)

詳細"事件"反應，請自行作中斷點以利了解

ListViewOP 及 AddRecond2ListView 副程式
是個人直接提取個人以前的成品
之副程式
所以有些地方會有點多此一舉
請自行斟酌刪除、修改

感謝 mini大大的好範例. 這樣我又多收藏了一個很不錯的lv範例了:on_79:

昨夜因為趕進度所以我換個方式不用拖曳法改成點選法
效果也很不錯. 一直做到凌晨3點鐘. 弄好2個
每連好一項左邊的會項目會remove 掉. 右邊的會變綠燈. 容易辨識
若是左邊多個項目連到右邊同一項目則會beep 一聲防錯.
這樣就可達到 1對1 (不會多對1 ) .

http://huhuge.hp.infoseek.co.jp/post_jpg/Picture5.gif

--------
另一個圖是仍舊是用 listbox ,2框之間會有出現連線. 但這個連線 .class 有時有bug

http://huhuge.hp.infoseek.co.jp/post_jpg/Picture6.gif