Лог ошибок и лог действий - VB
Формулировка задачи:
Я специально делаю программу с ошибкой. И хочу сделать лог действий и лог ошибок чтобы знать что произошло и при каких обстоятельствах программа не сработала.
Решение задачи: «Лог ошибок и лог действий»
textual
Листинг программы
Private Sub Command1_Click()
On Error GoTo Err_handler
Command1.Picture = LoadPicture("InvalidFile")
Exit Sub
Err_handler:
If Err.Number <> 0 Then
errLogger Err.Number, Err.Description, "Command1_Click"
Err.Clear
Resume Next
End If
End Sub