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

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

با این تابع می شود تشخیص داد از بین چک باکس های ورودی 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