Listbox的Drag(拖曳事件)问题
发布网友
共1个回答
热心网友
'添加窗体Form1,列表框List1,然后添加如下代码:
Private Sub Form_Load()
List1.OLEDragMode = 1
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 strFileN As String
If Data.GetFormat(1) Then Exit Sub
strFileN = Data.Files.Item(Data.Files.Count)
List1.AddItem strFileN
End Sub
