VisualBasic6でドラック＆ドロップのアプリを作成したい

質問

VisualBasic6で、作成したアプリケーションのフォーム上に、他のファイルをドラック＆ドロップした場合に、
ファイル名をフォーム上やラベルに表示させたいのですが、参考になるソースはありますか？

回答No.2

noname#4564 · ベストアンサー

D&D対象のイベントリスナのプロパティを以下に設定し、

OLEDragMode = 1 - 自動
OLEDropMode = 1 - 手動

_OLEDragDrop イベントプロシジャに処理を記述すればOKです。

下記が参考になるかどうか・・・。
(1年以上前に作成したものなので、詳細な内容は失念)

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
'2002/01/05 ファイルのドラッグ＆ドロップ
'(マイコンピュータ、IE、ゴミ箱等の特殊ショートカットは以下の処理でエラーと
'なるため、エラー処理が必要)
On Error Resume Next
Me.Text1.Text = GetLinkPath(Data.Files(1))
On Error GoTo 0
End Sub

回答No.1

2ch

OLEDragDrop

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q=289846