vb如何实现用鼠标将桌面程序托到列表中

Question

vb如何实现用鼠标将桌面程序托到列表中？

Answer 1

说明白一下：　　就是将桌面上的托动的程序图标对应的程序路径加到textBox中.

Answer 2

Option ExplicitPrivate Sub Form_Load()
    Text1.OLEDropMode = vbOLEDropManual
End SubPrivate Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Data.GetFormat(vbCFFiles) Then
        Dim i As Long
        For i = 1 To Data.Files.Count
            Debug.Print , Data.Files(i)
            '如果是 .lnk 文件，参考 http://topic.csdn.net/t/20001128/22/43463.html#
        Next
    End If
End Sub