2014-02-18 70 views
0

我想從谷歌搜索中獲取5張圖片,但我不知道如何在Visual Basic中迭代htmlelement並獲取5張圖片。這是我的代碼:在Visual Basic中迭代HtmlElement

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    WebBrowser1.Navigate("http://www.google.es/search?hl=es&site=imghp&tbm=isch&source=hp&biw=1600&bih=775&q=" & "germany") 
    WebBrowser1.ScriptErrorsSuppressed = True 
End Sub 

Private Sub Button2_Click(ByVal sender As Object, ByVal 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 

這取所有的圖像。我怎樣才能得到5張圖片?

回答

0

這應該做到!

For i As Integer = 0 To 4 
    TextBox1.Text = TextBox1.Text & PageElements(i).GetAttribute("src") & Environment.NewLine 
Next