تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حل مشكلة في التيكست بوكس
#1
بسم الله الرحمن الرحيم
-------------------------------
لديه مشكلة في اداة التيكست بوكس وهي انني قمت ببرمجة كود يقوم بتصفية او عملية بحث داخل اليست بوكس
بمعني انني لديه اكثر من 300 عنصر في اداة التيسكت بوكس فانا ساستخدم اداة التيسكت بوكس لتسهل علي المستخدم
البحث عن العنصر المراد البحث عنه
مثال بسيط اذ كان لديه العناصر التالية في اداة الليست بوكس
mohmaed
abdo
mohamud
amr
عندما اضع حرف m في التيسكت بوكس يختفي من الليست بوكس abdo , amr
ويبقي الباقي وعندما امسح m يعود اليست بوكس الي عناصره الكاملة
اريد تعديل هذا الكود بما سبق وقلته وشكرا لكم

PHP كود :
   Private Sub TextBox1_TextChanged(ByVal sender As ObjectByVal e As EventArgsHandles TextBox2.TextChanged
        Dim q 
As IEnumerable(Of DataRow) = (From x As DataRow In dt Where x.Item("Display").ToString.ToLower.StartsWith(Me.TextBox2.Text.Trim.ToLower))
 
       hold True
        Me
.ListBox1.DataSource = If(q.Count 0Nothingq.CopyToDataTable)
 
       Me.ListBox1.DisplayMember "Display"
 
       Me.ListBox1.ValueMember "Value"
 
       Me.ListBox1.SelectedIndex = -1
        hold 
False
    End Sub 
الرد
تم الشكر بواسطة:
#2
السلام عليكم

جرب هذا التعديل
كود :
Private items() As String

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    items = (From x As String In ListBox1.Items).ToArray
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
    Me.ListBox1.Items.Clear()
    Dim txt As String = Me.TextBox1.Text.Trim.ToLower
    If TextBox1.Text.Trim = "" Then
        Me.ListBox1.Items.AddRange(items)
    Else
        Dim q = (From x As String In items Where x.ToLower.StartsWith(txt)).ToArray
        Me.ListBox1.Items.AddRange(q)
    End If
End Sub
الرد
تم الشكر بواسطة:
#3
السلام عليكم أخي العزيز ورحمة الله وبركاته
هل تريد البحث عن الإسم في الـ ListBox من خلال TextBox، هل هذا ما تريد؟
أما بالنسبة لظهور القيم التي تبدأ بحرف m في القائمة ذلك يعود للأداة StartsWith.
إسرائيل إلى زوال ...  وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة:
#4
جميع كلمات "items" بها مشكلة
الرد
تم الشكر بواسطة:
#5
جوابي على اساس مفهوم كلامك ان الليست بكس ليست مربوطة بالداتابيز.
الرد
تم الشكر بواسطة:
#6
(04-02-17, 12:32 AM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
هل تريد البحث عن الإسم في الـ ListBox من خلال TextBox، هل هذا ما تريد؟
أما بالنسبة لظهور القيم التي تبدأ بحرف m في القائمة ذلك يعود للأداة StartsWith.

نعم اريد هذا وايضا الكود المكتوب اعلاه الذي وضعته انا كان يعمل ويعمل فترات واخري لا ما المشكل به
الرد
تم الشكر بواسطة:
#7
(04-02-17, 12:36 AM)مساعدة كتب : جوابي على اساس مفهوم كلامك ان الليست بكس ليست مربوطة بالداتابيز.

لا اخي اليست مربوط بقاعدة بيانات
الرد
تم الشكر بواسطة:
#8
لا أخي مساعدة أنت موجود في قلوبنا، وسأترك لك الرد على ألخ الكريم أعذرني
إسرائيل إلى زوال ...  وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: bidaya
#9
اين اصحاب الخبرة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى تثبيت الكريستال ريبورت يقف ويظهر رسالة خطاء ولا يقوم بالتثبيت على الجهاز hedra samir 0 19 منذ 10 ساعة مضت
آخر رد: hedra samir
  السلام عليكم محتاج كود صغير للبحث داخل الكمبو بوكس عن طريق الكمبو بوكس نفسه mohamedgadain61 2 84 19-03-19, 04:07 PM
آخر رد: mohamedgadain61
  طريقة تكرار الامر تلقائيا | حل مشكلة script error في webbrowser عند فتح صفحة ما soloxocf1 6 277 18-03-19, 09:16 AM
آخر رد: 5000
  [VB.NET] جلب بينات من الداتا جريد فيور الى فورم 2 تاكست بوكس anis 16 471 15-03-19, 09:41 PM
آخر رد: anis
  مشكلة فى تحزيم البرنامج ؟ احمد خطاب 1 77 15-03-19, 08:18 PM
آخر رد: 5000
  مشكلة في إضافة الصنف بالباركود في الفاتورة Hamoody 3 109 12-03-19, 06:44 PM
آخر رد: elgokr
  حل مشكلة حاتمي 1 71 09-03-19, 07:31 PM
آخر رد: حريف برمجة
  [VB.NET] مشكلة تظهر عند تنصيب فيجوال ستوديو 2019 اباذر 3 134 09-03-19, 12:41 AM
آخر رد: اباذر
  [VB.NET] نص فلاشي في التكست بوكس EMADMW17 0 65 05-03-19, 03:13 PM
آخر رد: EMADMW17
  [VB.NET] فلترة الاسماء ضمن الليست بوكس من اليمين لليسار EMADMW17 0 69 03-03-19, 02:22 AM
آخر رد: EMADMW17

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


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