FileListBox не работает в скомпилированном EXE

[jangle]

Я похоже схожу с ума. Вот этот код запускается из под IDE, все работает нормально.
Но если его скомпилировать в EXE, форма просто не отображается, событие Form_Activate не происходит и приложение сразу закрывается.
Это что за баг такой?

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

Private Sub Form_Activate()

msgbox "Активация формы"

Dim file1 As FileListBox
Set file1 = Me.Controls.Add("VB.FileListBox", "FileListBox")

End Sub

[jangle]

Наконец понял в чем проблема, не буду удалять топик, может кому пригодится.
Код

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

Set file1 = Me.Controls.Add("VB.FileListBox", "FileListBox")

обламывается в скомпилированном EXE если в одной папке с экзешником лежит файл манифеста.

MyApplication.exe
MyApplication.exe.manifest

Манифест который вызывает этот баг

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

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
   version="1.0.0.0"
   processorArchitecture="X86"
   name="MyApplication"
   type="win32"
/>
<description>Notes information manager</description>
<dependency>
   <dependentAssembly>
     <assemblyIdentity
       type="win32"
       name="Microsoft.Windows.Common-Controls"
       version="6.0.0.0"
       processorArchitecture="X86"
       publicKeyToken="6595b64144ccf1df"
       language="*"
     />
   </dependentAssembly>
</dependency>
</assembly>


ХЗ почему это происходит, но если удалить или переименовать файл манифеста, в экзешнике все работает нормально

[Хакер]

А библиотека-то подгружается насильно? В смысле: ты это сделал точно?

[jangle]

А библиотека-то подгружается насильно? В смысле: ты это сделал точно?

Когда файл манифеста подключен? Не знаю. Только без него все работает нормально.

[Хакер]

Есть такая функция InitCommonControls. Многие удивляются, что она ничего не делает. Она действительно ничего не делает (состоит из одной инструкции retn).

Суть этой функции для Си(++) программистов в том, что с тех пор, как они поставили её вызов, функция попала в таблицу импорта, и теперь загрузчик в самый момент загрузки (до вызова WinMain) уже разрулит SxS-случай. Так что сишники её могут даже не вызвать на самом деле, достаточно наличия импорта.

К VB-шникам это относится в той же степени, если они импортируют эту функцию через TLB. Если они «импортируют» её через Declare, то функция не попадает в стандартную таблицу импорта, и тогда функцию придётся вызвать (но в самом начале приложения), чтобы это библиотека (comctl32.dll) подгрузилась и SxS-менеджер мог подгрузить «левую» библиотеку, вместо стандартной.

Иными словами, роль этой функции очень специфична — насильно заставить загрузить правильный образ comctl32.dll

Ты позаботился об этом?