منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] كيفية اختيار من CheckedListBox باستخدام زر enter - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كيفية اختيار من CheckedListBox باستخدام زر enter (/showthread.php?tid=20796)

الصفحات: 1 2 3

RE: كيفية اختيار من CheckedListBox باستخدام زر enter - waelalmsry75 - 29-06-17

(28-06-17, 10:06 PM)ابو ليلى كتب : السلام عليكم و رحمة الله و بركاته

عدل الكود للتالي
PHP كود :
   Private Async Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = ChrW(13) Then
            For x As Integer = 0 To CheckedListBox1.Items.Count - 1
                If CheckedListBox1.Items(x).ToString.Equals(TextBox1.Text) Then
                    If TextBox2.Text.Contains(CheckedListBox1.Items(x).ToString) Then
                        CheckedListBox1.SetItemChecked(x, False)
                        TextBox1.Clear()
                    Else
                        CheckedListBox1.SetItemChecked(x, True)
                    End If
                End If
            Next
            e.Handled = True
        End If
        Await ListChange()

    End Sub 

وعليكم السلام و رحمة الله و بركاته
أخي أبو ليلى
عدلت الكود
ونفذ المطلوب
لكن ظهرت مشكلة
وهي أن البحث أصبح مطابقا
بمعنى أنني عندما أبحث في textbox1 لا يقف على العنصر في CheckedListBox1 إلا إذا كانت كلمة البحث مطابقة للعنصر في CheckedListBox1
وقبل هذا التعديل كان البحث جزئيا، فإذا كتبت أي حرف يظهر العنصر الذي يشتمل عليه
وقد جربت تغيير Equals إلى Contains لكن لم يضبط معي وظهرت مشاكل أخرى
فأرجو أن تجد حلا لهذه المشكلة حتى يكتمل الكود ويبقى البحث جزئيا
وجزاك الله خيرا
ونفع بك

RE: كيفية اختيار من CheckedListBox باستخدام زر enter - ابو ليلى - 29-06-17

السلام عليكم و رحمة الله و بركاته

عدل الكود للتالي
PHP كود :
   Private Async Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = ChrW(13) Then
            For x As Integer = 0 To CheckedListBox1.Items.Count - 1
                If String.IsNullOrWhiteSpace(TextBox1.Text) Then
                    e.Handled = True
                    Return
                End If

                If CheckedListBox1.Items(x).ToString.Contains(TextBox1.Text) Then
                    If TextBox2.Text.Contains(CheckedListBox1.Items(x).ToString) Then
                        CheckedListBox1.SetItemChecked(x, False)
                        TextBox1.Clear()
                    Else
                        CheckedListBox1.SetItemChecked(x, True)
                    End If
                End If
            Next
            e.Handled = True
        End If
        Await ListChange()

    End Sub 


RE: كيفية اختيار من CheckedListBox باستخدام زر enter - waelalmsry75 - 29-06-17

(29-06-17, 07:24 PM)ابو ليلى كتب : السلام عليكم و رحمة الله و بركاته

عدل الكود للتالي
PHP كود :
   Private Async Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = ChrW(13) Then
            For x As Integer = 0 To CheckedListBox1.Items.Count - 1
                If String.IsNullOrWhiteSpace(TextBox1.Text) Then
                    e.Handled = True
                    Return
                End If

                If CheckedListBox1.Items(x).ToString.Contains(TextBox1.Text) Then
                    If TextBox2.Text.Contains(CheckedListBox1.Items(x).ToString) Then
                        CheckedListBox1.SetItemChecked(x, False)
                        TextBox1.Clear()
                    Else
                        CheckedListBox1.SetItemChecked(x, True)
                    End If
                End If
            Next
            e.Handled = True
        End If
        Await ListChange()

    End Sub 

وعليكم السلام و رحمة الله و بركاته
أخي أبو ليلى.. تم المطلوب بنجاح
وجزاك ربي خير الجزاء
والحمد لله رب العالمين