1

キャッチウェブブラウザ画像リンクについて。
私のウェブブラウザには1つの画像があります。
この画像リンクをTextBoxに取り込むにはどうすればよいですか？
wenBrowser1のプロパティでWebサイトのリンクを設定しました

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim PageElements As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("img")
        For Each CurElement As HtmlElement In PageElements
            TextBox1.Text = TextBox1.Text & CurElement.GetAttribute("src") & Environment.NewLine
        Next
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class
4

2 に答える 2

1

着るWebBrowser1_DocumentCompleted

于 2012-04-29T16:04:44.420 に答える
0

これがあなたに必要なものだと思いますか？

Webbrowserコントロール、2 buttonコントロール、およびコントロールを追加し、textboxtextboxプロパティをに設定しmultilineます。

button1を最初にクリックすると、Webサイトの一部に移動します。

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate("http://www.microsoft.com")
End Sub

ボタン2をクリックすると、そのWebリンク内のすべての画像がテキストボックスに追加されます

Private Sub Button2_Click(sender As Object, e As System.EventArgs) Handles Button2.Click
    Dim PageElements As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("img")
    For Each CurElement As HtmlElement In PageElements
        TextBox1.Text = TextBox1.Text & CurElement.GetAttribute("src") & Environment.NewLine
    Next
End Sub

出力は次のとおりです。 ここに画像の説明を入力してください

于 2012-04-29T14:10:41.963 に答える