Любая тема в приложении

[Lamer_Pavel]

У меня есть файл *.msstyles или *.theme(файлы тем).Можно ли их применить к моему приложению(написанному на VB6,VB.net или VB8),но не ко всей винде сразу?

[Lumen]

Конечно можно.
За работу со стилями XP отвечают АПИ функции, импортируемые из uxtheme.dll. В частности тебе понадобятся функции OpenThemeData - для загрузки стиля и SetWindowTheme. Поищи на форуме вроде было подобное.

[Lamer_Pavel]

Я нашел:

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

Public Declare Function SetWindowTheme Lib "uxtheme.dll" (ByVal hwnd As Long, ByVal pszSubAppName As String, ByVal pszSubIdList As String) As Long
Public Declare Function OpenThemeData Lib "uxtheme" ( _
   ByVal hwnd As Long, _
   ByVal pszClassList As Long) As Long


Только как мне загрузить файл с темой при помощи них?
Как я не пытался,появляется мое окно со стилем Win98

[Antonariy]

Стиль должен быть применен к системе, чтобы была возможность с ним работать через OpenThemeData. См. в кирпичах универсальный DropDown, там это реализовано. Полный броузер стиля находится на vbaccelerator.com.