Hey guys, I am a beginner, and my code works how I want it to, but naturally, I think I took the "sledgehammer" method of just writing everything out without thought to efficiency. Now, I am noticing some delay in my program. Basically, I have 12 textboxes that are lit up with a border two at a time. So basically, textbox 1 and 2 get a red border. Then textbox 3 and 4 get the red border while textbox1 and textbox 2 get a grey border, etc... I just know there has to be an easier way to do this.
code Code:
Dim int As Integer stepindicator.Read() int = stepindicator.Values(0) If int = 1 Then Label2.BackColor = Color.Maroon Label2a.BackColor = Color.Maroon ElseIf int = 2 Then Label3.BackColor = Color.Maroon Label3a.BackColor = Color.Maroon Label2.BackColor = Color.DarkGray Label2a.BackColor = Color.DarkGray ElseIf int = 3 Then Label4.BackColor = Color.Maroon Label4a.BackColor = Color.Maroon Label3.BackColor = Color.DarkGray Label3a.BackColor = Color.DarkGray Label2.BackColor = Color.DarkGray Label2a.BackColor = Color.DarkGray ElseIf int = 4 Then Label5.BackColor = Color.Maroon Label5a.BackColor = Color.Maroon Label4.BackColor = Color.DarkGray Label4a.BackColor = Color.DarkGray Label3.BackColor = Color.DarkGray Label3a.BackColor = Color.DarkGray Label2.BackColor = Color.DarkGray Label2a.BackColor = Color.DarkGray ElseIf int = 5 Then Label6.BackColor = Color.Maroon Label6a.BackColor = Color.Maroon Label5.BackColor = Color.DarkGray Label5a.BackColor = Color.DarkGray Label4.BackColor = Color.DarkGray Label4a.BackColor = Color.DarkGray Label3.BackColor = Color.DarkGray Label3a.BackColor = Color.DarkGray Label2.BackColor = Color.DarkGray Label2a.BackColor = Color.DarkGray ElseIf int = 6 Then Label7.BackColor = Color.Maroon Label7a.BackColor = Color.Maroon Label6.BackColor = Color.DarkGray Label6a.BackColor = Color.DarkGray Label5.BackColor = Color.DarkGray Label5a.BackColor = Color.DarkGray Label4.BackColor = Color.DarkGray Label4a.BackColor = Color.DarkGray Label3.BackColor = Color.DarkGray Label3a.BackColor = Color.DarkGray Label2.BackColor = Color.DarkGray Label2a.BackColor = Color.DarkGray End If
