ListView1.OLEDragMode = 1 ListView1.OLEDropMode = 1Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)End Sub
怎么获得文件名? 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 可以不止一个文件
ListView1.OLEDropMode = 1Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)End Sub
怎么获得文件名?
学着用动态思维考虑和解决问题,一切都会简单的!祝你成功!
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
可以不止一个文件