منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

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

في 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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

trakktour