Varias opciones en la misma condición

[palmerasistemas]

Te paso el codigo que te puede ayudar pruebalo en un form nuevo y agrega los radiobuttons y checkbox con los valores default.


Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged

'los radiobuttons se caracterizon por solo darte una opcion u otra y seria de la siguinete manera:

If Me.RadioButton1.Checked = False And Me.RadioButton2.Checked = False And Me.RadioButton3.Checked = True Then
MsgBox("c")
ElseIf Me.RadioButton1.Checked = True And Me.RadioButton2.Checked = False And Me.RadioButton3.Checked = False Then
MsgBox("a")
ElseIf Me.RadioButton1.Checked = False And Me.RadioButton2.Checked = True And Me.RadioButton3.Checked = False Then
MsgBox("b")
End If

End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged

If Me.CheckBox1.Checked = True And Me.CheckBox2.Checked = True And Me.CheckBox3.Checked = True Then
MsgBox("a, b, c")
ElseIf Me.CheckBox1.Checked = False And Me.CheckBox2.Checked = True And Me.CheckBox3.Checked = True Then
MsgBox("b, c")
ElseIf Me.CheckBox1.Checked = False And Me.CheckBox2.Checked = False And Me.CheckBox3.Checked = True Then
MsgBox("c")
ElseIf Me.CheckBox1.Checked = True And Me.CheckBox2.Checked = False And Me.CheckBox3.Checked = False Then
MsgBox("a")
ElseIf Me.CheckBox1.Checked = False And Me.CheckBox2.Checked = True And Me.CheckBox3.Checked = False Then
MsgBox("b")
ElseIf Me.CheckBox1.Checked = True And Me.CheckBox2.Checked = True And Me.CheckBox3.Checked = False Then
MsgBox("a, b")
'ElseIf ...... Then
'.........
'y aqui le sigues buscando las combinaciones
End If

'si algunos change no funcionan es porque fata hacer esa combinacion en el codigo


End Sub



Saludos espero tus comentarios.