TextBox BackColor Change

Question

0.00/5 (No votes)

See more:

Dear All,
I have made a project. It is almost completed. Now query is raised that when TextBox GotFocus, its back color should be changed and when it lostFocus, it shuld be normal.

Many more TextBox are on form. Is there any coding to resolve it without disturbing to one-by-one ?

Please reply...

Posted 24-Apr-14 0:55am

SelfCom

Add a Solution

4 solutions

Solution 2

Check this fiddle it is for border color just make it for backcolor (if this is a web app)

Fiddle

Posted 24-Apr-14 1:05am

Sanket Saxena

Updated 24-Apr-14 1:30am

v2

Comments

CHill60 24-Apr-14 7:17am

OP is using VB.NET!

Solution 1

Try this if it is a desktop application

VB

Private Sub Text_GotFocus()

    Me.Text.BackStyle = normal

End Sub
Private Sub Text_LostFocus()

    Me.Text.BackStyle = Transparent

End Sub

Posted 24-Apr-14 1:04am

Mukesh Ghosh

Comments

CHill60 24-Apr-14 7:16am

This looks like VB6 not VB.NET ... and only works for one text box not all of them

Solution 6

VB

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim tbx As TextBox
        For Each tbx In Me.Controls
            AddHandler tbx.MouseEnter, AddressOf tbx_MouseEnter
            AddHandler tbx.MouseLeave, AddressOf tbx_MouseLeave
        Next
    End Sub

    Private Sub tbx_MouseEnter(sender As Object, e As EventArgs)
        sender.Backcolor = Color.Red
    End Sub

    Private Sub tbx_MouseLeave(sender As Object, e As EventArgs)
        sender.Backcolor = Color.White
    End Sub
End Class

Posted 24-Apr-14 6:46am

sreeyush sudhakaran

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CHill60 · Accepted Answer · 2014-04-24T01:24:00

In VB.NET you can have a single function handle several events - you don't have to double-click on every text box or anything like that :-)

I created a form with 6 textboxes on it (TextBox1, TextBox2 etc) then used these two functions to handle all of the Enter (GotFocus) and Leave (LostFocus) events

VB

Private Sub TextBoxX_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter, TextBox4.Enter, TextBox5.Enter, TextBox6.Enter
    Dim tb As TextBox = sender
    tb.BackColor = Color.Tomato
End Sub
Private Sub TextBoxX_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Leave, TextBox2.Leave, TextBox3.Leave, TextBox4.Leave, TextBox5.Leave, TextBox6.Leave
    Dim tb As TextBox = sender
    tb.BackColor = Color.Violet
End Sub

If you need more then just add the text box events at the end of the list e.g.

Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter, TextBox4.Enter, TextBox5.Enter, TextBox6.Enter ,TextBox7.Enter

If you hit any limits on the number of handlers you can add then just create another pair of handlers that call these ones e.g.

VB

Private Sub T6_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.Leave
    TextBoxX_Leave(sender, e)
End Sub
Private Sub T8_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.Enter
    TextBoxX_Enter(sender, e)
End Sub