程式 - VB6 簡單的拖曳問題

飛行船大大 · 2008-05-29, 10:52 PM

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

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

mini · 2008-05-30, 03:09 PM

http://www.FunP.net/324341

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

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

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

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

飛行船大大 · 2008-05-30, 09:00 PM

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

昨夜因為趕進度所以我換個方式不用拖曳法改成點選法
效果也很不錯. 一直做到凌晨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

2008-05-29, 10:52 PM	#1
飛行船大大註冊會員榮譽勳章勳章總數2 UID - 282126 在線等級: 註冊日期: 2007-10-09 文章: 178 精華: 0 現金: 328 金幣資產: 7328 金幣	程式 - 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 謝謝如下圖： ---目前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 此帖於 2008-05-29 11:26 PM 被飛行船大大編輯.

	送花文章: 185, 收花文章: 64 篇, 收花: 146 次

2008-05-30, 03:09 PM	#2 (permalink)
mini 管理版主榮譽勳章勳章總數17 UID - 4144 在線等級: 註冊日期: 2002-12-07 文章: 13461 精華: 0 現金: 26802 金幣資產: 3024722 金幣	http://www.FunP.net/324341 改用 Listview 控制項因為 List 控制項，只能整個拖曳，會不好看 Listview可以對個別 subitem作拖曳動作 (對應到 Text1_OLEDragDrop) 範例中拖曳text時需反白整個字串(text1.text)，才能形成 OLE拖曳 (ListView1_OLEDragDrop) 所以對 lbl控制項陣列也作了個拖曳設定 (對應到 ListView1_DragDrop) 詳細"事件"反應，請自行作中斷點以利了解 ListViewOP 及 AddRecond2ListView 副程式是個人直接提取個人以前的成品之副程式所以有些地方會有點多此一舉請自行斟酌刪除、修改

	送花文章: 2042, 收花文章: 8054 篇, 收花: 26894 次

2008-05-30, 09:00 PM	#3 (permalink)
飛行船大大註冊會員榮譽勳章勳章總數2 UID - 282126 在線等級: 註冊日期: 2007-10-09 文章: 178 精華: 0 現金: 328 金幣資產: 7328 金幣	感謝 mini大大的好範例. 這樣我又多收藏了一個很不錯的lv範例了昨夜因為趕進度所以我換個方式不用拖曳法改成點選法效果也很不錯. 一直做到凌晨3點鐘. 弄好2個每連好一項左邊的會項目會remove 掉. 右邊的會變綠燈. 容易辨識若是左邊多個項目連到右邊同一項目則會beep 一聲防錯. 這樣就可達到 1對1 (不會多對1 ) . -------- 另一個圖是仍舊是用 listbox ,2框之間會有出現連線. 但這個連線 .class 有時有bug 此帖於 2008-05-30 09:10 PM 被飛行船大大編輯.

	送花文章: 185, 收花文章: 64 篇, 收花: 146 次

相似的主題
主題	主題作者	討論區	回覆	最後發表
麻煩各位大大幫我...vb6.0的問題不能灌	74210	一般電腦疑難討論區	0	2003-01-23 10:12 AM
請問有人發生過PCI簡單控制卡的安裝問題嗎?	fever	硬體疑難使用問題討論區	1	2002-12-18 12:02 AM

Google 提供的廣告