تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] البحث داخل listview
#1
السلام عليكم يا اصدقاء ان شاء الله تكونو بألف خير
عندي listview و اريد البجث داخلها ب استعمال TextChanged
اي عندما اكتب كلمة في textbox يظهري النتائج مباشرة 
و هذا الكود المستعمل في ملئ listview
كود :
       Dim ww = New WebClient().DownloadString("https://pastebin.com/raw/EQScPkvp")
       Dim name As MatchCollection = Regex.Matches(ww, "(?<=""name"":"").+?(?="")")
       For i = 0 To name.Count - 1
           Dim farfour As New ListViewItem
           farfour.Text = name(i).Value
           ListView1.Items.Add(farfour)
       Next
و ربي يحفظكم
الرد
تم الشكر بواسطة:
#2
وعليكم السلام حياك الله

استخدم الدالة FindStringExact كما في الكود


 
PHP كود :
Private Sub TextBox1_TextChanged(sender As ObjectAs EventArgsHandles TextBox1.TextChanged
        ListBox1
.SelectedIndex ListBox1.FindStringExact(TextBox1.Text)
    End Sub 


الملفات المرفقة صورة/صور
   

.rar   search_listbox.rar (الحجم : 59.64 ك ب / التحميلات : 2)
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5 , farfour , ابراهيم ايبو
#3
(12-11-19, 01:13 PM)علي نوري كتب : وعليكم السلام حياك الله

استخدم الدالة FindStringExact كما في الكود


 
PHP كود :
Private Sub TextBox1_TextChanged(sender As ObjectAs EventArgsHandles TextBox1.TextChanged
        ListBox1
.SelectedIndex ListBox1.FindStringExact(TextBox1.Text)
    End Sub 

اخي انا عندي  listview و ليست listbox
ممكن تعديل بسيط
اريد عند كتابة اول حرف تظهر لي النتائج و شكرااا
الرد
تم الشكر بواسطة: علي نوري , ابراهيم ايبو
#4
اعتذر منك اخي الكريم توقعتها list box

حضرتك تريد استكمال تلقائي بداخل التكست بوكس ؟ ماخوذ من list view صحيح ؟


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة: farfour , farfour , ابراهيم ايبو
#5
(12-11-19, 03:19 PM)علي نوري كتب : اعتذر منك اخي الكريم توقعتها list box

حضرتك تريد استكمال تلقائي بداخل التكست بوكس ؟ ماخوذ من list view صحيح ؟

نعم اخي العزيز اريد اضافة textbox و ابحث من خلاله على كلمات داخل listview
مثلا اكتب osn يظهرلي  item الي فيه كلمة osn
الرد
تم الشكر بواسطة: ابراهيم ايبو
#6
تفضل اخي هذا الكود 


PHP كود :
  On Error Resume Next
        Dim ww 
= New WebClient().DownloadString("https://pastebin.com/raw/EQScPkvp")
        Dim name As MatchCollection Regex.Matches(ww"(?<=""name"":"").+?(?="")")
        For 0 To name.Count 1
            Dim farfour 
As New ListViewItem
            farfour
.Text name(i).Value
            ListView1
.Items.Add(farfour)
        Next
        Me
.TextBox1.AutoCompleteCustomSource.AddRange((From x As ListViewItem In Me.ListView1.Items Select x.Text).ToArray)
        Me.TextBox1.AutoCompleteMode AutoCompleteMode.SuggestAppend
        Me
.TextBox1.AutoCompleteSource AutoCompleteSource.CustomSource 




للتوضيح هذا استكمال تلقائي وليس بحث 

 المشروع بالمرفقات


الملفات المرفقة
.rar   search_listbox.rar (الحجم : 63.14 ك ب / التحميلات : 9)
الرد
تم الشكر بواسطة: farfour , ابراهيم ايبو
#7
(12-11-19, 03:48 PM)علي نوري كتب : تفضل اخي هذا الكود 


PHP كود :
  On Error Resume Next
        Dim ww 
= New WebClient().DownloadString("https://pastebin.com/raw/EQScPkvp")
        Dim name As MatchCollection Regex.Matches(ww"(?<=""name"":"").+?(?="")")
        For 0 To name.Count 1
            Dim farfour 
As New ListViewItem
            farfour
.Text name(i).Value
            ListView1
.Items.Add(farfour)
        Next
        Me
.TextBox1.AutoCompleteCustomSource.AddRange((From x As ListViewItem In Me.ListView1.Items Select x.Text).ToArray)
        Me.TextBox1.AutoCompleteMode AutoCompleteMode.SuggestAppend
        Me
.TextBox1.AutoCompleteSource AutoCompleteSource.CustomSource 




للتوضيح هذا استكمال تلقائي وليس بحث 

 المشروع بالمرفقات

اخي الكريم لو تعدل عليه قليلا
اريد عند البحث يظهر في listview فقط نتائج البحث
يعني اكتب osn 
يهظهر في listview نتائج osn فقط و ربي يحفظك
الرد
تم الشكر بواسطة: ابراهيم ايبو
#8
السلام عليكم ورحمة الله وبركاته


كود :
Dim lst As New ListView
   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       ListView1.Items.Clear()
       For Each item As ListViewItem In lst.Items
           If item.Text.Contains(TextBox1.Text) Then
               ListView1.Items.Add(item.Text)
           End If
       Next
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim ww = New WebClient().DownloadString("https://pastebin.com/raw/EQScPkvp")
       Dim name As MatchCollection = Regex.Matches(ww, "(?<=""name"":"").+?(?="")")
       For i = 0 To name.Count - 1
           Dim farfour As New ListViewItem
           farfour.Text = name(i).Value
           ListView1.Items.Add(farfour)
       Next
       For Each item As ListViewItem In ListView1.Items
           lst.Items.Add(item.Text)
       Next
   End Sub
الرد
تم الشكر بواسطة: ابراهيم ايبو , farfour
#9
(12-11-19, 05:08 PM)3booody كتب : السلام عليكم ورحمة الله وبركاته


كود :
Dim lst As New ListView
   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       ListView1.Items.Clear()
       For Each item As ListViewItem In lst.Items
           If item.Text.Contains(TextBox1.Text) Then
               ListView1.Items.Add(item.Text)
           End If
       Next
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim ww = New WebClient().DownloadString("https://pastebin.com/raw/EQScPkvp")
       Dim name As MatchCollection = Regex.Matches(ww, "(?<=""name"":"").+?(?="")")
       For i = 0 To name.Count - 1
           Dim farfour As New ListViewItem
           farfour.Text = name(i).Value
           ListView1.Items.Add(farfour)
       Next
       For Each item As ListViewItem In ListView1.Items
           lst.Items.Add(item.Text)
       Next
   End Sub

شكراا اخي الكريم ربي يجعلها في ميزان حسناتك
الرد
تم الشكر بواسطة: 3booody


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد كود البحث او الفلتره عن شئ في الداتا جريد فيو ؟ amrmosa673@gmail.com 1 55 منذ 4 ساعة مضت
آخر رد: اسامه الهرماوي
  [VB.NET] مشكل في listview trakktour 3 90 02-12-19, 12:21 PM
آخر رد: trakktour
  البحث في الداتا جريد فيو اليوم السابع 2 75 29-11-19, 12:52 PM
آخر رد: اليوم السابع
  [VB.NET] تضمين قاعدة البيانات داخل مجلد العمل Mustafa Shaker 14 329 27-11-19, 10:18 AM
آخر رد: asemshahen5
  مشكلة قابلتني فى البحث بين تاريخين nabil.1710 2 91 26-11-19, 04:02 PM
آخر رد: nabil.1710
  [VB.NET] مشكلة في البحث عن طريق combobox Hassan.syria 4 97 23-11-19, 06:46 PM
آخر رد: حريف برمجة
  كيف أفتح كل صورة من رابط داخل البيكتر بوكس bidaya 8 196 18-11-19, 09:21 PM
آخر رد: 3booody
  [سؤال] ما هي طريقة وضع ملفات ال dll الخاصة بالبرنامج داخل مجلد princelovelorn 4 197 18-11-19, 08:45 AM
آخر رد: princelovelorn
  ممكن كود استدعاء اى برنامج داخل الفورم الرئيسيه sherf 2 184 16-11-19, 01:13 AM
آخر رد: sherf
Exclamation [VB.NET] اريد كود يقوم بنسخ اي نص موجود في الموقع التي يتم عرضة في الويب بروزر > التفاصيل داخل SnTnt 2 121 15-11-19, 06:33 PM
آخر رد: SnTnt

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


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