怎样才能像explorer一样把桌面的程序拖到我编的listview中,图标也拉过来


Private Sub tvVolume_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    StopIt = False
    Dim XX
    For Each XX In Data.Files
        '你到底向在这里干什么！
    Next XX
End Sub

解决方案 »

  1.   

    有点问题，哈哈Private Sub tvVolume_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
        Dim XX
        For Each XX In Data.Files
            '你到底向在这里干什么！
        Next XX
    End Sub
      

  2.   

    在for each xx in data.files中
     怎么把对应拖过来的程序的图标加入imagelist,能使我在应用程序中
    显示对应的文件的图标
         imagelist1.add  data.files   ????
      

  3.   

    要获取文件的图标就需要用其它API了
      

  4.   

    另外,data有那些属性,我是蔡鸟
      

  5.   

    是不是用exactiron,我用exactass..iron时,告诉我没有这个api,七四我了
    用这个函数提出的ico在exe中的位置如23456,不能这样加入imagelist啊
      

  6.   

    另外对于获得的icon局柄，可以调用api函数ImageList_AddIcon添加到一个ImageList
    控件中，函数在comctl32.dll中。
      

  7.   

    有呀，只是API View中没有定义而已，我这里有使用Delphi调用的代码。
      

  8.   

    To TechnoFantasy
     是不是可以拿出来看看
      

  9.   

    我觉得很复杂，我有一份源码（别人的）你可参考一下。
    来email索取。
      

  10.   

    我需要一份，谢谢
    [email protected]
      

  11.   

    厉害呀，你编的LISTVIEW？？？是从头编的吗？
      

  12.   

    我的办法：用ExtractIcon或ExtractIconEx,最好用后者，能获得小图标，再把通过API获得的图标句柄加入ImageList控件中，用AddIcon，我是用Delphi实现的，在VB中应该也一样的。
      

  13.   

    TO:suntingting(亭亭)　
    我非常想要，给分！谢谢！
    [email protected]
      

  14.   

    TO:suntingting(亭亭)　我也看看，[email protected],谢谢