PictureBoxに画像をドラッグ＆ドロップで表示するには？

解決

モモ 2007-02-26 08:01:59 No: 135497

VB.NET2005です。
フォームにPictureBoxを貼り付け、エクスプローラからJPG等のイメージ
ファイルをドラッグ＆ドロップすることで画像を表示させ、
同時にドラッグ＆ドロップされたファイルのパス（例c:\abc\image1.jpg）を
取得し、別に貼り付けたテキストボックスに取得したパスの文字列を
表示されるにはどうすればよいのでしょうか。
ファイルパスを元にPictureBox上に画像を表示される事は出来たのですが、
”ドラッグ＆ドロップ”というところで行き詰っています。
何卒よろしくお願い申し上げます。

通ってみた 2007-02-26 14:50:50 No: 135498

私は.Netはわからないのですが、検索をしたらこんな記事をみつけました

http://smdn.invisiblefulmoon.net/ikimasshoy/dotnettips/tips005.html

我龍院 2007-02-26 17:56:22 No: 135499

こんなことかな。
Public Class Form1
    Private Sub PictureBox1_DragEnter(ByVal sender As Object, _
                                     ByVal e As System.Windows.Forms.DragEventArgs) _
                                     Handles PictureBox1.DragEnter
        If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub
    Private Sub PictureBox1_DragDrop(ByVal sender As Object, _
                                    ByVal e As System.Windows.Forms.DragEventArgs) _
                                    Handles PictureBox1.DragDrop
        Dim strFileName As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
        PictureBox1.Image = System.Drawing.Image.FromFile(strFileName(0))
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.AllowDrop = True
    End Sub
End Class

モモ 2007-03-01 00:46:54 No: 135500

お返事ありがとうございました。
我龍院様の教えて頂いた方法でうまく行きました。
本当にありがとうございました。