作者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