Цвета страниц TabStrip в Win2000/XP

[$Yastrebov$]

TabStrip имеет системный цвет BackColor, который мне не удалось отыскать в таблице цветов VB.
При смене стиля Win2000/XP, TabStrip меняет свой BackColor с серого на белый. Как осуществить замену цвета и для его страниц?
Сами страницы созданы из PictureBox и Frames.
Спасибо!

[Alexanbar]

Для контролов типа TabStrip предумотрена целая таблица картинок для отрисовки каждой его части. И цвет вкладки не является монотоннным.

просто так поменять цвет, чтобы получить контрол в xP стиле, не получится. Нужно либо отрисовать его заново, или хотя бы добавить манифест к *.exe файлу и вызвать функцию Initcommoncontrols в Sub Main до загрузки основной формы.

Код: Выделить всё

Public Type tagInitCommonControlsEx
   lngSize As Long
   lngICC As Long
End Type


Public Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean
Public Const ICC_USEREX_CLASSES = &H200
' INITCOMMONCONTROLSEX_TYPE dwICC-Konstanten
Public Const ICC_ANIMATE_CLASS = &H80 ' Animate-Klasse
Public Const ICC_BAR_CLASSES = &H4 ' StatusBar-, TrackBar- und Toolbar- Klassen
Public Const ICC_COOL_CLASSES = &H400 ' Rebar-Klasse
Public Const ICC_DATE_CLASSES = &H100 ' Date- und TimePicker-Klassen
Public Const ICC_HOTKEY_CLASS = &H40 ' Hotkey-Klasse
Public Const ICC_INTERNET_CLASSES = &H800 ' IP-Adress-Klasse
Public Const ICC_LISTVIEW_CLASSES = &H1 ' Listview-Klasse
Public Const ICC_PAGESCROLLER_CLASS = &H1000 ' Page-Klasse
Public Const ICC_PROGRESS_CLASS = &H20 ' ProgressBar-Klasse
Public Const ICC_TAB_CLASSES = &H8 ' Tab- und Tooltip-Klassen
Public Const ICC_TREEVIEW_CLASSES = &H2 ' Treeview- und Tooltip-Klassen
Public Const ICC_UPDOWN_CLASS = &H10 ' Up-Down-Klasse
Public Const ICC_WIN95_CLASSES = &HFF


Sub Main()

On Error Resume Next
Dim iccex As tagInitCommonControlsEx
With iccex
    .lngSize = LenB(iccex)
    .lngICC = ICC_USEREX_CLASSES
   


End With

Call InitCommonControlsEx(iccex)


On Error GoTo 0

Form1.Show
End Sub

[$Yastrebov$]

или хотя бы добавить манифест к *.exe файлу и вызвать функцию Initcommoncontrols в Sub Main до загрузки основной формы

Alexanbar, так манифест есть. Проблема не в том, как поменять BackColor у TabStrip (это сделает за меня стиль XP), а в том, чтобы Frames и PictureBoxes меняли цвет вслед за TabStrip на такой же или максимально приблеженный.

Как показано у меня во вложении (картинка), то в случае, когда Frame1 - серый при стиле XP, он не сочетается с белым фоном TabStrip. Если же Frame1 сделать белым, то при стиле Win2000, TabStrip останется серым, а Frame на нем будет белым.

[Alexanbar]

Тогда нужно отрисовывать тему "Tab" на Picturebox и вручную отрисовывать Frame с учётом того, на чём он сидит.
Еще раз: у Tabstrip НЕТ ЦВЕТА при использовании тем XP

[Lumen]

А не проще Frame'y BackColor = vbWhite на ХР и &H8000000F& на 2000? И PictureBox'y то же самое задать...

Вроде похоже получается...

[Alexanbar]

Проще, но цвет фрейма и picturebox будет отличаться от tabstrip.

[Хакер]

Lumen
Не проще - на теме SuperPuperFisherman фон таба будет не монотонно белым, а с изображением рыбок. И что тогда?

[Alexanbar]

Lumen
Не проще - на теме SuperPuperFisherman фон таба будет не монотонно белым, а с изображением рыбок. И что тогда?

Вот и я об этом толкую. Не белый он. Цвет меняется в зависимости от координаты точки.

[BV]

Эм. А EnableThemeDialogTexture уже не в моде, что-ли?

[$Yastrebov$]

Эм. А EnableThemeDialogTexture уже не в моде, что-ли?

BV, спасибо. Похоже на правду...
Пример применения имеется?!

[BV]

Пример применения имеется?!

Функция элементарная, какой еще пример?
Просто при создании окна-страницы делай:

Код: Выделить всё

EnableThemeDialogTexture(hWndPage, ETDT_ENABLETAB);

Правда, я не уверен, будет ли это работать для элементов управления VB.

[$Yastrebov$]

Пример применения имеется?!

Функция элементарная, какой еще пример?
Просто при создании окна-страницы делай:

Код: Выделить всё

EnableThemeDialogTexture(hWndPage, ETDT_ENABLETAB);

Правда, я не уверен, будет ли это работать для элементов управления VB.

Код: Выделить всё

Private Declare Function EnableThemeDialogTexture Lib "uxtheme.dll" (ByVal hWnd As Long, ByVal dwFlags As Long) As Long

Call EnableThemeDialogTexture(Form1.Picture1.hWnd, ETDT_ENABLE)

Вот это не работает!!!

[Хакер]

$Yastrebov$
ETDT_ENABLE определена? Где?

[$Yastrebov$]

$Yastrebov$
ETDT_ENABLE определена? Где?

Да, в General
Private Const ETDT_ENABLE = &H2
Private Const ETDT_ENABLETAB = &H6

Только ничего не выходит(((( Как же его заставить?!

[Alexanbar]

Пример применения имеется?!

Функция элементарная, какой еще пример?
Просто при создании окна-страницы делай:

Код: Выделить всё

EnableThemeDialogTexture(hWndPage, ETDT_ENABLETAB);

Правда, я не уверен, будет ли это работать для элементов управления VB.

Запросто может не работать. Listview из комплекта vb6 много чего игнорирует.

[$Yastrebov$]

Значит, про EnableThemeDialogTexture стоит забыть.

Обыскав И-нет вдоль и поперек, я наткнулся лишь на один рабочий пример, в котором Page от TabStrip полность принимает его стиль на Win2000/XP/Vista. Только код невероятно громоздкий. Может его можно как-то упростить?

Пример, во вложении.