Pictureboxにドラッグドロップで入れた画像のパスはどこに？

質問

VB6です。

ピクチャーボックスにドラッグアンドドロップでほりこんだ画像のパスを取得したいのですが、どのプロパティが持っているのかいまいちわかりません。

どのプロパティが保持しているのか、もしくは個別に取得するコードを書かなければいけないのでしょうか。

回答No.1

redfox63 · ベストアンサー

ピクチャボックスに Drag&Dropで登録した画像のパス名は ピクチャボックス側では管理していません

OLEDragDropイベントで 引数のDataObjectを使って LoadPictureでピクチャボックスのPictureプロパティに登録しているのだろうと思います

Formレベルの変数などで 記憶しておくほかないでしょう
Dim sFileName as String

Sub OLEDragDrop( Data as DataObject, X as Single, Y as Single)
　if Data.GetFormat( VbCFFiles) then
　　sFileName = Data.Files(1)
　　Picture1.Picture = LoadPicture( sFileName )
　end if
END SUB

といった具合に ...

お礼

お返事ありがとうございます。
早速試してみましたところ、上手くパスを取得することができました。
ありがとうございました。