تقييم الموضوع :
  • 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 ك ب / التحميلات : 18)
الرد
تم الشكر بواسطة: 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 ك ب / التحميلات : 23)
الرد
تم الشكر بواسطة: 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] البحث عن تاريخ SHAM1 2 140 02-03-21, 01:20 PM
آخر رد: SHAM1
Sad [سؤال] تصفية ComboBox داخل datagridview سعيد كنيمو 2 87 01-03-21, 11:10 PM
آخر رد: سعيد كنيمو
  سؤال حول الكتابة داخل ريتش تيكست بوكس Lathe1 1 70 26-02-21, 10:56 PM
آخر رد: ابراهيم ايبو
  عدم القدرة على الحفظ داخل ملف MDF Owz 4 115 24-02-21, 06:27 PM
آخر رد: العتيق
  ممكن التعديل في كود البحث المرفق أبووسم 0 70 24-02-21, 01:03 AM
آخر رد: أبووسم
  كيف يمكن تحديد ادخال البيانات داخل مربع النص بحروف فقط أبو عبدالله الحلواني 7 321 20-02-21, 04:40 PM
آخر رد: أبو عبدالله الحلواني
  [VB.NET] كود البحث المتعدد في قاعدة Sql ZaerAllail 1 177 16-02-21, 01:10 AM
آخر رد: ابراهيم ايبو
  [VB.NET] كيف يمكن استخدام function الموجوده بالاكسيل داخل الفيجوال بيسك دوت نت popritch 1 172 12-02-21, 02:02 AM
آخر رد: أبو عبدالله الحلواني
  مطلوب تحديد صف معين داخل الداتا جريد فيو نور الهدى الهدى 1 172 11-02-21, 11:01 PM
آخر رد: سعود
  [VB.NET] كود البحث في قاعدة بيانات Necro PC 14 797 05-02-21, 03:06 PM
آخر رد: Necro PC

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


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