06-04-13, 11:20 PM
يمكنك عرض الكود في اضافة أداة الصور بدلا عن المستعرض
أضف للفورم أداة PictureBox وضع خاصية الـ SizeMode إلي CenterImage
واستخدم هذه الدالة في زر أمر :
أضف للفورم أداة PictureBox وضع خاصية الـ SizeMode إلي CenterImage
واستخدم هذه الدالة في زر أمر :
كود :
Private Sub RefreshCode()
Dim ec As HtmlElementCollection = Me.WebBrowser1.Document.GetElementsByTagName("img")
For Each elmnt As HtmlElement In ec
Dim p As String = elmnt.GetAttribute("src").ToString
If p.Contains("register.nimbuzz.com") Then
Me.PictureBox1.ImageLocation = p.ToString
End If
Next
End Sub
