Не работает exe-файл

[Ser-Robotiaga]

Компилирую просто File/Make ...exe. Экзешник создается, но при запуске грузит процессор на 50% и никаких видимых действий не происходит. А в среде VB6 всё работает нормально. В чем может быть причина? Пока я только переинсталировал VB6 и sp6 поверх старого, это не помогло.

[Хакер]

Особенность самого кода или заражение вирусом выходного файла.

[Ser-Robotiaga]

Антивирусник у меня стоит лицензионный.Хотя наблюдается такой глюк как самопроизвольное перескакивание курсора при наборе текста.Не знаю вирус или лаг в системе.
На счет особенности кода. Тоже так подозревал, но не был уверен, что так может быть, что в VB работает, а exe - нет. Спасибо, Хакер, за подсказку. Подумаю где может быть причина. А может кто сталкивался с таким, хоть примерно знать где копать? Может элемент управления глючный какой есть, или еще что?

[Ser-Robotiaga]

Еще раз спасибо. Нашел в чем проблема. Вызов пользовательской процедуры из процедуры Form_Load. Очевидно форма не успевает загрузиться. После переноса вызова этой процедуры в Form_Activate заработало и в exe-режиме.

[Хакер]

А ты отдаёшь себе отчёт, когда будет вызываться Activate?

[Ser-Robotiaga]

Activate происходит при отображении формы, после Form_Load. А что, есть более подходящее событие? По моему Activate самое то. Процедура которую я вызываю, обрабатывает доступность кнопок на форме.

[Хакер]

Activate происходит при активации окна. Сюда входит случаи, когда, например, ты разворачиваешь свёрнутое окно. Или просто переходишь от одного окна твоего приложения к другому. В общем, Activete происходит сколько угодно раз.

[Ser-Robotiaga]

Т.е, как я понял, надо осторожно. Если б мне надо было вызвать процедуру один раз при пуске программы, то этот номер мог не прокатить.

[iGrok]

Ну он и так, в общем-то, не особо катит. Ты вызываешь лишние действия при разворачивании окна.
Это, конечно, не критично, но плохо.

[Денис]

Если твоя программа при запуске делает какую-то долгую напряженную работу, то юзай splash-screen. Он для того и предназначен. В нем уже можно в Form_Activate написать что-то типа этого:

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

static bFirstActivate as Boolean
if bFirstActivate then

    bFirstActivate = True 'Так мы обезопасим себя на случай повторного вызова этой процедуры.

    dim mForm as MainForm
    Set mForm = New MainForm

    Call MyAppInitAndLoadSettingsFunction() 'Естественно, эта функция должна быть либо в модуле splash-screen'а либо в каком-либо общем модуле. Или даже классе.

    load mForm
    mForm.Show

    unload me 'Тоесть, когда все сделано и загружено, сплэш самовыгружается.

end if


А еще на сплэше можно поместить красивый прогрессбар и (если есть возможность получать прогресс из той длинной функции) отображать прогресс загрузки.

[Ser-Robotiaga]

Ну он и так, в общем-то, не особо катит. Ты вызываешь лишние действия при разворачивании окна.
Это, конечно, не критично, но плохо.

Принял вашу конструктивную критику. Проблему решил по-другому. Перед вызовом процедуры обновления кнопок добавил строчку Me.Show. Спасибо Денису. На это меня натолкнул его код. А вообще надо будет попробовать воплотить его идею.

[Денис]

Ой, у меня там ошибка:
if bFirstActivate then
надо заменить на
if NOT bFirstActivate then

[DirectXManiac]

Было похожее, но не только в exe. Попробуй в событии Form_Load прописать в конце Me.Show