Не выходить из Sub Main'а...

[Eduard]

У меня в проге нету форм вообще, и есть один Sub Main (ну ещё фун-ци прочии). И когда все действия в Main выполняють, и процедура заканчиваеться, то нетрудно догодаться, с нейже и вся программа авершаеться... А мне нада чтобы по завершению Sub Main программа не завершалась...
Конечно я пробовал следущее, самое простое

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


Sub Main
. . .
. . .
. . .
Do
  DoEvents
Loop
End Sub


Но зато после этого ЦП спокойным не бывает вообще. Чё делать, мне не нада чтоб программа завершалась...

[tyomitch]

Что делает программа?

[Eduard]

Ну ладно: она просто запускает API таймер, который потом выполняет кое-какие действия...

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

Sub Main

lElapseTime = ((1000& * 60&) * 60&) * 8&
SetTimer 0&, 0&, lElapseTime, AddressOf TimerProc
Do: DoEvents
Loop
End Sub


[tyomitch]

Вызывай WaitMessage внутри (а лучше вместо) цикла.

[Eduard]

Фэнкс... Конечно, лучше стало... но так вообще все приложение замерает намертво... конечно процедура API таймера все ровно вызываться будет... а есть такие способы... чтобы приложение не "Не Отвечало" (как пишет диспечер задач)

[Eduard]

...странно когда в VB делаю только WaitMessage он его минует все ровно, когда в цикле - вообще VB вылетает напрочь, а в приложении тоже, просто один WaitMessage проходит как ни в чём не бывает, а в цикле всё ОК даже ЦП на нуле стоит!

[tyomitch]

...странно когда в VB делаю только WaitMessage он его минует все ровно, когда в цикле - вообще VB вылетает напрочь, а в приложении тоже, просто один WaitMessage проходит как ни в чём не бывает, а в цикле всё ОК даже ЦП на нуле стоит!

Ты DoEvents-то после WaitMessage оставил, или вместе с циклом выбросил?
Надо оставить. WaitMessage ждёт прихода сообщения, а DoEvents его обрабатывает.

[Mikle]

Eduard
А не проще сделать форму с
Visible=False
ShowInTaskbar=False
и повесить на ней обычный таймер вместо API?

[Alexander N. Samarin]

Форма ест место

[Eduard]

Ты DoEvents-то после WaitMessage оставил, или вместе с циклом выбросил?
Надо оставить. WaitMessage ждёт прихода сообщения, а DoEvents его обрабатывает.

Ничё если я DoEvents поставил перед WaitMessage и всё это в цикле.... работает вроде всё как нада
tyomitch ты просто молодец!