
Como cambiar el color de fondo de los combobox al empezar a introducir texto
Publicado por Vicky (8 intervenciones) el 19/03/2015 16:23:24
Buen dia!
Alguien que me ayude, que codigo usar para cambiar el color de fondo de los combobox al empezar a introducir texto, ya me funciono con los Textbox, pero no hayo como hacerle con los ComboBox :(
Godigo para los TexTbox
'Dentro del Form
Public Class Form1
Private Sub conFoco(ByVal sender As Object, ByVal e As System.EventArgs)
DirectCast(sender, TextBox).BackColor = Color.Yellow
End Sub
Private Sub sinFoco(ByVal sender As Object, ByVal e As System.EventArgs)
DirectCast(sender, TextBox).BackColor = Color.White
End Sub
'Dentro del Form1_load
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each c As Object In Me.Controls
If c.GetType Is GetType(TextBox) Then
AddHandler (DirectCast(c, TextBox).GotFocus), AddressOf conFoco
AddHandler (DirectCast(c, TextBox).LostFocus), AddressOf sinFoco
End If
Next
End Sub
Ayuda por favor!
Alguien que me ayude, que codigo usar para cambiar el color de fondo de los combobox al empezar a introducir texto, ya me funciono con los Textbox, pero no hayo como hacerle con los ComboBox :(
Godigo para los TexTbox
'Dentro del Form
Public Class Form1
Private Sub conFoco(ByVal sender As Object, ByVal e As System.EventArgs)
DirectCast(sender, TextBox).BackColor = Color.Yellow
End Sub
Private Sub sinFoco(ByVal sender As Object, ByVal e As System.EventArgs)
DirectCast(sender, TextBox).BackColor = Color.White
End Sub
'Dentro del Form1_load
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each c As Object In Me.Controls
If c.GetType Is GetType(TextBox) Then
AddHandler (DirectCast(c, TextBox).GotFocus), AddressOf conFoco
AddHandler (DirectCast(c, TextBox).LostFocus), AddressOf sinFoco
End If
Next
End Sub
Ayuda por favor!
Valora esta pregunta


0