+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال اخر في الليست بوكس (/showthread.php?tid=33068)
سؤال اخر في الليست بوكس - اليوم السابع - 20-01-20
اريد حذف هذا الصف يحتوي علي مسافه واحده حاولت معه ولم انجح
RE: سؤال اخر في الليست بوكس - جميل5 - 20-01-20
قبل ما تظيف العنصر تأكد أنه به معلومة مفيدة مثل
PHP كود :
If txt.Trim<>"" Then ListBox1.Items.Add(txt)
RE: سؤال اخر في الليست بوكس - اليوم السابع - 20-01-20
(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 IfRE: سؤال اخر في الليست بوكس - جميل5 - 20-01-20
الخطأ لأنك تستخدم نفس اسم المتغير 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)
RE: سؤال اخر في الليست بوكس - mohamedahmed1 - 20-01-20
مرحبا قم باضافة اداة التايمر الي المشروع وقم بوضع هذا الكود
كود :
For i = 1 To 9999
ListBox1.Items.Remove("")
Nextكود :
Timer1.Start()موفق