
COLOR EN TABPAGES
Publicado por Jose Alberto (10 intervenciones) el 22/02/2014 19:44:30
Buenas tardes amigos del foro tengo el siguiente problema:
Creé un tabcontrol cuyos tabpages se agregan con títulos obtenidos de un filtro que hago en una tabla, este filtro me crea 12 tabpages a los cuales quisiera cambiarles el color de fondo a la pestaña y colocar el texto en negritas cada vez que hago click en un tabpage, he intentado varias formas y no he podido hacerlo, abajo les coloco las instrucciones que he utilizado.
Gracias de antemano por la ayuda
Private Sub TCListado_Click(sender As Object, e As EventArgs) Handles TCListado.Click
Dim Seleccion As String
Seleccion = Me.TCListado.SelectedTab.Text
Me.TCListado.SelectedTab.BackColor = Color.Blue
End Sub
Private Sub TCListado_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TCListado.SelectedIndexChanged
Select Me.TCListado.SelectedIndex
Case 0
Me.TCListado.SelectedTab.ForeColor = Color.DarkGoldenrod
Case 1
Me.TCListado.SelectedTab.ForeColor = Color.DarkBlue
Case 2
Me.TCListado.SelectedTab.ForeColor = Color.DimGray
Case 3
Me.TCListado.SelectedTab.ForeColor = Color.HotPink
Case 4
Me.TCListado.SelectedTab.ForeColor = Color.MediumSpringGreen
End Select
End Sub
Creé un tabcontrol cuyos tabpages se agregan con títulos obtenidos de un filtro que hago en una tabla, este filtro me crea 12 tabpages a los cuales quisiera cambiarles el color de fondo a la pestaña y colocar el texto en negritas cada vez que hago click en un tabpage, he intentado varias formas y no he podido hacerlo, abajo les coloco las instrucciones que he utilizado.
Gracias de antemano por la ayuda
Private Sub TCListado_Click(sender As Object, e As EventArgs) Handles TCListado.Click
Dim Seleccion As String
Seleccion = Me.TCListado.SelectedTab.Text
Me.TCListado.SelectedTab.BackColor = Color.Blue
End Sub
Private Sub TCListado_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TCListado.SelectedIndexChanged
Select Me.TCListado.SelectedIndex
Case 0
Me.TCListado.SelectedTab.ForeColor = Color.DarkGoldenrod
Case 1
Me.TCListado.SelectedTab.ForeColor = Color.DarkBlue
Case 2
Me.TCListado.SelectedTab.ForeColor = Color.DimGray
Case 3
Me.TCListado.SelectedTab.ForeColor = Color.HotPink
Case 4
Me.TCListado.SelectedTab.ForeColor = Color.MediumSpringGreen
End Select
End Sub
Valora esta pregunta


0