+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ماهو سبب اغلاق الفورم (/showthread.php?tid=51933)
ماهو سبب اغلاق الفورم - صالح عبدالله - 25-02-25
السلام عليكم ورحمة الله وبركاته
مشكلة أول مرة تحدث لي وهي يوجد لدي 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
End If
Next
RE: ماهو سبب اغلاق الفورم - أبو خالد الشكري - 25-02-25
وعليكم السلام ورحمة الله وبركاته
جرب التعديل التالي :
كود :
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
NextRE: ماهو سبب اغلاق الفورم - صالح عبدالله - 26-02-25
السلام عليكم ورحمة الله وبركاته
الشكر الجزيل لك على ردك ومتأسف لتأخري في الرد سوفأجرب الكود وأعطيك النتيجة بارك الله فيك
السلام عليكم ورحمة الله وبركاته
الشكر الجزيل لك الأستاذ أبو خالد الكود شغال 1000\1000
بارك الله فيك