[MalekMohamed632]

انا عامل زر يسحب من موقع ويضفيها فى listbox

فى مشكلة لما اعمل كمان زر ويسحب بيبقي هو نفس الاول

 واستخدمت الكود ده  ListBox1.Items.Clear()

وه الكود اي الغلط لو سمحت

[MalekMohamed632]

up up up up

[ميدو الفنان]

ضع فقط هذا الكود في اول سطر
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

[BaLaDy]

تحتاج ايضا lst.Clear في بدايه الكود

[MalekMohamed632]

(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 في بدايه الكود

شكرا