altariamx2003
asked on
it is safe to reduce my code like this??
I would like to know if it is safe or it is same thing if I change this code from this:
'NORMAL CODE'
To this:
'REDUCE CODE'
'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
To this:
'REDUCE CODE'
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
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
thanks idle_mind