(24-06-17, 06:58 PM)silverlight كتب : إن لم تنجح الأفكار التي أعطاها لك الاخوة الأفاضل
ربما هنا أنت بحاجة الي توريث الكونترول
و بناء كونترول جديد يحيث تقوم بالتعديل في الحدث KeyDown

(26-06-17, 05:38 PM)silverlight كتب : اي مصفوفة وحسب طريقة تصميمها تستطيع من خلال loop انك تسترد كل عناصرها او تسترد ايضا Index الخاص بكل عنصر في المصفوفة
وطالما حصلت علي index عليك ان تتأكد أولا من CheckState الخاصة بالعنصر عن طريق استخدام GetItemCheckState
فإن كانت True فهنا أما أن تلغي CheckState أو لا  تلغيها وهذا قرااك
ثم بعد ذلك تستخدم ٍSetItemChecked بحيث تمرر لها index و قيمة تكون عكس القيمة التي تحصل عليها من GetItemCheckState


فيه فكرة بسيطة انك تحصل علي العنصر و Index الخاص به في وقت واحد
وهو ان تستخدم Generic Dictionary مدخلاته عبارة عن Integer , String و تقوم بعمل loop علي جميع العتاصر بشرط تتأكد ان المصفوفة بها عناصر اصلا
ثم تقوم بتعبئة Generic Dictionary باسم العنصر و  index الخاص به
بحيث تبحث داخل Generic Dictionary عن العنصر و تسترد Index الخاص به
وهنا تطبق ما أوضحته لك أعلاه علي CheckedListBox

(27-06-17, 08:25 AM)ابو ليلى كتب : وعليكم السلام و رحمة الله و بركاته
عيدكم مبارك باذن الله

ضع هذه الدالة لديك

PHP كود :

   Private Async Function ListChange() As Task(Of Integer)
        For i As Integer = 0 To CheckedListBox1.Items.Count - 1

            If CheckedListBox1.GetItemChecked(i) = True And TextBox2.Text.Contains(CheckedListBox1.Items(i).ToString) = False Then

                If TextBox2.Text = "" Then
                    TextBox2.AppendText(CheckedListBox1.Items(i).ToString)
                Else
                    TextBox2.AppendText(" ; " + CheckedListBox1.Items(i).ToString)
                End If
                TextBox1.Focus()

            End If
        Next
        Await Task.Delay(100)
        Return 0
    End Function 


وضع في الحدث التالي TextBox1_KeyPress  هذا الكود

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.Contains(TextBox1.Text) Then
                    CheckedListBox1.SetItemChecked(x, True)
                End If
            Next
            e.Handled = True
        End If
        Await ListChange()

    End Sub 


و ان شاء الله تنحل مشكلتك