منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] استعمال NumericUpDown عند السحب من موقع - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استعمال NumericUpDown عند السحب من موقع (/showthread.php?tid=32974)

استعمال NumericUpDown عند السحب من موقع - trakktour - 13-01-20

السلام عليكم
ان شاء الله تكونو بألف خير
عندي سؤال يا اصدقاء
كيف اضف هذه


في NumericUpDown
كود :
Dim pageSource = New WebClient().DownloadString("http://goalstubes.com/")
Dim Lien As MatchCollection = Regex.Matches(pageSource, "(?<=href="").+(?=""><img width)")
Dim Title As MatchCollection = Regex.Matches(pageSource, "(?<=<a title="").+(?="" href="".+""><img width)")
 
For i = 0 To Lien.Count - 1
    Dim hamdane As New ListViewItem
    hamdane.Text = Lien(i).Value
    hamdane.SubItems.Add(Title(i).Value.Replace("–", "-"))
    ListView1.Items.Add(hamdane)
Next