ListBoxにドラック＆ドロップ＠VB.Netのお勉強

ListBoxにドラック＆ドロップ＠VB.Net

ListBoxにファイルをドラックア＆ドロップして、
ファイルパスを格納します。

フォームにListBoxを配置します。
AllowDropをTrueにします。

ListBoxのDragEnterをハンドルします。
マウスでListBox上の領域に入った時の処理です。

e.Data.GetDataPresentがDataFormats.FileDropならば、
e.Effect = DragDropEffects.Copyとし、Dropを可とします。

次に、ListBoxのDragDropをハンドルします。
ドロップされた場合の処理を記述します。

e.Data.GetDataによりドロップされたデータを取得し、
ListBoxに配置します。

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'ドロップをTrueにする
        Me.ListBox1.AllowDrop = True

    End Sub

    Private Sub ListBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
        'データ形式のチェック
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            'FileDropならDrop可
            e.Effect = DragDropEffects.Copy
        Else
            'Drop不可
            e.Effect = DragDropEffects.None
        End If

    End Sub

    Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
        'ドロップデータをString型配列に変換
        Dim files() As String = CType(e.Data.GetData(DataFormats.FileDrop), String())

        'ListBoxに追加
        ListBox1.Items.AddRange(files)

    End Sub
End Class