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

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

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

←解決時は質問者本人がここをチェックしてください。

戻る