-
Cambiar color de tabpage
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
-
Saludos:
Al parecer es todo un problema cambiar el color del TabPage. Encontre esta respuesta en un foro de MS:
how to change the color of the tab control in vb.net
Espero ayude.
JOSE LUIS
-
Gracias JOSE LUIS, ya lo había leído y no me ayuda, cambia el contenido de la pestaña pero no la pestaña en si que es lo que busco.
Muchas gracias por tomarte tu tiempo
-
No entiendo por que dices que "no te ayuda". En el enlace que te han indicado se explica el procedimiento basico para hacer lo que pides-> Debes controlar el evento DrawItem y dibujar en el control.
Aqui hay un ejemplo completo:
Painting Your Own Tabs - Second Edition - CodeProject