I would like to know if it is safe or it is same thing if I change this code from this:
'NORMAL CODE'
Private Sub rec_agua21_basep3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rec_agua21_basep3.CheckedChanged If rec_agua21_basep3.Checked = True Then paso_medio("p3", "base", "tb") paso_medio("p3", "base", "tv2005") End If End Sub Private Sub rec_agua22_basep3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rec_agua22_basep3.CheckedChanged If rec_agua22_basep3.Checked = True Then paso_medio("p3", "base", "tb") paso_medio("p3", "base", "tv2005") End If End Sub Private Sub temp_calentamiento_basep3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles temp_calentamiento_basep3.CheckedChanged If temp_calentamiento_basep3.Checked = True Then paso_medio("p3", "base", "tb") paso_medio("p3", "base", "tv2005") End If End Sub Private Sub rec_agua21_secp3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rec_agua21_secp3.CheckedChanged If rec_agua21_secp3.Checked = True Then paso_medio("p3", "sec", "tb") paso_medio("p3", "sec", "tv2005") End If End Sub Private Sub rec_agua22_secp3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rec_agua22_secp3.CheckedChanged If rec_agua22_secp3.Checked = True Then paso_medio("p3", "sec", "tb") paso_medio("p3", "sec", "tv2005") End If End Sub Private Sub temp_calentamiento_secp3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles temp_calentamiento_secp3.CheckedChanged If temp_calentamiento_secp3.Checked = True Then paso_medio("p3", "sec", "tb") paso_medio("p3", "sec", "tv2005") End If End Sub
Private Sub seccion1_p3(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rec_agua21_base_p3.CheckedChanged, rec_agua22_base_p3.CheckedChanged, temp_calentamiento_base_p3.CheckedChanged, rec_agua21_sec_p3.CheckedChanged, rec_agua22_sec_p3.CheckedChanged, temp_calentamiento_sec_p3.CheckedChanged Dim pruebas() As String pruebas = Split(DirectCast(sender, Control).Name, "_") If DirectCast(sender, RadioButton).Checked = True Then paso_medio(pruebas(3), pruebas(2), "tb") paso_medio(pruebas(3), pruebas(2), "tv2005") End If End Sub
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
Not exactly the question you had in mind?
Sign up for an EE membership and get your own personalized solution. With an EE membership, you can ask unlimited troubleshooting, research, or opinion questions.
thanks idle_mind