Manifest, UserControl, RoundForm = Ошибка!?

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
varzind
Начинающий
Начинающий
 
Сообщения: 4
Зарегистрирован: 07.05.2009 (Чт) 0:46

Manifest, UserControl, RoundForm = Ошибка!?

Сообщение varzind » 18.11.2009 (Ср) 21:05

Обнаружилась следующая ошибка в приложенном архиве имеются три скомпилированные примера.
1. Закругленная форма с UserControl и манифестом. Запускается нормально, манифест срабатывает, но после завершения работы выдает ошибку.
2. Форма без закругления с UserControl и манифестом. Запускается норамльно, манифест срабатывает и после выключения формы нет ошибок.
3. Форма аналогична первому примеру, но без UserControla. Запускается норамльно, манифест срабатывает и после выгрузки нет ошибок.
Вопрос такой, что может повлиять на ошибку при выгрузке, манифест или UserControl или закругление? Как быть если нужен сразу и UserControl и Manifest и форму закруглить? Хотя может это у меня только ошибка..?
Вложения
error.rar
Исходники для эксперемента + 3и программки для тестирования согласно пунктам топика)
(48.15 Кб) Скачиваний: 41

Antonariy
Повелитель Internet Explorer
Повелитель Internet Explorer
Аватара пользователя
 
Сообщения: 4824
Зарегистрирован: 28.04.2005 (Чт) 14:33
Откуда: Мимо проходил

Re: Manifest, UserControl, RoundForm = Ошибка!?

Сообщение Antonariy » 18.11.2009 (Ср) 23:31

Под семеркой этих глюков нет, но они хорошо известны и описаны. Решение:
Код: Выделить всё
Sub Main()
    InitCommonControls
    m_hModShell32 = LoadLibraryA("shell32.dll")
    Form1.Show
End Sub
Лучший способ понять что-то самому — объяснить это другому.


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, PetalBot и гости: 11

    TopList