Поразительная закономерность...

[lister]

Не знаю, может я и не сообщу ничего нового, но тем не менее...

Сегодня возился со своим UserControl, затем подключил его к тестовому проекту, добавил на форму этот контрол, кнопки, манифест в ресурсы...

Код формы:

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

Option Explicit

Private Declare Sub InitCommonControls Lib "comctl32.dll" ()

Private Sub Form_Initialize()
  InitCommonControls

End Sub


После компилляции запустил экзешник. Все контролы на форме были в стиле ХР. Закрыл программу и получил при закрытии ошибку: Память не может быть "read"

После этого удалил вызов InitCommonControls, запустил программу: стили ХР на месте, ошибок при закрытии не возникает...
Странно

Одним словом, если на форме находится UserControl - даже совершенно "чистый", без кода - вызов InitCommonControls и InitCommonControlsEx не нужен...

Может кто-нибудь прокомментирует? Я теряюсь в догадках...

[shady]

Память не может быть "read"

гдет-то я уже это видел на форуме...

[AntonGV]

В модуле

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

Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Declare Function LoadLibrary Lib "kernel32.dll" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long

Public Sub Main()
    InitCommonControls
    Call LoadLibrary("shell32.dll")
    'загрузка формы
    frmMain.Show
End Sub

[lister]

AntonGV, читай внимательнее

[Efiop]

lister, для чего ты делаешь инициализацию?

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

Private Sub Form_Initialize()
  InitCommonControls

End Sub


Чет я не врублюсь.

[lister]

lister, для чего ты делаешь инициализацию?

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

Private Sub Form_Initialize()
  InitCommonControls

End Sub


Чет я не врублюсь.

В поиск по InitCommonControls

[Efiop]

lister, в том же поиске пишут, может это поможет.

This function is obsolete. New applications should use the InitCommonControlsEx function

[lister]

Мдааа... Народ, вы вообще топик читаете перед тем как отвечать...

Efiop, я не прошу помощи, я прошу знающих людей прокомментировать ситуацию с UserControl.

См. выше...