エクスプローラからのドラッグ・ドロップでファイル名を取得する方法

戻る

エクスプローラからのドラッグ・ドロップでファイル名を取得する方法

動作環境 Windows95/98 開発環境 Visual Basic 6.0 (+SP3)

説明「CoolLauncher」で使用しているテクニックの一部です。
ピクチャボックスにドラッグ・ドロップされたファイルのパスをリストボックスに表示します。

用意するもの：標準フォーム(Form1)、ピクチャボックス(Picture1)、リストボックス(List1)

'（このサンプルの制限事項）
'変数の宣言、エラー回避処理については省略しました

Private Sub Form_Load()

'ピクチャーボックスの初期化
Picture1.OLEDragMode = 0 '自動
Picture1.OLEDropMode = 1 '自動

'リストボックスの初期化
List1.Clear

End Sub

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

'定数vbCFFiles：データオブジェクトからファイル一覧を取得
Data.GetFormat (vbCFFiles)

'データオブジェクトに格納されているデータの件数
DCount = Data.Files.Count

'リストボックスにファイルのパスを表示
For i = 1 To DCount
List1.AddItem Data.Files(i)
Next

End Sub

エクスプローラからのドラッグ・ドロップでファイル名を取得する方法
動作環境	Windows95/98	開発環境	Visual Basic 6.0 (+SP3)
説明	「CoolLauncher」で使用しているテクニックの一部です。ピクチャボックスにドラッグ・ドロップされたファイルのパスをリストボックスに表示します。
用意するもの：標準フォーム(Form1)、ピクチャボックス(Picture1)、リストボックス(List1)
'（このサンプルの制限事項） '変数の宣言、エラー回避処理については省略しました Private Sub Form_Load() 'ピクチャーボックスの初期化 Picture1.OLEDragMode = 0 '自動 Picture1.OLEDropMode = 1 '自動 'リストボックスの初期化 List1.Clear End Sub Private Sub Picture1_OLEDragDrop(Data As DataObject, _ Effect As Long, _ Button As Integer, _ Shift As Integer, _ X As Single, _ Y As Single) '定数vbCFFiles：データオブジェクトからファイル一覧を取得 Data.GetFormat (vbCFFiles) 'データオブジェクトに格納されているデータの件数 DCount = Data.Files.Count 'リストボックスにファイルのパスを表示 For i = 1 To DCount List1.AddItem Data.Files(i) Next End Sub