Checked Change Fires two events? (Resolved)

[BukHix]

This codes seems to fire two events, which I guess is because there is an event fired when I leave one radio button and then another event fired when I enter a new radio button.

Private Sub radQ1_CheckedChanged(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles _
        radQ1.CheckedChanged, radQ2.CheckedChanged, _
        radQ3.CheckedChanged, radQ4.CheckedChanged
 
        MsgBox("You just changed the radio button.", _
            MsgBoxStyle.OKOnly, "Event Fired")
        FillDataGrid()
 
    End Sub

Is there a way to do this that will fire only one event? Or is there a better way to do what I am doing, which is basically filling a datagrid based on which quarter the user chooses (4 radio buttons).

[crptcblade]

Try casting sender into a RadioButton, and only call your fill routine if the control that caused the event is selected. If is not selected, then just ignore it.

[Pirate]

Continuing what crptcblade explained , this might be the code you need :

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged
 
        Select Case DirectCast(sender, RadioButton).Name
            Case "RadioButton1"
                'do this
 
            Case "RadioButton2"
                'do this
        End Select
 
    End Sub

[BukHix]

Thanks! Am I missing something though? I am still getting the message twice for every change.

Private Sub radQ1_CheckedChanged(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles _
        radQ1.CheckedChanged, radQ2.CheckedChanged, _
        radQ3.CheckedChanged, radQ4.CheckedChanged
 
        Select Case DirectCast(sender, RadioButton).Name
            Case "radQ1"
                MsgBox("You just changed the radio button.")
                'FillDataGrid()
            Case "radQ2"
                MsgBox("You just changed the radio button.")
                'FillDataGrid()
            Case "radQ3"
                MsgBox("You just changed the radio button.")
                'FillDataGrid()
            Case "radQ4"
                MsgBox("You just changed the radio button.")
                'FillDataGrid()
        End Select
    End Sub

[pax]

Hi.

The reason it fire's twice is because when you check a radiobutton another is automatically de-checked. so both of them will fire the event.

Your code above for checking which one is correct. You just need a IF statement before showing you messagebox.

Private Sub radQ1_CheckedChanged(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles _
        radQ1.CheckedChanged, radQ2.CheckedChanged, _
        radQ3.CheckedChanged, radQ4.CheckedChanged
 
        Select Case DirectCast(sender, RadioButton).Name
            Case "radQ1"
                IF radQ1.Checked Then MsgBox("You just changed the radio button.")
                'FillDataGrid()
            Case "radQ2"
                IF radQ2.Checked Then MsgBox("You just changed the radio button.")
                'FillDataGrid()
            Case "radQ3"
                IF radQ3.Checked Then MsgBox("You just changed the radio button.")
                'FillDataGrid()
            Case "radQ4"
                IF radQ4.Checked Then MsgBox("You just changed the radio button.")
                'FillDataGrid()
        End Select
    End Sub

[Pirate]

That's right . I've just figured it out ! . To avoid a lot of hassle , use Click event .

Private Sub radQ1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles radQ1.Click, radQ2.Click, radQ3.Click, radQ4.Click
 
        Select Case DirectCast(sender, RadioButton).Name
            Case "radQ1"
                MsgBox("You just changed the radio button.")
                'FillDataGrid()
            Case "radQ2"
                MsgBox("You just changed the radio button.")
                'FillDataGrid()
            Case "radQ3"
                MsgBox("You just changed the radio button.")
                'FillDataGrid()
            Case "radQ4"
                MsgBox("You just changed the radio button.")
                'FillDataGrid()
        End Select
 
    End Sub

[BukHix]

Perfect. Thank you.

[Pirate]

btw , you better use MessageBox.Show method not MsgBox .

[BukHix]

Actually I removed the message boxes completely. Their only purpose was so that I could count how many times the event was being triggered.

Thanks again.