السلام عليكم ورحمة الله وبركاته.
بستخدم هذا الكود لجلب مجموعة من الصور بأسمائها من موقع تحميل.
كود :
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]
فكيف أجعل الاسم بجوار الصورة الخاصة به
السلام عليكم ورحمة الله وبركاته
ياريت لو تعطينا رابط الموقع اخ ابو روضة لان الكود يظهر خطأ حتى نساعدك بفكرة مناسبة لغرضك
الأفضل أن تعمل 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 وكل حاجة تمام والأكواد صحيحة مائة بالمائة لكنه لا يجلب الا اسم واحد
فى كل الصور
وهذا هو المشروع مرفق
السبب واضح اخي ابو روضة وهو نفس المشكلة التي ذكرتها الك
الحلقة التكرارية الثانية تقوم بالانتهاء على اخر اسم فيتم وضعه بالليبل لاحظ الكتابة بالعربي
كود :
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)جميل كتب : [ -> ]صراحة حاولت في مشروعك فلم أتمكن،
لكن نسخت فورم بالكود الخاص به مع اليوزركونترول التابع له من أحد المشاريع القديمة لدي وأضفته إلى مشروعك،
إن شاء الله يفي بالغرض
هذا بالفعل أخى ما كنت أريده تماماً جزاك الله كل خير....
مع أنى كنت أريدها هكذا كى أجلب رابط التحميل وأحمله لكن يكفى تعبك معى أنت والأخ عبود الذى أرهقته حقيقة.
(04-01-20, 02:30 AM)ابو روضة كتب : [ -> ] (04-01-20, 01:41 AM)جميل كتب : [ -> ]صراحة حاولت في مشروعك فلم أتمكن،
لكن نسخت فورم بالكود الخاص به مع اليوزركونترول التابع له من أحد المشاريع القديمة لدي وأضفته إلى مشروعك،
إن شاء الله يفي بالغرض
هذا بالفعل أخى ما كنت أريده تماماً جزاك الله كل خير....
مع أنى كنت أريدها هكذا كى أجلب رابط التحميل وأحمله لكن يكفى تعبك معى أنت والأخ عبود الذى أرهقته حقيقة.
السلام عليكم
تفضل اخي العزيز
قمت فقط بالتعديل على كود حبيبنا جميل ليصبج كما تريد انت
(05-01-20, 12:38 AM)trakktour كتب : [ -> ]السلام عليكم
تفضل اخي العزيز
قمت فقط بالتعديل على كود حبيبنا جميل ليصبج كما تريد انت
بارك الله فيك أخى الكريم وجزاك كل خير...
المشكل أنه لا يحمل شيئ لآن الرابط مش موجود كى يقوم بتحميلة لكن بأمر الله
هاحاول معاه كى أجلب رابط التحميل
