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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加