В процессе тестирования пробных версий добровольными бетта-тестерами обычно возникают ошибки. Хотелось бы знать, какие точно ошибки возникают?
Создание файла регистрации ошибок.
Ситуация такова - в процессе тестирования пробных версий добровольными бетта-тестерами обычно возникают ошибки. Хотелось бы знать, какие точно ошибки возникают? Тогда этот код для вас. Он позволяет сохранить описание ошибки в отдельном файле в каталоге с программой. Просто вставьте следующий код в вашу форму: 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 файлы для анализа ошибок. Удачи в программировании!