[trakktour]

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


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