تقييم الموضوع :
  • 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 ك ب / التحميلات : 27)
الرد }}}
تم الشكر بواسطة: 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 ك ب / التحميلات : 38)
الرد }}}
تم الشكر بواسطة: 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] البحث باستخدام CheckedListBox لتكون نتيجة التحديد شرط لجملة الاستعلام ahmedramzyaish 0 112 19-02-24, 03:44 AM
آخر رد: ahmedramzyaish
  البحث بالهوية annagui 2 300 25-01-24, 01:00 PM
آخر رد: annagui
  حل مشكلة فى listview malekmohamed155 1 203 19-01-24, 06:19 PM
آخر رد: malekmohamed155
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 303 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  حماية عمود داخل ورقة الاكسل العيدروس 3 188 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 460 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [كود] البحث Abdellatif 2 206 27-12-23, 03:15 PM
آخر رد: Abdellatif
Video SQL مشكلة البحث بين تاريخين waataanys 1 325 02-12-23, 07:54 PM
آخر رد: waataanys
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 451 10-11-23, 11:08 AM
آخر رد: khalidalwdi
  يوجد مشكلة عند تحميل البيانات فى كمبوبوكس داخل داتا جريد new_programer 2 471 17-10-23, 06:51 PM
آخر رد: new_programer

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


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