Color de fondo en un textbox

El el evento GOTFOCUS del TextBox . ponele el Color Amarillo.. y en el
LostFocus ponele blanco..
EJ:
Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TextBox1.GotFocus
TextBox1.BackColor = Color.Yellow
End Sub

Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TextBox1.LostFocus
TextBox1.BackColor = Color.White
End Sub

Pero si tenes muchos textbox.. te vas volver loco poniendo uno por uno.. asi
que ponele un ADDHANDLER y apuntalo a uno en general.

Atte. Miguel A. Nievas
MCAD.NET


"Sureño" wrote:

Hola amigos, la consulta es que desearia que al recibir el foco un
textbox cambie el color de fondo del mismo (amarillo) y al perder el
foco vualva al color normal (blanco).

Saludos y gracias.

ADDHANDLER

Gracias Miguel, podrias aclararme mas sobre como funciona ADDHANDLER,
porque justamente tengo varios textbox y bombobox, gracias por tu
tiempo.

Sureño wrote:

ADDHANDLER

Gracias Miguel, podrias aclararme mas sobre como funciona ADDHANDLER,
porque justamente tengo varios textbox y bombobox, gracias por tu
tiempo

En el load del formulario:
dim ctrl as Control
For Each ctrl In Me
It TypeOf(ctrl) Is TextBox
Dim miTextBox as TextBox = DirectCast (ctrl, TextBox)
addHandler miTextBox.GotFocus addressOf TieneFoco()
addHandler miTextBox.LostFocus AddressOf PierdeFoco()
End if
End For

y ahora falta definir los metodos TieneFoco y PierdeFoco:

Private Sub TieneFoco(ByVal sender As Object, _
ByVal e As System.EventArgs)
Dim miTextBox as TextBox=DirectCast(sender, TextBox)
miTextBox.BackColor=Color.Yellow
End If

Private Sub PierdeFoco(ByVal sender As Object, _
ByVal e As System.EventArgs)
Dim miTextBox as TextBox=DirectCast(sender, TextBox)
miTextBox.BackColor=Color.White
End If

Por cierto, como bien indica Tristan unos mensajes mas abajo, es mejor
usar los eventos Enter y Leave en vez de GotFocus y LostFocus

Buenos días, he probado a hacer lo que aquí exponéis y me encuentro con un
problema al asignar como evento delegado el Tienefoco ya que me pide los
parámetros que están declarados.
¿Como puedo solucionarlo?

Muchas gracias por vuestra colaboración, espero haberme expresado con
claridad.
Feliz Navidad a todos

"Carlos Gómez" escribió en el mensaje
news:

Sureo wrote:

ADDHANDLER

Gracias Miguel, podrias aclararme mas sobre como funciona ADDHANDLER,
porque justamente tengo varios textbox y bombobox, gracias por tu
tiempo

En el load del formulario:
dim ctrl as Control
For Each ctrl In Me
It TypeOf(ctrl) Is TextBox
Dim miTextBox as TextBox = DirectCast (ctrl, TextBox)
addHandler miTextBox.GotFocus addressOf TieneFoco()
addHandler miTextBox.LostFocus AddressOf PierdeFoco()
End if
End For

y ahora falta definir los metodos TieneFoco y PierdeFoco:

Private Sub TieneFoco(ByVal sender As Object, _
ByVal e As System.EventArgs)
Dim miTextBox as TextBox=DirectCast(sender, TextBox)
miTextBox.BackColor=Color.Yellow
End If

Private Sub PierdeFoco(ByVal sender As Object, _
ByVal e As System.EventArgs)
Dim miTextBox as TextBox=DirectCast(sender, TextBox)
miTextBox.BackColor=Color.White
End If