تکه کد انتخاب دو چک باکس

[gilsoft]

با سلام
من یه تیکه کد میخوام از بین چند تا چک باکس کاربر فقط بتونه دوتا رو انتخاب کنه یعنی اگه خواست سومی رو انتخاب کنه همه غیر فعال باشن !
نمیدونم تونستم درست مشکلمو بیان کنم یا نه

سلام دوست عزیز

ابتدا یک Panel به فرم اضافه کن .. بعد در داخل Panel به تعداد دلخواه CheckBox اضافه کن و از کد زیر استفاده کن

Public Class Form2





    Dim NC As Byte = 0





    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        For Each chk As CheckBox In Panel1.Controls

            AddHandler chk.Click, AddressOf Mgr_Click

        Next

    End Sub





    Private Sub Mgr_Click(sender As System.Object, e As System.EventArgs)

        Dim chk As CheckBox = DirectCast(sender, CheckBox)

        If chk.Checked Then NC += 1 Else NC -= 1

        If NC > 2 Then Exit Sub

        If NC = 2 Then

            For Each chkDis As CheckBox In Panel1.Controls

                If chkDis.Checked = False Then

                    chkDis.Enabled = False

                End If

            Next

        End If

        If NC < 2 Then

            For Each chkEna As CheckBox In Panel1.Controls

                chkEna.Enabled = True

            Next

        End If

    End Sub

End Class

موفق باشید .....