اشکال در false کردن چک باکس های checklistbox

[pouyansaraf]

با سلام
هدف من این است که اگر چک گزینه 10 true بود چک تمام گزینه ها true و اگر چک گزینه 10 false بود چک تمامی گزینه ها false شود.
ولی نمیدانم چرا true کردنشان درست است ولی false نمیکند؟


Private Sub CheckedListBox1_ItemCheck(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck
If e.Index = 10 And CheckState.Checked Then
For i = 0 To CheckedListBox1.Items.Count - 2
CheckedListBox1.SetItemChecked(i, True)
Next
ElseIf e.Index = 10 And CheckState.Unchecked Then
For i = 0 To CheckedListBox1.Items.Count - 2
CheckedListBox1.SetItemChecked(i, False)
Next
End If
End Sub

اگر ممکن است یه کمکی بکنید دوستان :متعجب:

[hero4000]

کدت رو اينجوري اصلاح کن



Private Sub CheckedListBox1_ItemCheck(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck
If e.Index = 10 And e.CurrentValue = CheckState.Checked Then
For i = 0 To CheckedListBox1.Items.Count - 2
CheckedListBox1.SetItemChecked(i, True)
Next
ElseIf e.Index = 10 And e.CurrentValue = CheckState.Unchecked Then
For i = 0 To CheckedListBox1.Items.Count - 2
CheckedListBox1.SetItemChecked(i, False)
Next
End If
End Sub

[pouyansaraf]

مرسی ممنون
ولی 180 درجه برعکس بود.
در هر صورت ممنون :بوس:

[hero4000]

دوست عزيز من فقط کد شما رو اصلاح کردم
اگر هم برعکس بوده حتما خود شما قصد اين کار رو داشتين . من که منظور شما رو از اين کدها نمي دونستم

حا لا اگه برعکسه جاي اون True و False رو عوض کن

موفق باشيد