Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
Solved
it is safe to reduce my code like this??
Posted on 2013-01-05
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
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
2 Comments
I do that kind of thing all the time. It's "safe" as long as you ensure that all controls entering that handler will fit the constraints of the code. You could always add in error checking. I'd rather put that kind of code in one place as you've done, since any changes would be immediately applied to all the controls affected, and you don't have to manually change a bunch of separate handlers.
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
This tutorial demonstrates one way to create an application that runs without any Forms but still has a GUI presence via an Icon in the System Tray.
The magic lies in Inheriting from the ApplicationContext Class and passing that to Application.Ru…
Well, all of us have seen the multiple EXCEL.EXE's in task manager that won't die even if you call the .close, .dispose methods. Try this method to kill any excels in memory. You can copy the kill function to create a check function and replace the …
In this brief tutorial Pawel from AdRem Software explains how you can quickly find out which services are running on your network, or what are the IP addresses of servers responsible for each service. Software used is freeware NetCrunch Tools (https…
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…
Suggested Courses
Course of the Month6 days, 16 hours left to enroll
704 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.