[ابو روضة]

السلام عليكم ورحمة الله وبركاته.  

بستخدم هذا الكود لجلب مجموعة من الصور بأسمائها من موقع تحميل.

كود :

 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.StretchImage
               pb.Width = 150
               pb.Height = 150
               pb.ImageLocation = (item.GetAttribute("src"))
               pb.Parent = Me.FlowLayoutPanel1
           End If
       Next
       'Label1.Text = WebBrowser1.DocumentTitle
       Dim input As HtmlElementCollection
       input = WebBrowser1.Document.GetElementsByTagName("span")
       For Each item As HtmlElement In input
           If item.GetAttribute("id").Contains("msgtxt3567146535") Then

               Dim pb As New Label
               pb.AutoSize = True
               pb.Width = 150
               pb.Height = 150


               pb.Text = item.InnerText
               FlowLayoutPanel1.WrapContents = False
               pb.Parent = Me.FlowLayoutPanel1
           End If
       Next

لكن مش عارف أظبط الكود ليكون الاسم بجوار الصورة أو تحتها وبالتالى بتظهر هكذا

[b] [/b]

فكيف أجعل الاسم بجوار الصورة الخاصة به

[3booody]

السلام عليكم ورحمة الله وبركاته

ياريت لو تعطينا رابط الموقع اخ ابو روضة لان الكود يظهر خطأ حتى نساعدك بفكرة مناسبة لغرضك

[جميل]

الأفضل أن تعمل UserControl وتصممه بالشكل الذي يناسبك من إضافة PictureBox وLabel،
ثم تستنسخ منه نسخة جديدة لكل عنصر تريد تضيفه للأداة FlowLayoutPanel بالكود التالي

PHP كود :

Dim uc As New UserControl1
uc.PictureBox1.ImageLocation=(item.GetAttribute("src"))
uc.Label1.Text=item.InnerText
FlowLayoutPanel1.Controls.Add(uc) 


[ابو روضة]

(02-01-20, 08:17 PM)3booody كتب : السلام عليكم ورحمة الله وبركاته

ياريت لو تعطينا رابط الموقع اخ ابو روضة  لان الكود يظهر خطأ حتى نساعدك بفكرة مناسبة لغرضك

(03-01-20, 07:52 PM)جميل كتب : الأفضل أن تعمل UserControl وتصممه بالشكل الذي يناسبك من إضافة PictureBox وLabel،
ثم تستنسخ منه نسخة جديدة لكل عنصر تريد تضيفه للأداة FlowLayoutPanel بالكود التالي

PHP كود :

Dim uc As New UserControl1
uc.PictureBox1.ImageLocation=(item.GetAttribute("src"))
uc.Label1.Text=item.InnerText
FlowLayoutPanel1.Controls.Add(uc) 


الحقيقة الأخ بودى تعب معايا جدا على الخاص الله يجزيه كل الخير يارب لكن انا اللى دماغى مش شغالة...

جربت اضافة UserControl وكل حاجة تمام والأكواد صحيحة مائة بالمائة لكنه لا يجلب الا اسم واحد

فى كل الصور

وهذا هو المشروع مرفق

[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

[ابو روضة]

(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

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

[جميل]

صراحة حاولت في مشروعك فلم أتمكن،
لكن نسخت فورم بالكود الخاص به مع اليوزركونترول التابع له من أحد المشاريع القديمة لدي وأضفته إلى مشروعك،
إن شاء الله يفي بالغرض

[ابو روضة]

(04-01-20, 01:41 AM)جميل كتب : صراحة حاولت في مشروعك فلم أتمكن،
لكن نسخت فورم بالكود الخاص به مع اليوزركونترول التابع له من أحد المشاريع القديمة لدي وأضفته إلى مشروعك،
إن شاء الله يفي بالغرض

هذا بالفعل أخى ما كنت أريده تماماً جزاك الله كل خير....

مع أنى كنت أريدها هكذا كى أجلب رابط التحميل وأحمله لكن يكفى تعبك معى أنت والأخ عبود الذى أرهقته حقيقة.

[trakktour]

(04-01-20, 02:30 AM)ابو روضة كتب :

(04-01-20, 01:41 AM)جميل كتب : صراحة حاولت في مشروعك فلم أتمكن،
لكن نسخت فورم بالكود الخاص به مع اليوزركونترول التابع له من أحد المشاريع القديمة لدي وأضفته إلى مشروعك،
إن شاء الله يفي بالغرض

هذا بالفعل أخى ما كنت أريده تماماً جزاك الله كل خير....

مع أنى كنت أريدها هكذا كى أجلب رابط التحميل وأحمله لكن يكفى تعبك معى أنت والأخ عبود الذى أرهقته حقيقة.

السلام عليكم 
تفضل اخي العزيز 

قمت فقط بالتعديل على كود حبيبنا جميل ليصبج كما تريد انت

[ابو روضة]

(05-01-20, 12:38 AM)trakktour كتب : السلام عليكم 
تفضل اخي العزيز 

قمت فقط بالتعديل على كود حبيبنا جميل ليصبج كما تريد انت

بارك الله فيك أخى الكريم وجزاك كل خير...

المشكل أنه لا يحمل شيئ لآن الرابط مش موجود كى يقوم بتحميلة لكن بأمر الله

هاحاول معاه كى أجلب رابط التحميل