[VBA ] Listbox資料拖曳轉移

看板Visual_Basic作者michael921 (看看在說吧)時間12年前 (2013/04/11 01:54)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串1/1

以下是我目前完成的部分 https://docs.google.com/file/d/0B73vUpk7u6elU3JWaHlYck5WaEU/edit?usp=sharing 如檔案內容所示我在Userform1內建立兩個Listbox，分別是Listbox1 及 Listbox2 載入表單時各給定一個item分別為 item1 及item2 (未來會設計成自動載入Cells的資料) 彼此之間的資料可以自由拖曳，但同時間一個Listbox內只能有一筆資料或無資料若當資料拖曳至已存在資料的Listbox，則將Listbox內的資料交換我想問的是因目前只有做兩個Listbox，但我真正的目標其實總共有20個Listbox (或更多) 以我目前的寫法，若套用至多個Listbox上，則程式會變得很複雜 (因為我是在Listbox1上，寫下當滑鼠有作用時，則Listbox2會有什麼動作) 詳細狀況如下圖所示 ===============拖曳前(假設共有Listbox1~Listbox6)================== ┌────┐ ┌────┐ ┌────┐ │ item1 │ │ item2 │ │ │ │ │ │ │ │ │ └────┘ └────┘ └────┘ ┌────┐ ┌────┐ ┌────┐ │ │ │ item3 │ │ │ │ │ │ │ │ │ └────┘ └────┘ └────┘ ===============拖曳後(假設共有Listbox1~Listbox6)================== (item1拖曳至原本已存在item3的Listbox，兩者資料交換; item2拖曳至空白Listbox) ┌────┐ ┌────┐ ┌────┐ │ item3 │ │ │ │ item2 │ │ │ │ │ │ │ └────┘ └────┘ └────┘ ┌────┐ ┌────┐ ┌────┐ │ │ │ item1 │ │ │ │ │ │ │ │ │ └────┘ └────┘ └────┘ 以我目前提供的檔案，需如何去做修改呢，謝謝大家希望我描述得夠清楚，謝謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 118.170.200.221