VBNet - Форум - Решение XP-STYLE!!!

Вопрос: Решение XP-STYLE!!! Добавлено: 10.11.03 14:15

Автор вопроса: DeXTeR

Я знаю как заставить программу выглядеть "родной" в XP без использования файла .Manifest. Всё очень просто. Открываем в программе Restorator файл UXTHEME.DLL или другой, в котором есть раздел 24. Сохраняем весь раздел в виде файла .RES и добавляем его в проект и любуемся.

Ответить

Ответы Всего ответов: 9

Номер ответа: 1 Автор ответа: shuffle Администратор ICQ: 201502381 Вопросов: 15 Ответов: 737	Профиль \| \| #1	Добавлено: 10.11.03 15:44
	На VB 6 это просто... Я сам такое делал... Вот ктобы сказал мне как в VB .NET такую штуку проделать, с ресурсом... Ответить

Номер ответа: 2
Автор ответа:

PCNetWork

ICQ: 277644901

Вопросов: 8
Ответов: 28

Профиль | | #2

Добавлено: 10.11.03 18:40

Добавил в проект и.....и ничего не произошло! Наверно надо кодом связать этот .RES с видом окон, кнопок и т.д. А КАК ЭТО СДЕЛАТЬ....точнее что именно писать то ??!

Ответить

Номер ответа: 3
Автор ответа:

PCNetWork

ICQ: 277644901

Вопросов: 8
Ответов: 28

Профиль | | #3

Добавлено: 10.11.03 19:08

Откомпилировав проект с файлом ресурсов, программа не запускается (точнее запускается но вырубается секунды через 0,3)...

?!?!?!??

Ответить

Номер ответа: 4 Автор ответа: shuffle Администратор ICQ: 201502381 Вопросов: 15 Ответов: 737	Профиль \| \| #4	Добавлено: 10.11.03 23:05
	Надо ещё в коде загрузки проги (до загрузки самой формы) вызывать API: InitCommonControls Ответить

Номер ответа: 5
Автор ответа:

Last_Santa

ICQ: 200700724

Вопросов: 38
Ответов: 329

Web-сайт: localhost
Профиль | | #5

Добавлено: 11.11.03 03:43

------код модуля-------

Option Explicit

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

Public Sub Main()

   ' we need to call InitCommonControls before we
   ' can use XP visual styles. Here I'm using
   ' InitCommonControlsEx, which is the extended
   ' version provided in v4.72 upwards (you need
   ' v6.00 or higher to get XP styles)
   On Error Resume Next
   ' this will fail if Comctl not available
   ' - unlikely now though!
   Dim iccex As tagInitCommonControlsEx
   With iccex
       .lngSize = LenB(iccex)
       .lngICC = ICC_USEREX_CLASSES
   End With
   InitCommonControlsEx iccex

   ' now start the application
   On Error GoTo 0
   frmTestControls.Show

End Sub

Ответить

Номер ответа: 6
Автор ответа:

Last_Santa

ICQ: 200700724

Вопросов: 38
Ответов: 329

Web-сайт: localhost
Профиль | | #6

Добавлено: 11.11.03 03:47

P.S. Manifest в рессурсах этим не отменяется

Ответить

Номер ответа: 7 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #7	Добавлено: 11.11.03 09:11
	Вот здесь я положил add-in для VS .NET... Качал давно с microsoft.com. Сам не пробовал. http://vbnet.ru/XPThemeSupport.exe Ответить