作者michael921 (看看在说吧)
看板Visual_Basic
标题[VBA ] Listbox资料拖曳转移
时间Thu Apr 11 01:54:12 2013
以下是我目前完成的部分
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