منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته
مشكلة أول مرة تحدث لي وهي يوجد لدي CheckedListBox1 ويوجد به قائمة المنتجات وقمت بوضع الكود التالي في حدث CheckedListBox1_Click المشكلة التي تحدث هي أن الفورم يغلق عند عمل اختيار لأي منتج من المنتجات ولم أعرف سبب حدوث ذلك شاكراً لكم إهتمامكم

Dim i3 As Integer

For i3 = 0 To DataGridView1.Rows.Count - 1

If DataGridView1.Rows(i3).Cells(0).Value.ToString = CheckedListBox1.GetItemText(CheckedListBox1.SelectedItem) Then

MsgBox(" تم إدراج هذه المخالفة مسبقاً ")

Dim clickedIndex As Integer = CheckedListBox1.SelectedIndex

If clickedIndex >= 0 Then

CheckedListBox1.SetItemChecked(clickedIndex, False)

End If

كود :

      Dim i3 As Integer

        Dim selectedItemText As String = CheckedListBox1.GetItemText(CheckedListBox1.SelectedItem)

        For i3 = 0 To DataGridView1.Rows.Count - 1

            Dim cellValue As Object = DataGridView1.Rows(i3).Cells(0).Value

            If cellValue IsNot Nothing AndAlso String.Equals(cellValue.ToString(), selectedItemText, StringComparison.OrdinalIgnoreCase) Then

                MsgBox("تم إدراج هذه المخالفة مسبقاً")

                Dim clickedIndex As Integer = CheckedListBox1.SelectedIndex

                If clickedIndex >= 0 Then

                    CheckedListBox1.SetItemChecked(clickedIndex, False)

                End If

                Exit For

            End If

        Next

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

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

الشكر الجزيل لك الأستاذ أبو خالد الكود شغال 1000\1000

بارك الله فيك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

صالح عبدالله

أبو خالد الشكري

صالح عبدالله