ドラッグアンドドロップされたファイルをリストボックスに表示する 最終更新日 2003年8月7日 0:00 このコードでは、リストボックスにドラッグアンドドロップされたファイルをリストボックスに列挙する。 リストボックス以外のコントロールにドラッグアンドドロップする場合も同様のコードで可能。 ドロップできるようにするために、ドロップする対象のコントロールのAllowDropプロパティをTrueに設定しておく必要がある。 C# VB 別ウィンドウで開く すべて選択してコピー ダウンロード 行番号を表示する 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