拖放问题！

list中有文件名,拖放到文件夹中创建该文件  
   
   
  例如：  
  拖放listviwe中的a.aaa到桌面，桌面上创建该文件 问题点数：50、回复次数：5Top

1 楼yunyu97（）回复于 2005-03-14 18:13:59 得分 45

'在拖放完成之前一定要先创建文件，否则拖放操作会失败  
   
  Option   Explicit  
   
   
  Private   Sub   Form_Load()  
  Dim   bytData()   As   Byte  
          bytData()   =   StrConv("你好",   vbFromUnicode)  
          '创建2个新的文件  
          Open   "c:\112.txt"   For   Binary   As   #1  
          Put   #1,   ,   bytData  
          Close   #1  
          bytData()   =   StrConv("不好",   vbFromUnicode)  
          Open   "c:\113.txt"   For   Binary   As   #1  
          Put   #1,   ,   bytData  
          Close   #1  
           
          List1.AddItem   "112.txt"  
          List1.AddItem   "113.txt"  
  End   Sub  
   
  Private   Sub   List1_MouseMove(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)  
  Dim   myData   As   DataObject  
  If   Button   =   vbLeftButton   Then  
          '开始脱放  
          List1.OLEDrag  
  End   If  
  End   Sub  
   
   
   
  Private   Sub   List1_OLEStartDrag(Data   As   DataObject,   AllowedEffects   As   Long)  
          '设置脱放对象的格式以及数据  
          Data.SetData   ,   vbCFFiles  
          Data.Files.Add   "c:\"   &   List1.List(List1.ListIndex)  
          '此处如果为vbDropEffectCopy则为复制  
          AllowedEffects   =   vbDropEffectMove  
          'AllowedEffects   =   vbDropEffectCopy  
  End   SubTop

2 楼cdsun（）回复于 2005-03-14 19:50:57 得分 5

up  
  Top

3 楼flyingakain（夜猫儿）回复于 2005-03-22 01:46:36 得分 0

yunyu97()   不管用啊Top

4 楼yunyu97（）回复于 2005-03-23 20:08:57 得分 0

怎么可能不管用呢，你拷贝我的代码到form中，然后在form上放一个list控件，运行后会将list中的选项拖动到桌面，你就会发现文件拖动了。Top

5 楼flyingakain（夜猫儿）回复于 2005-03-26 03:08:28 得分 0

呵呵，vb的毛病  
  弄好了，谢谢Top

相关问题

• 文件
• 拖放
• bytdata
• 创建
• txt
• list
• sub
• data

• 帖主：flyingakain
• yunyu97
• cdsun

• Visual Basic类图书
• Visual Basic类源码下载