تابعی برای تشخیص آخرین چک باکسی که قرار است Uncheck شود....

[ROSTAM2]

سلام به همه....

با این تابع می شود تشخیص داد از بین چک باکس های ورودی CheckBoxes چک باکس ورودی Box آخرین چک باس است یا خیر؛ تا بتوان مانع از Unckeck شدن آن شد....


Public Function IsLastCheckBox(Box As CheckBox, ParamArray CheckBoxes As CheckBox()) As Boolean
If Box.Checked = True Then Return True
For Each CheckBox As CheckBox In CheckBoxes
If CheckBox IsNot Box AndAlso CheckBox.Checked = True Then Return False
Next
Return True
End Function End Function


بکارگیری تابع در رویداد CheckedChanged از همه چک باکس های ورودی CheckBoxes :

Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox4.CheckedChanged, CheckBox3.CheckedChanged, CheckBox2.CheckedChanged, CheckBox5.CheckedChanged
sender.Checked = IsLastCheckBox(sender, Me.CheckBox1, Me.CheckBox2, Me.CheckBox3, Me.CheckBox4, Me.CheckBox5)
End Sub


با این روش آخرین چک باکس از بین چک باکسها Clear نمی شود....

155873