vb.netでのリンク画像のドラッグ＆ドロップについて教えてください

MX 2004-10-06 02:31:42 No: 116801

webからFormのPictureBox1に画像をドラッグしたいのですが、
リンク無し画像の場合うまくドラッグできるのですが、
リンク有画像の場合ドラッグできません
対処方法がありましたら教えてください

よろしくお願いします。

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'ドロップを受け入れる
        PictureBox1.AllowDrop = True
        'DragEnterイベントハンドラを追加
        AddHandler PictureBox1.DragEnter, AddressOf PictureBox1_DragEnter
        'DragDropイベントハンドラを追加
        AddHandler PictureBox1.DragDrop, AddressOf PictureBox1_DragDrop
    End Sub

Private Sub PictureBox1_DragEnter( _
ByVal sender As Object, ByVal e As DragEventArgs)

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 DragEventArgs)

        Dim MjstrPicPath As String
        'ドロップされた画像を取得する
        MjstrPicPath = e.Data.GetData(DataFormats.FileDrop)(0)
        PictureBox1.Image = Image.FromFile(MjstrPicPath)

End Sub