[طالب برمجة]

(01-02-18, 09:17 AM)ابو روضة كتب : انا حاولت بهذا لكنه يجلبهم داخل الليست بوكس أى يجلب روابط الصورة
وانا اريد ادراج وعرض كل الصور داخل الPictureBox كل فيديو بصورته الخاصة

كود :

 Dim inputs As HtmlElementCollection
       inputs = WebBrowser1.Document.GetElementsByTagName("img")
       For Each item As HtmlElement In inputs
           If item.GetAttribute("src").Contains("i.ytimg.com/") Then
               ListBox1.Items.Add(item.GetAttribute("src"))
           End If
       Next

حسنا أضف أداة FlowLayoutPanel وقم بتفعيل الخاصية AutoScroll

PHP كود :

Dim inputs As HtmlElementCollection
inputs = WebBrowser1.Document.GetElementsByTagName("img")
For Each item As HtmlElement In inputs
    If item.GetAttribute("src").Contains("i.ytimg.com/") Then
        Dim pb As New PictureBox
        pb.SizeMode = PictureBoxSizeMode.Zoom
        pb.ImageLocation = item.GetAttribute("src")
        pb.Parent = Me.FlowLayoutPanel1
    End If
Next