краткий наброс смысла:
есть к примеру vbp - внутри модуль и субкласс для окна
- Код: Выделить всё
Dim App_MessageLoop as boolean
Sub Main()
...
CreateWindow...
SubclassWindow...
...
if 0 then Хитрость_какаято else myMessageLoop
End Sub
Private Sub myMessageLoop()
App_MessageLoop = 1
Dim aMsg As MSG
Do While GetMessage(aMsg, 0, 0, 0) And App_MessageLoop
TranslateMessage aMsg: DispatchMessage aMsg
Loop
End Sub
Sub Хитрость_какаято() ' Здесь наверно неправильно да и фиг сним (не пользуюсь я этим)
Load Form1:Form1.Show:Form1.Visible=0 'а где нибудь в классе Unload Form1 чтобы сделать App Quit
.....
End Sub
Не открывая и не загружая форм можно ли заставить выполняться встроенный в vb6 MessageLoop?
