[waelalmsry75]

السلام عليكم ورحمة الله وبركاته
لدي CheckedListBox يحتوي على مجموعة items
وتوجد TextBox أبحث من خلالها في CheckedListBox
السؤال:
عندما أبحث عن كلمة ما
ويتم الوقوف عليها في CheckedListBox
أريد أن أضغط على زر enter فيقوم بوضع علامة صح بجوار هذا العنصر الذي أريده
وبعد ذلك توجد TextBox أخرى أريد نقل هذا العنصر الذي علمت عليه إليها
وفي المرفقات مثال لذلك
وجزاكم الله خيرا

[سعود]

PHP كود :

Public Class Form1

    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyData = Keys.Enter Then
            CheckedListBox1.SelectedIndex = CheckedListBox1.Items.IndexOf(sender.text)
            CheckedListBox1.SetItemChecked(CheckedListBox1.SelectedIndex, True)
            SendKeys.Send("{backspace}")
        End If
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        'For x As Integer = 0 To CheckedListBox1.Items.Count - 1
        '    If CheckedListBox1.Items(x).ToString.Contains(TextBox1.Text) Then
        '        CheckedListBox1.SelectedIndex = x
        '        Return
        '    End If
        'Next
    End Sub

    Private Sub CheckedListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CheckedListBox1.SelectedIndexChanged
        TextBox2.Clear()
        For Each Item As Object In CheckedListBox1.CheckedItems

            If TextBox2.Text = "" Then
                TextBox2.AppendText(Item.ToString)
            Else
                TextBox2.AppendText(" ; " + Item.ToString)
            End If
            TextBox1.Focus()
        Next
    End Sub

End Class 


[waelalmsry75]

(20-06-17, 09:16 AM)سعود كتب :

PHP كود :

Public Class Form1

    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyData = Keys.Enter Then
            CheckedListBox1.SelectedIndex = CheckedListBox1.Items.IndexOf(sender.text)
            CheckedListBox1.SetItemChecked(CheckedListBox1.SelectedIndex, True)
            SendKeys.Send("{backspace}")
        End If
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        'For x As Integer = 0 To CheckedListBox1.Items.Count - 1
        '    If CheckedListBox1.Items(x).ToString.Contains(TextBox1.Text) Then
        '        CheckedListBox1.SelectedIndex = x
        '        Return
        '    End If
        'Next
    End Sub

    Private Sub CheckedListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CheckedListBox1.SelectedIndexChanged
        TextBox2.Clear()
        For Each Item As Object In CheckedListBox1.CheckedItems

            If TextBox2.Text = "" Then
                TextBox2.AppendText(Item.ToString)
            Else
                TextBox2.AppendText(" ; " + Item.ToString)
            End If
            TextBox1.Focus()
        Next
    End Sub

End Class 


الأخ سعود.. جزاك الله خيرا على ردك واهتمامك
لكني جربت الكود وظهر معي خطأ
فأرجو منك تجربة الكود على المثال المرفق وإعادة إرساله بعد التعديل عليه
بارك الله فيك.. ونفع بعلمك

[سعود]

إقتباس :لكني جربت الكود وظهر معي خطأ كما في الصورة التالية

لم ار اي صورة.
ثم ان الامر بسيط جدا
اكتب الكود التالي:

PHP كود :

If e.KeyData = Keys.Enter Then
            CheckedListBox1.SelectedIndex = CheckedListBox1.Items.IndexOf(sender.text)
            CheckedListBox1.SetItemChecked(CheckedListBox1.SelectedIndex, True)
            SendKeys.Send("{backspace}")
        End If 


ضمن حدث
TextBox1_KeyDown

[waelalmsry75]

(20-06-17, 03:33 PM)سعود كتب :

إقتباس :لكني جربت الكود وظهر معي خطأ كما في الصورة التالية

لم ار اي صورة.
ثم ان الامر بسيط جدا
اكتب الكود التالي:

PHP كود :

If e.KeyData = Keys.Enter Then
            CheckedListBox1.SelectedIndex = CheckedListBox1.Items.IndexOf(sender.text)
            CheckedListBox1.SetItemChecked(CheckedListBox1.SelectedIndex, True)
            SendKeys.Send("{backspace}")
        End If 


ضمن حدث
TextBox1_KeyDown

هذا الذي فعلته أخي الكريم وظهر معي نفس الخطأ
وحاولت إرفاق الصورة لكنها تظهر على شكل حروف فحذفتها
فأرجو منك التعديل على المثال وإعادة إرساله إلى مشكورا
وجزاك الله خيرا

[سعود]

إقتباس :وحاولت إرفاق الصورة لكنها تظهر على شكل حروف فحذفتها

ارفق الصورة بنفس طريقة ارفاق المثال ...صورة الخطا تقنع بوجود الخطا...غير ذلك غير مقتنع(معذرة)

[waelalmsry75]

(20-06-17, 11:38 PM)سعود كتب :

إقتباس :وحاولت إرفاق الصورة لكنها تظهر على شكل حروف فحذفتها

ارفق الصورة بنفس طريقة ارفاق المثال ...صورة الخطا تقنع بوجود الخطا...غير ذلك غير مقتنع(معذرة)

لا بأس أخي الكريم.. فما على المحسنين من سبيل
وفي المرفقات صورة الخطأ الذي يظهر

[أبووسم]

تفضل في المرفقات بعد التعديل

[waelalmsry75]

(21-06-17, 11:25 PM)أبووسم كتب : تفضل في المرفقات بعد التعديل

جزاك الله خيرا أخي أبووسم
لكن ما زالت المشكلة موجودة عندي
والملف الذي أرفقتَه ينقصه كود البحث في TextBox
لذلك أعدت إرفاق الملف كاملا ومعه صورة الخطأ الذي يظهر عندي
===============
والمرجو معالجة هذا الخطأ
==============
تذكير:
لدي CheckedListBox يحتوي على مجموعة items
وتوجد TextBox أبحث من خلالها في CheckedListBox
المطلوب:
عندما أبحث عن كلمة ما في TextBox
ويتم الوقوف عليها في CheckedListBox
أريد أن أضغط على زر enter فيقوم بوضع علامة صح بجوار هذا العنصر الذي أريده
وذلك بدلا من استخدام الماوس
===============
شكر الله لكم.. وبارك فيكم

[waelalmsry75]

(22-06-17, 02:41 AM)waelalmsry75 كتب :

(21-06-17, 11:25 PM)أبووسم كتب : تفضل في المرفقات بعد التعديل

جزاك الله خيرا أخي أبووسم
لكن ما زالت المشكلة موجودة عندي
والملف الذي أرفقتَه ينقصه كود البحث في TextBox
لذلك أعدت إرفاق الملف كاملا ومعه صورة الخطأ الذي يظهر عندي
===============
والمرجو معالجة هذا الخطأ
==============
تذكير:
لدي CheckedListBox يحتوي على مجموعة items
وتوجد TextBox أبحث من خلالها في CheckedListBox
المطلوب:
عندما أبحث عن كلمة ما في TextBox
ويتم الوقوف عليها في CheckedListBox
أريد أن أضغط على زر enter فيقوم بوضع علامة صح بجوار هذا العنصر الذي أريده
وذلك بدلا من استخدام الماوس
===============
شكر الله لكم.. وبارك فيكم

تذكير للإخوة الكرام
وجزاكم الله خيرا