Domingo 8 de Septiembre de 2024, 01:24
SoloCodigo
Bienvenido(a),
Visitante
. Por favor,
ingresa
o
regístrate
.
¿Perdiste tu
email de activación?
Inicio
Foros
Chat
Ayuda
Buscar
Ingresar
Registrarse
SoloCodigo
»
Foros
»
CLR: .Net / Mono / Boo / Otros CLR
»
VB .NET
(Moderador:
ElNapster
) »
Cambiar De Color A Un Texbox
« anterior
próximo »
Imprimir
Páginas: [
1
]
Autor
Tema: Cambiar De Color A Un Texbox (Leído 3268 veces)
Sagma
Miembro MUY activo
Mensajes: 390
Nacionalidad:
Cambiar De Color A Un Texbox
«
en:
Viernes 11 de Agosto de 2006, 18:08 »
0
Hola a todos, quisiera saber si hay alguna forma de que el cambio de color del textbox, que cuando el cursor este en este cambie de color.
he encontrado :
Código: Text
Private Sub txt_descripcion_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_descripcion.GotFocus
Me.txt_descripcion.BackColor = Color.Yellow
End Sub
Private Sub txt_descripcion_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_descripcion.LostFocus
Me.txt_descripcion.BackColor = Color.White
End Sub
pero como le hago para 12 textbox, tendre que hacer uno por uno, o hay alguna manera de hacer todo en uno solo
gracias
Tweet
Sagma
Cajami
Miembro MUY activo
Mensajes: 298
Re: Cambiar De Color A Un Texbox
«
Respuesta #1 en:
Viernes 11 de Agosto de 2006, 21:18 »
0
Hola que tal, en el .Net existe Handles bueno ps para crear un procedimiento compartido, bueno para no aburrirte puedes hacer esto:
Private Sub txt_descripcion_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_descripcion.GotFocus, TextBox1.GotFocus, TextBox2.Gotfocus
Me.txt_descripcion.BackColor = Color.Yellow
End Sub
Lo que hace es unir ese procedimiento con esos objetos (TextBox). Nos vemos
Tumbes - Perú
Lima - Perú
-------------------------------------------------------------------------------------------------------
"Persigue tus metas, tus objetivos, tus sueños, nunca t rindas si t caes 1000 veces levantat 1000 veces y sigue adelante..."
Sagma
Miembro MUY activo
Mensajes: 390
Nacionalidad:
Re: Cambiar De Color A Un Texbox
«
Respuesta #2 en:
Viernes 6 de Octubre de 2006, 16:13 »
0
gracias cajami por contestar, miren encontre este ejemplo en la web, pero me da errores.
agluien me podrian indicar el motivo del error:
Código: Text
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
'Esto dentro del Load
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
el error que me das es el:
DirectCast(sender, TextBox) ya que sale el mensaje "se esperaba el fin de la instruccion"
y en
miTextBox.BackColor(Color.White) "Debe asignarse un acceso de propiedad a la propiedad o utilizar el valor"
gracias
Sagma
The Black Boy
Miembro de PLATA
Mensajes: 1043
Nacionalidad:
Re: Cambiar De Color A Un Texbox
«
Respuesta #3 en:
Viernes 6 de Octubre de 2006, 16:47 »
0
Saludos amigo...
prueba esto y me cuentas
Código: Text
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ctrl As Control
For Each ctrl In Me.Controls
If (TypeOf (ctrl) Is TextBox) Then
Dim miTextBox As TextBox
Me.mitextbox = DirectCast(ctrl, TextBox)
AddHandler miTextBox.Enter, AddressOf TieneFoco
AddHandler miTextBox.Leave, AddressOf PierdeFoco
End If
Next
End Sub
Private Sub TieneFoco(ByVal sender As Object, ByVal e As System.EventArgs)
Dim miTextBox As TextBox
Me.mitextbox = 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
Me.mitextbox = DirectCast(sender, TextBox)
mitextbox.BackColor = (Color.White)
End Sub
no estoy muy seguro espero te sirva...
El inteligente no es aquel que lo sabe todo
sino aquel que sabe utilizar lo poco que sabe.
Espacio Personal
si necesitas algo de programacion click aqui, si no esta aqui no existe
Programacion]
senzao18
Miembro HIPER activo
Mensajes: 553
Re: Cambiar De Color A Un Texbox
«
Respuesta #4 en:
Viernes 6 de Octubre de 2006, 17:43 »
0
Lo que pasa es que en esta linea de codigo
Código: Text
Dim miTextBox As TextBox DirectCast(ctrl, TextBox)
son dos instrucciones
tendria que ser algo asi
Código: Text
Dim miTextBox As TextBox = DirectCast(ctrl, TextBox)
El codigo que te puso The Black Boy a simple vista se ve que está correcto...
Igual lo que puso Cajami es una muy buena opcion....
Saludos.
---------------------------------------
Erick Aragon Zepeda
Dessarrollo de Aplicaciones .NET
http]
Blog de Articulos
Mi Blog
NoSolocodigo
-->
comsuven
Nuevo Miembro
Mensajes: 21
Re: Cambiar De Color A Un Texbox
«
Respuesta #5 en:
Viernes 6 de Octubre de 2006, 20:50 »
0
prueba este es igual pero nunca se sabe
Sub colorTextBoxin()
Dim FormControl As System.Windows.Forms.Control
For Each FormControl In Me.Controls
If FormControl.GetType.ToString = "System.Windows.Forms.TextBox" Then
FormControl.backcolor = xxxxxxxxxxxxxxxx = color
End If
Next
End Sub
Sub colorTextBoxout()
Dim FormControl As System.Windows.Forms.Control
For Each FormControl In Me.Controls
If FormControl.GetType.ToString = "System.Windows.Forms.TextBox" Then
FormControl.backcolor = xxxxxxxxxxxxxxxx = color
End If
Next
End Sub
y luego llamas a los procedimientos
bueno eso fue lo que entendi que querias hacer
Sagma
Miembro MUY activo
Mensajes: 390
Nacionalidad:
Re: Cambiar De Color A Un Texbox
«
Respuesta #6 en:
Sábado 7 de Octubre de 2006, 15:21 »
0
Gracias por su colaboracion amigos, funciona solo con los textbox que estan fuera de los groupbox, y como se lo haria para que los textbox que esten dentro de los groupbox tambien surta efecto.
gracias
Sagma
senzao18
Miembro HIPER activo
Mensajes: 553
Re: Cambiar De Color A Un Texbox
«
Respuesta #7 en:
Sábado 7 de Octubre de 2006, 19:38 »
0
Tendrias que ver si el control es un groupbox y si es asi apicas el for each para los controles del groupbox....
---------------------------------------
Erick Aragon Zepeda
Dessarrollo de Aplicaciones .NET
http]
Blog de Articulos
Mi Blog
NoSolocodigo
-->
Sagma
Miembro MUY activo
Mensajes: 390
Nacionalidad:
Re: Cambiar De Color A Un Texbox
«
Respuesta #8 en:
Viernes 13 de Octubre de 2006, 15:01 »
0
Gracias senzao18, por la informacion, esta ok.
Sagma
Imprimir
Páginas: [
1
]
« anterior
próximo »
SoloCodigo
»
Foros
»
CLR: .Net / Mono / Boo / Otros CLR
»
VB .NET
(Moderador:
ElNapster
) »
Cambiar De Color A Un Texbox