تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن حل للمشكلة
#1
انا عامل زر يسحب من موقع ويضفيها فى listbox

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

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


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

الرد
تم الشكر بواسطة:
#2
up up up up
الرد
تم الشكر بواسطة:
#3
ضع فقط هذا الكود في اول سطر
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
الرد
تم الشكر بواسطة: ابو روضة
#4
تحتاج ايضا lst.Clear في بدايه الكود
الرد
تم الشكر بواسطة: ابو روضة
#5
(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 في بدايه الكود

شكرا
الرد
تم الشكر بواسطة: ميدو الفنان



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم