[اليوم السابع]

اريد حذف هذا الصف يحتوي علي مسافه واحده حاولت معه ولم انجح

[جميل5]

قبل ما تظيف العنصر تأكد أنه به معلومة مفيدة مثل

PHP كود :

If txt.Trim<>"" Then ListBox1.Items.Add(txt) 


[اليوم السابع]

(20-01-20, 09:58 PM)جميل5 كتب : قبل ما تظيف العنصر تأكد أنه به معلومة مفيدة مثل

PHP كود :

  If txt.Trim<>"" Then ListBox1.Items.Add(txt) 


اشكرك اخ جميل 
ولكن فيه خطاء في كلمه تكست

---

(20-01-20, 09:58 PM)جميل5 كتب : قبل ما تظيف العنصر تأكد أنه به معلومة مفيدة مثل

PHP كود :

  If txt.Trim<>"" Then ListBox1.Items.Add(txt) 


انا اضيف العناصر من خلال النت من الكود ده 

كود :

Dim member_id1 = System.Text.RegularExpressions.Regex.Matches(TextBox2.Text, "<strong>(.+?)</strong>")
       For Each txt As System.Text.RegularExpressions.Match In member_id1
           If ListBox11.FindStringExact(txt.Groups(1).Value) = -1 Then
               ListBox11.Items.Add(txt.Groups(1).Value)
           End If

[جميل5]

الخطأ لأنك تستخدم نفس اسم المتغير txt
حسنا هذا التعديل

PHP كود :

Dim member_id1 = System.Text.RegularExpressions.Regex.Matches(TextBox2.Text, "<strong>(.+?)</strong>")
       For Each txt As System.Text.RegularExpressions.Match In member_id1
if txt.Groups(1).Value.trim<>"" then ListBox11.Items.Add(txt.Groups(1).Value)
             


[mohamedahmed1]

مرحبا قم باضافة اداة التايمر الي المشروع وقم بوضع هذا الكود

كود :

For i = 1 To 9999
           ListBox1.Items.Remove("")
       Next

وداخل الفورم لود ضع هذا الكود

كود :

Timer1.Start()

موفق