Суббота, 27.04.2024, 03:14
Приветствую Вас Гость | Регистрация | Вход
|
Отдел информационных технологий ГКБ №29 г.Новокузнецк |
|
|
Каталог статей
Создание файла регистрации ошибок.
Ситуация такова - в процессе тестирования пробных версий добровольными бетта-тестерами обычно возникают ошибки. Хотелось бы знать, какие точно ошибки возникают? Тогда этот код для вас. Он позволяет сохранить описание ошибки в отдельном файле в каталоге с программой. Просто вставьте следующий код в вашу форму:
Public Sub errLogger(ByVal lNum As Long, ByVal sDesc As String, ByVal sFrom As String)
Dim FileNum As Integer
FileNum = FreeFile
Open App.Path & "\Errors.log" For Append As FileNum
Write #FileNum, lNum, sDesc, sFrom, Now()
Close FileNum
End Sub
Далее я моделирую ошибку, в частности, пытаюсь считать несуществующий рисунок. Ошибка
возникает при нажатии на Command1. Но это вариант для проверки, а реально, просто в
процесс обработки ошибок включите строки после метки Err_handler:
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
Теперь ваши тестеры могут прислать вам Errogs.log файлы для анализа ошибок. Удачи в программировании!
Виталий.
Источник: http://www.hiprog.com |
| Категория: Полезные утилиты | Добавил: AdminGkb29 (01.04.2010)
|
| Просмотров: 833
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|
