(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 


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

(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

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

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

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

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

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

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

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

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