Visual Basic Tips

エクスプローラからリストボックスへドロップ

エクスプローラからファイルを複数選択してリストボックスへドロップしたい時はOLEDragDropイベントを使用します。

Private Sub Form_Load()
　　List1.OLEDropMode = vbOLEDropManual
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 ret As Integer
　　Dim i As Integer

　　On Error GoTo ABNORMAL

　　For i = 1 To Data.Files.Count
　　　　List1.AddItem Data.Files.Item(i)
　　Next
NORMAL:
　　Exit Sub
ABNORMAL:
　　ret = MsgBox("<" & Err & ">" & Error(Err), vbOKOnly, "List1_OLEDragDrop")
End Sub


DownLoad vbtips003.lzh 2KB (VB6.0)