ReadyGo!技术成就梦想 网络搜索 efish 2008-1-14 1:24:13

关于列表框的两个基本问题，高分求救！（100分）对于知道的人来说就是送分！！

楼主zerg_79（呆呆虫）2002-03-13 12:31:42 在 VB / 基础类 提问

1.我看过一些使用了列表框（ListBox）控件的VB程序，把某个文件往程序界面的列表框中拖放一下，该文件的文件名（含路径）就添加到列表框中成为了一列，请问怎么实现的？谢谢！(50分）  
  2.怎样象Winamp播放列表那样拖放列表框中的各个列表项使它们重新排列（把某一个列表项拖到指定的某个位置？（50分）  
  如果我说的有不清楚的地方请跟贴询问，偶在线等候回复！  
  问题点数：100、回复次数：12Top

1 楼Tadpole0510（学习、学习）回复于 2002-03-13 12:38:18 得分 0

关注关注！Top

2 楼zerg_79（呆呆虫）回复于 2002-03-13 12:39:46 得分 0

别空关注啊？？？得有人回答哦！急着要用的！Top

3 楼pengnick（pengnick）回复于 2002-03-13 12:46:05 得分 0

读取文件的属性----路径。Top

4 楼zerg_79（呆呆虫）回复于 2002-03-13 12:58:09 得分 0

关键是把文件往ListBox中拖放的操作啊？？？是什么事件？？方法？？？  
  然后怎么读取？？？Top

5 楼wjying（葡萄）回复于 2002-03-13 13:03:24 得分 0

1和2   ole的drag  
  Top

6 楼wjying（葡萄）回复于 2002-03-13 13:06:56 得分 0

ListView1.OLEDragMode   =   1  
  ListView1.OLEDropMode   =   1  
   
  Private   Sub   ListView1_OLEDragDrop(Data   As   MSComctlLib.DataObject,   Effect   As   Long,   Button   As   Integer,   Shift   As   Integer,   x   As   Single,   y   As   Single)  
   
  End   Sub  
  Top

7 楼zerg_79（呆呆虫）回复于 2002-03-13 13:09:04 得分 0

你说的是用Listview？？？？能不能再说具体点？？？？  
  怎么获得文件名？Top

8 楼qihangnet（启航）回复于 2002-03-13 13:18:30 得分 0

由于不明白你的第一个问题到底是怎么一会事，所以先回答你的的二个问题（只说方法，暂时没有代码！）：播放列表不用ListBox，采用在pictrue控件内放入label控件数组，然后对label控件编写一个鼠标控制代码（利用mousedown事件和数组元素互换的基本算法实现拖放重排）！  
          学着用动态思维考虑和解决问题，一切都会简单的！祝你成功！Top

9 楼wjying（葡萄）回复于 2002-03-13 13:53:45 得分 0

怎么获得文件名？  
  Private   Sub   ListView1_OLEDragDrop(Data   As   MSComctlLib.DataObject,   Effect   As   Long,   Button   As   Integer,   Shift   As   Integer,   x   As   Single,   y   As   Single)    
  myfile=data.files(index)  
  End   Sub    
  可以不止一个文件Top

10 楼wjying（葡萄）回复于 2002-03-13 13:54:12 得分 0

list也一样有这个时间Top

11 楼wjying（葡萄）回复于 2002-03-13 13:54:28 得分 100

list也一样有这个事件Top

12 楼zerg_79（呆呆虫）回复于 2002-03-13 14:11:34 得分 0

谢谢你，亲爱的葡萄！！！！  
  给你100分了，请笑纳！Top