このコードでは、リストボックスにドラッグアンドドロップされたファイルをリストボックスに列挙する。 リストボックス以外のコントロールにドラッグアンドドロップする場合も同様のコードで可能。 ドロップできるようにするために、ドロップする対象のコントロールのAllowDropプロパティをTrueに設定しておく必要がある。
private void listBoxFiles_DragDrop( object sender, System.Windows.Forms.DragEventArgs e )
{
// 格納されているデータを文字列型配列に変換
string[] files = (string[])e.Data.GetData( DataFormats.FileDrop, false );
listBoxFiles.BeginUpdate();
listBoxFiles.Items.Clear();
listBoxFiles.Items.AddRange( files );
listBoxFiles.EndUpdate();
}
private void listBoxFiles_DragEnter( object sender, System.Windows.Forms.DragEventArgs e )
{
// 格納されているデータの形式を確認する
if ( e.Data.GetDataPresent( DataFormats.FileDrop ) )
{
e.Effect = DragDropEffects.Copy;
}
else
{
e.Effect = DragDropEffects.None;
}
}
Private Sub listBoxFiles_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles listBoxFiles.DragDrop
' 格納されているデータを文字列型配列に変換
Dim files() As String = CType(e.Data.GetData(DataFormats.FileDrop, False), String())
listBoxFiles.BeginUpdate()
listBoxFiles.Items.Clear()
listBoxFiles.Items.AddRange(files)
listBoxFiles.EndUpdate()
End Sub
Private Sub listBoxFiles_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles listBoxFiles.DragEnter
' 格納されているデータの形式を確認する
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub