02-01-20, 03:09 PM
السلام عليكم ورحمة الله وبركاته.
بستخدم هذا الكود لجلب مجموعة من الصور بأسمائها من موقع تحميل.
كود :
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]
[/b]فكيف أجعل الاسم بجوار الصورة الخاصة به


![[صورة مرفقة: b4nzEf.gif]](http://imagizer.imageshack.com/img922/7726/b4nzEf.gif)