Function to change back color for label control (solved)

[BukHix]

I have a series of text boxes that the user tabs through. Right now have a lot of redundant code that I think I could put in one function if I knew how.

Basically what I have going on is that when a user is in a text control I reverse the colors on the label control for that text box. After the user leaves the text box its label goes back to the original color.

Here is a sample of the code I have now.

Private Sub txtWeekEnd_LostFocus(ByVal sender As Object, _
        ByVal e As System.EventArgs) _
        Handles txtWeekEnd.LostFocus
 
        lblWeekEnd.BackColor = WhiteSmoke
        lblWeekEnd.ForeColor = Black
 
    End Sub
 
    Private Sub txtEntryPerson_GotFocus(ByVal sender As System.Object, _
        ByVal e As System.EventArgs)
 
        lblEntryPerson.BackColor = Black
        lblEntryPerson.ForeColor = White
 
    End Sub
 
    Private Sub txtEntryPerson_LostFocus(ByVal sender As System.Object, _
        ByVal e As System.EventArgs)
 
        lblEntryPerson.BackColor = WhiteSmoke
        lblEntryPerson.ForeColor = Black
 
    End Sub
 
    Private Sub txtJobNumber_GotFocus(ByVal sender As Object, _
        ByVal e As System.EventArgs) _
        Handles txtJobNumber.GotFocus
 
        lblJobNumber.BackColor = Black
        lblJobNumber.ForeColor = White
 
    End Sub

How do I put that in a function to reduce the amount of code?

I kinda have an understanding of the use of functions but I am having some problem getting it to work for the current text box only (the calling text box).

[Edneeis]

Try something along these lines which assumes the label you want to change is 5 pixels or less above the current textbox.

Private Sub TextBox2_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.Enter, TextBox3.Enter, TextBox4.Enter, TextBox5.Enter
        Dim txt As TextBox = DirectCast(sender, TextBox)
        'get control 5 pixels above the textbox
        Dim ctrl As Control = Me.GetChildAtPoint(New Point(txt.Location.X, txt.Location.Y - 5))
        ctrl.BackColor = txt.ForeColor
        ctrl.ForeColor = txt.BackColor
    End Sub
 
    Private Sub TextBox2_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.Leave, TextBox3.Leave, TextBox4.Leave, TextBox5.Leave
        Dim txt As TextBox = DirectCast(sender, TextBox)
        'get control 5 pixels above the textbox
        Dim ctrl As Control = Me.GetChildAtPoint(New Point(txt.Location.X, txt.Location.Y - 5))
        ctrl.BackColor = txt.BackColor
        ctrl.ForeColor = txt.ForeColor
    End Sub

[Memnoch1207]

What about creating a function that takes the name of the control then does a select case to determine the color of the label?

Something like this

Private Sub txtName_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtName.Leave
        Call ChangeColor("txtName")
End Sub
 
Public Function ChangeColor(ByVal Name As String)
    Select Case Name
        Case "txtName"
            lblName.BackColor = Black
            lblName.ForeColor = White
    End Select
End Function

[BukHix]

Thanks for the replies. I was hoping I could cut a lot of the code down or remove the need to know the control names. The function that Memnoch1207 is pretty close to what I was trying on my own.

Is it possible to have Case "txtName" be a variable depending on the text box that sent it?

[Edneeis]

The two methods I posted should cover all of the controls. The only place that needs the name is adding them to the event handler.

'instead of Handles TextBox2.Leave, TextBox3.Leave, TextBox4.Leave, TextBox5.Leave enter your control names
... Handles txtWeekEnd.Leave, txtEntryPerson.Leave, txtJobNumber.Leave

[BukHix]

Thanks Edneeis I got it now.