Обработчик ошибок

[stalkerzero]

У меня возник вопрос, даже не по самому обработчику, а по возможностям его вывода на экран. Например я создал свою форму и там хочу отображать инфу о ошибке, а не через MsgBox. Но это не срабатывает. Как можно такое реализовать?

[Viper]

А какая разница куда и как вывести текст? Был бы текст, а уж вывести его всяко сможешь... Присвоить, например, свойству Text TextBox'а или Caption для Label. Или на худой конец напечатать на форме методом Print

[stalkerzero]

Вот как делал я, но не че не вышло, исправьте если есть ошибка:
Form1 код:

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

Private Sub Command1_Click()
Err.Raise 42
End Sub

Private Sub Form_Load()
On Error GoTo Handler
Exit Sub
Handler:
MyError
End Sub


модуль обработчика

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


Option Explicit

Function MyError()
frmErrorReport.Caption = frmErrorReport.Caption + " - " + Str(Err.number)
frmErrorReport.lblNameError.Caption = "This error created [ " + Err.Source + " ]"
frmErrorReport.lblErrorDescription.Caption = Err.Description
frmErrorReport.Show
End Function


[dr.MIG]

On Error GoTo Handler в процедуру нажатия кнопки

[Viper]

А что делает выше приведенный код вместо задуманного?

[dr.MIG]

Дык в его коде обработчик ошибок стоит на процедуре загрузки формы, в которой не происходит никаких ошибок. Ошиб ка то в процедуре нажатия кнопки, а в ней обработчика нет...

[Viper]

On Error GoTo Handler в процедуру нажатия кнопки

вот это верно, похоже была попытка сделать "глобальный" обработчик ошибок

Если уж делать глобальный обработчик, то его надо пихать в Sub Main

[stalkerzero]

dr.MIG прав на 100%
действительно в простом созданом проекте при добавлении 'On Error GoTo Handler в процедуру нажатия кнопки' все срабатывает, а в проете другом не хочет, но всеравно спасибо буду искать проблему дальше сам.

[stalkerzero]

Если уж делать глобальный обработчик, то его надо пихать в Sub Main

Попробовал не выходит . Может в sub main ошибка, код такой:

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



Option Explicit

Function myError()
frmErrorReport.Caption = frmErrorReport.Caption + " - " + Str(Err.Number)
frmErrorReport.lblNameError.Caption = "Error [ " + Err.Source + " ]"
frmErrorReport.lblErrorDescription.Caption = Err.Description
frmErrorReport.Show
End Function

Sub Main()
On Error GoTo Handler
Exit Sub
Handler:
myError
End Sub



form

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


Private Sub Command1_Click()
Err.Raise 42

End Sub


[Viper]

Дык, если пихать обработчик в Sub Main, то и весь код должен вызываться из нее же, то есть должно быть что-то типа этого%

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

Sub Main
On Error GoTo ErrHandler

Dim MainForm As New FMain
MainForm.Show
...

Exit Sub
ErrHandler:
Call Handler()
End Sub

[stalkerzero]

Спасибо за помощь буду пробовать