Color de fondo en un textbox

Hola, he intentado poner el codigo que ha escrito Carlos y no me funciona,
lo he rectificado y ademas he utilizado en enter y leave en vez de gotfocus
y lostfocus que se ha comentado que es mejor.


En el load del formulario :

Dim ctrl As Control
For Each ctrl In Me.Controls
If (TypeOf (ctrl) Is TextBox) Then
Dim miTextBox As TextBox = DirectCast(ctrl, TextBox)
AddHandler miTextBox.Enter, AddressOf TieneFoco
AddHandler miTextBox.Leave, AddressOf PierdeFoco
End If
Next
End Sub


Esto fuera del load.

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

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


Un saludo.
David Sans

"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