2010-10-20 79 views
0

我有一個問題,在圖片框中顯示一些圖片(多個)。獲取圖片fom webbrowser圖片框

<div id="salary_total" style="display: block;"><table style="border: 3px solid rgb(71, 5, 6); padding-right: 1px;" bgcolor="#ffffff" cellpadding="0" cellspacing="0"><tbody><tr><td><img src="./images/counter/b.gif"></td> 
<td><img src="./images/counter/3.gif" border="0"></td> 
<td><img src="./images/counter/3.gif" border="0"></td> 
<td><img src="./images/counter/0.gif" border="0"></td> 
<td><img src="./images/counter/8.gif" border="0"></td> 
</tr></tbody></table> 

這些圖片鏈接,顯示像3308這樣的數字,並且每次頁面加載時都會發生變化。我怎樣才能在picturebox中顯示這些圖片(彼此相鄰)。

Try 
    Dim htmlDocument As HtmlDocument = Me.WebBrowser1.Document 
    Dim htmlElementCollection As HtmlElementCollection = htmlDocument.Images 
    For Each htmlElement As HtmlElement In htmlElementCollection 
     Dim imgUrl As String = htmlElement.GetAttribute("src") 
     If imgUrl.Contains("counter") Then 
      Me.PictureBox1.ImageLocation = imgUrl.Substring(0, 41) 
     End If 
    Next 

這一個適用於第一張照片,我怎麼能有這樣3個pictureboxs,和其他3張圖片做同樣的?像3.gif必去的第一個PictureBox的,等等?!

+0

出於好奇..你爲什麼顯示圖片而不是普通文本。您可以使用CSS來設置字體的樣式。 – Shoban 2010-10-20 04:02:00

回答

1

我想通了:這是解決方案!謝謝

Try 
      Dim htmlDocument As HtmlDocument = Me.WebBrowser1.Document 
      Dim htmlElementCollection As HtmlElementCollection = htmlDocument.Images 
      Dim ImagesFound As Integer = 0 
      For Each htmlElement As HtmlElement In htmlElementCollection 
       Dim imgUrl As String = htmlElement.GetAttribute("src") 
       If imgUrl.Contains("counter") Then 
        ImagesFound+=1 
        Select Case ImagesFound 
         Case 1 
           PictureBox1.ImageLocation = imgUrl 
           Label1.Text = PictureBox1.ImageLocation.ToString() 
         Case 2 
           PictureBox2.ImageLocation = imgUrl 
           '... etc. 
        End Select 

       End If 
      Next 
     Catch ex As Exception 
     End Try 
0

首先,你ImageLocation會出來這樣的:

http://www.link.com./images/counter/8.gif 

這可能不是你的原意。

其次,Shoban說你應該使用普通文本和CSS。他是對的。第三,如果你想在一個圖片框中顯示多個圖片,你將需要製作一個圖片對象並將其他圖片繪製到其中。有VB.Net功能,還有本地Windows API(CopyRect?)。

如果您願意,您可以使用多個圖片框。

+0

更新了問題!謝謝 – Beho86 2010-10-20 20:45:56