[ابو روضة]

(03-01-20, 09:44 PM)3booody كتب : السبب واضح اخي ابو روضة وهو نفس المشكلة التي ذكرتها الك

الحلقة التكرارية الثانية تقوم بالانتهاء على اخر اسم فيتم وضعه بالليبل لاحظ الكتابة بالعربي

كود :

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 uc As New UserControl1
               Dim input As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("span")
               For Each dd As HtmlElement In input 'الحلقة التكرارية تأخذ اخر قيمة
                   If dd.GetAttribute("className").Contains("msgtxt en") Then
                       uc.PictureBox1.ImageLocation = (item.GetAttribute("src"))
                       uc.nnn.Text = dd.InnerText 'هنا الليبل قد تم تغيير الاسم الى النهاية فتم اخذ اخر قيمة
                       'HtmlElementCollectionمن نفس ال
                       FlowLayoutPanel1.Controls.Add(uc)

                   End If
               Next

           End If
       Next

كما هو الحال أخى وبكودك أنت