Member Avatar for ReyJEnriquez

How would i let 3 checkbox acts like a radio button...

  • 2 Contributors
  • 3 Replies
  • 582 Views
  • 3 Days Discussion Span
  • Latest Post Latest Post by ReyJEnriquez
Member Avatar for Dani

How did you get it? Would be great if you could post your solution to help others out!

Member Avatar for ReyJEnriquez 
Public Class frmTest
    Private Sub frmTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        CheckBox1.Checked = True
    End Sub

    Private Sub EnableCheckBox(ByVal C1 As Boolean, ByVal C2 As Boolean, ByVal C3 As Boolean)

        If CheckBox1.Checked <> C1 Then
            CheckBox1.Checked = C1
        End If
        If CheckBox2.Checked <> C2 Then
            CheckBox2.Checked = C2
        End If
        If CheckBox3.Checked <> C3 Then
            CheckBox3.Checked = C3
        End If

    End Sub

    Private Sub CheckBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.Click
        Call EnableCheckBox(True, False, False)
    End Sub

    Private Sub CheckBox2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox2.Click
        Call EnableCheckBox(False, True, False)
    End Sub

    Private Sub CheckBox3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox3.Click
        Call EnableCheckBox(False, False, True)
    End Sub

End Class

Ooopsss!! sorry Dani...here is it my friend :-)

Edited by ReyJEnriquez
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.