表紙へ

9.ファイルのドラッグアンドドロップを受け入れる

 

1.リストボックスにドロップしたファイル名を表示する例

あらかじめList1のOLEDropModeプロパティを 1 - 手動 にしておく。

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

    Dim K As Long

    If Data.GetFormat(vbCFFiles) Then

        For K = 1 To Data.Files.Count

            List1.AddItem Data.Files(K)

        Next K

    End If

End Sub