我写了下边的代码
Option Explicit
Private Sub Form_Load()
List1.OLEDropMode = 1
End Sub
Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim C As Long
For C = 1 To Data.Files.Count
List1.AddItem Data.Files(C)
Next
End Sub
但是没效果
是我写错了还是win10系统的问题
求大神解惑
Option Explicit
Private Sub Form_Load()
List1.OLEDropMode = 1
End Sub
Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim C As Long
For C = 1 To Data.Files.Count
List1.AddItem Data.Files(C)
Next
End Sub
但是没效果
是我写错了还是win10系统的问题
求大神解惑
