Power Builder - Cambiar color a titulo de TabPage

Buenos dias a todos, quisiera que cuando seleccione una pestaña de un TabPage el titulo de esa pestaña que esta negro cambie a rojo y que cuando seleccione otra pestaña vuelva a su color anterior (negro) y esta segunda pestaña seleccionada cambie de color a rojo, se puede como ? gracias

Buenos Dias:

eso se puede manejar a traves de un evento llamado selectionchaged() y controlando la pestaña activa varias los colores con el comando
tab_1.tabpage_1.TabBackColor(color)

espero te SIrva

un saludo desde COLOMBIA

Hola quieres cambiar el color del titulo a la pestaña activada o seleccionada, bueno esto lo haces en el evento SelectionChanged() en este evento tienes 2 Argumentos:

oldindex & newindex

oldindex : devuelve el entero del índice de la pestaña que fue seleccionada previamente.

newindex : devuelve el entero del índice de la pestaña que se ha seleccionado

Copia este codigo en el evento SelectionChanged() de tu TabPage utilizando newindex:

CHOOSE CASE newindex
CASE 1
tab_1.tabpage_1.TabTextColor = RGB(0, 0, 255)
tab_1.tabpage_2.TabTextColor = RGB(0, 0, 0)
tab_1.tabpage_3.TabTextColor = RGB(0, 0, 0)
CASE 2
tab_1.tabpage_1.TabTextColor = RGB(0, 0, 0)
tab_1.tabpage_2.TabTextColor = RGB(0, 0, 255)
tab_1.tabpage_3.TabTextColor = RGB(0, 0, 0)
CASE 3
tab_1.tabpage_1.TabTextColor = RGB(0, 0, 0)
tab_1.tabpage_2.TabTextColor = RGB(0, 0, 0)
tab_1.tabpage_3.TabTextColor = RGB(0, 0, 255)
END CHOOSE

Espero que pueda servirte..

Saludos
Lima - Perú

hola estoy trabajando en c# y la propiedad tabtextcolor no me funciona alguien me puede ayudar para que el color del titulo a la pestaña activada o seleccionada, cambie de color por favor es urgente
Gracias
Maria

CON MENOS CODIGO SI TENES VARIOS TABPAGE
SelectionChanged()

This.Control[newindex].TabTextColor = RGB(0, 0, 255)
If oldindex >0 Then
This.Control[oldindex].TabTextColor = RGB(0, 0, 0)
End IF

SelectionChanged()

CON MENOS CODIGO SI TENES VARIOS TAPPAGE

This.Control[newindex].TabTextColor = RGB(0, 0, 255)
If oldindex >0 Then
This.Control[oldindex].TabTextColor = RGB(0, 0, 0)
End IF