Project.exe.MANIFEST

[A.A.Z.]

Народ, объясните, плиз, мне, ламеру, почему первый exe'шник работает, а второй - нет?!
Ну не могу я, блин, допереть!!! :evil:

Только, плиз, не смейтесь, если это смешно...

[hCORe]

Проинициализируй Common Controls в программе ЯВНО, с использованием Win32 API. Не знаю как у тебя, но у меня просто так программа xp-шные стили не использует

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

'создай новый модуль и
'поставь Sub Main как стартовый объект
Public Type TagInitCommonControlsEx
   dwSize As Long
   dwICC As Long
End Type
Public Declare Function InitCommonControlsEx Lib "comctl32.dll" (ICCEx As TagInitCommonControlsEx) As Long
Public Const ICC_USEREX_CLASSES As Long = &H200
Public Const ICC_WIN95_CLASSES = &HFF

Sub Main()
    Dim ICCEx As TagInitCommonControlsEx
    ICCEx.dwICC = ICC_USEREX_CLASSES
    ICCEx.dwSize = LenB(ICCEx)
    InitCommonControlsEx ICCEx
    'вместо frmSplash напиши имя загружаемой формы
    Load frmSplash
    frmSplash.Show
End Sub

[A.A.Z.]

2 hCORe -

Спа-си-бо!
Сам бы ни за что не додумался!

[A.A.Z.]

А почему тогда пример #1 работает?

[hCORe]

Всегда пожалуйста
А пример я нашел на сайте одного из членов форума, ZeroX'a, по-моему, его звали. Так что ему спасибо вдвойне

[hCORe]

Про пример №1: по-видимому, ты там используешь вперемешку контролы и шестой и пятой версии MS Win Common Controls.

У меня с пятой версией контролов и без такого кода работало (правда не все проги, а как-то избирательно ), наверное он как-то инициализирует библиотеку за нас

[A.A.Z.]

2 ZeroX -
Кстати, вопрос почти по теме:
Как сделать такой ПрогрессБар?

[GSerg]

Самому написать
Я, в принципе, писал создавание прогрессбара, думаю, нужно просто заменить в нём название класса окна. Где же оно... А, чёрт, дома. Если ещё нужно, то скину, как приду.

[GSerg]

Попробуй, у меня-то 98, так что не знаю, как будет выглядеть

[A.A.Z.]

Не пашет - ошибка интерфейса .