- Код: Выделить всё
try{App.Run()}
catch()...
Можно ли достичь такого эффека в ВБ ?
Пробовал в класее звпустить свой цикл обработки сообщений
- Код: Выделить всё
Public Function Run() As Long
Dim xmsg As MSG
Dim bRet As Long
On Error GoTo ErrH
bRet = GetMessage(xmsg, 0, 0, 0)
Do While ((bRet))
If bRet = -1 Then
MsgBox "fatal error -1", vbCritical
Else
TranslateMessage xmsg
DispatchMessage xmsg
End If
bRet = GetMessage(xmsg, 0, 0, 0)
Loop
GoTo FnEx
ErrH:
MsgBox "Error encounted " + vbCrLf + CStr(Err.Number) + " " + Err.Description
Resume Next
FnEx:
End Function
Не получаю нужного эффекта..Подскажите. посоветуйте. пожалуйста.
)