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

(26-12-20, 07:48 PM)ميدو الفنان كتب : [ -> ]ضع فقط هذا الكود في اول سطر
ListBox1.Items.Clear()
الكود كامل

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       ListBox1.Items.Clear()
       Dim url As String = "http://www.koranmp3.com/quran/38_Mohamed-Mahmoud-Eltablawy/38_Mohamed-Mahmoud-Eltablawy_64.html"
       Dim hweb As New htmlagilitypack.htmlweb
       Dim doc As HtmlAgilityPack.HtmlDocument = hweb.Load(url, "Get")
       For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("/html/head/title")
           Me.Text = (n.InnerText)
       Next
       Dim nod As HtmlAgilityPack.HtmlNode = doc.GetElementbyId("playlist1")
       For Each h As HtmlAgilityPack.HtmlNode In nod.ChildNodes
           If h.InnerText.Trim <> "" Then
               lst.Add(h.Attributes("data-path").Value & ".mp3")
               ListBox1.Items.Add(h.InnerText.Trim)
           End If
       Next
   End Sub

(26-12-20, 08:16 PM)BaLaDy كتب : [ -> ]تحتاج ايضا lst.Clear في بدايه الكود