エクセル VBA ListView の OLEDragDropイベントとは（Excel VBA）

【本日のミッション】

エクセル VBA の ListViewオブジェクトの OLEDragDropイベントとは何か解明せよ。

1 ミッションの概要
2 プロシージャ
3 OLEDragDropイベント
4 OLEDropModeプロパティ
- 4.1 ccOLEDropManual
- 4.2 ccOLEDropNone
5 【参考】

ミッションの概要

エクセル VBA の ListViewオブジェクトの OLEDragDropイベントとは何か解明せよ、というのが今回のミッションです。

プロシージャ

OLEDragDropイベントの動作を確認するために、下記プロシージャをサンプルとして使用します。

その他のコードの内容につきましては、エクセル VBA ListViewにドラッグ&ドロップでファイル名・ファイルパス複数の情報を取得（Excel VBA）をご参照ください。

ファイルをドラッグ＆ドロップすると、ファイル名、ファイルパスを取得するコードになります。

Private Sub UserForm_Initialize()
    With ListView1
        '■プロパティ設定
        .FullRowSelect = True           '行全体の選択
        .Gridlines = True               '行列グリッド線の表示
        .LabelEdit = lvwManual          'ラベル編集不可
        .OLEDropMode = ccOLEDropManual  'ファイルドロップ処理
        .View = lvwReport               '表示形式

        '■列見出しの名前・列幅の設定
        .ColumnHeaders.Add , "key1", "ファイル名", 100, lvwColumnLeft
        .ColumnHeaders.Add , "key2", "ファイルパス", 300, lvwColumnLeft
    End With
End Sub

Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    '【変数】
    Dim i As Long           'カウンター
    Dim fileCount As Long   'ファイル数
    
    With ListView1
    
        '■既存ファイル名のクリア
        .ListItems.Clear
        
        '■ファイル数の取得
        fileCount = Data.Files.Count
        
        '■ドラッグ＆ドロップしたファイル名・ファイルパスを順にリスト化
        For i = 1 To fileCount
            With .ListItems.Add
                .Text = Dir(Data.Files(i))    'ファイル名
                .SubItems(1) = Data.Files(i)  'ファイルパス
            End With
        Next i
    End With
End Sub

■■■スポンサーリンク■■■

OLEDragDropイベント

ListViewオブジェクトにファイルをドラッグ＆ドロップした時に行われる動作を記載します。

ListViewオブジェクトOLEDropModeプロパティに「ccOLEDropManual」が指定されている必要があります。

今回は、ListViewオブジェクトの OLEDragDropイベントプロシージャ 「Private Sub ListView1_OLEDragDrop」に、下記コードを記載しております。

ファイルをドロップするとListViewオブジェクトの既存データがクリアされ、新たにファイル名・ファイルパスが表示されます。

コードの内容・設定方法につきましてはエクセル VBA ListViewにドラッグ&ドロップでファイル名・ファイルパス複数の情報を取得（Excel VBA）をご参照ください。

Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    '【変数】
    Dim i As Long           'カウンター
    Dim fileCount As Long   'ファイル数

    With ListView1
        '■既存ファイル名のクリア
        .ListItems.Clear

        '■ファイル数の取得
        fileCount = Data.Files.Count

        '■ドラッグ＆ドロップしたファイルパスを順にリスト化
        For i = 1 To fileCount
            With .ListItems.Add
                .Text = Dir(Data.Files(i))    'ファイル名
                .SubItems(1) = Data.Files(i)  'ファイルパス
            End With
        Next i
    End With
End Sub

OLEDropModeプロパティ

ファイルドロップ処理を行うか、行わないかを指定します。

ファイルドロップ処理を行う場合、OLEDropModeプロパティに「ccOLEDropManual」を指定し、ListViewオブジェクトの OLEDragDropイベントプロシージャ に、ファイルをドロップした際の動作を指定する必要があります。

ccOLEDropManual

ファイルをドロップした時、ListViewオブジェクトのOLEDragDropイベントプロシージャに記述した処理を行います。

ListView1.OLEDropMode = ccOLEDropManual

今回、ListViewオブジェクト「ListView1」の OLEDragDropイベントプロシージャ「Private Sub ListView1_OLEDragDrop」では、既存ファイルパスのクリアとファイル名・ファイルパスのリスト化の処理を行っています。

ccOLEDropNone

ファイルをドロップしても、ListViewオブジェクトの OLEDragDropイベントプロシージャに記述した処理は行われず、ファイルが開きます。

ListView1.OLEDropMode = ccOLEDropNone

【参考】

■■■スポンサーリンク■■■