Касательно: _=_Контролирование ошибок_=_

[ANDLL]

Учитывая, что Amed опять поспешил показать всем что он модератор, и закрыл тему http://bbs.vbstreets.ru/viewtopic.php?t=25811 (вероятно, так и не поняв суть обсуждаемого вопроса), я создам новую тему с продолжением.

Я не умею читать мысли г-на Smith68, но я умею читать топики. Из написанного, я предполагаю, что г-н Smith68 интересовался, как сделать ГЛОБАЛЬНЫЙ перехчватчик ошибок. Т.е. такой, каторый бы срабатывал бы в любом месте программы, даже там, где нету On error statement. Если г-н Smith68 имел ввиду не это, извините.

Однако, тема, кажеться, заслуживает некоторого внимания. Хотелось бы узнать, какие путь для решения подобного вопроса существуют? Есть ли в msvbvm какаято функция, отвечающая, за Error handling. И что если эту функцию как-то перехватить?
Откровенно говоря, подобная ФИЧА была бы весьма кстати... иногда

[Smith68]

ANDLL, ну ты завернул...

Я человек совершенно не склонный к гуманитарным наукам. И совершенно не умею писать сочинения. Так что за неясность изложения своего вопроса я прошу прощения.

З.Ы. ANDLL, вы совершенно верно изложили суть моего вопроса.

Так же хотелось добавить: у меня в одном месте программы (при нажатии кнопки) иногда выходит сообщение с кодом "40006" и мне хотелось, чтобы за место рантайма выскакивало более дружественное сообщение.

Но с помощью глобального перехватчика ошибок тоже можно решить эту проблему.

[vvs_adm]

Вообще-то я бы тоже ту тему закрыл Потому как на вопрос ответили полностью аж три раза подряд По-моему вполне достаточно. И никакого намека на глобальный перехватчик ошибок я там не увидел. Что автор темы и подтвердил

у меня в одном месте программы (при нажатии кнопки) иногда выходит сообщение с кодом "40006" и мне хотелось, чтобы за место рантайма выскакивало более дружественное сообщение.

[ANDLL]

Короче, суть моего вопроса ясна? Может на него то же кто-то ответил?

[AjaxVS]

Насчет глобальности, помниться, как-то обсуждали уже.. Тогда остановились на варианте - во все фунцкии влепить On Error Goto ErrH с последующим вызовом функции обработки ошибки.

Единственный вопрос, на который не нашлось консолидированного ответа - как это лучше сделать.. Я предложил написать программу, которая изменяла бы текст программы, вставляя после "Funсtion..." и "Sub..." строку "On Error...", ну и соответственно - перед "End Function.." и "End Sub" вставляла бы нужный код обработчика.. Но т.к. ловить глобально ошибки - дело редко нужное, программа так и не была написана..

В общем, обсуждать вроде больше нечего..

[alibek]

Можно разместить один общий обработчик ошибок в Sub Main. Только в этому случае налагаются определенные требования к построению программы. ИМХО, оно того не стоит.

[tyomitch]

Можно разместить один общий обработчик ошибок в Sub Main.

Что, и ошибки в обработчиках событий он тоже отловит?

[vvs_adm]

To tyomitch

Можно разместить один общий обработчик ошибок в Sub Main. Только в этому случае налагаются определенные требования к построению программы. ИМХО, оно того не стоит.

Просто требования такие - больше в программе не должно быть никаких функций и процедур и обработчиков событий.

[alibek]

А как же.

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

Option Explicit

Sub MAIN()
On Error GoTo ErrorHandler
Test1
Test2
Exit Sub

ErrorHandler:
Debug.Print "MAIN -> Error #" & Err.Number & " - " & Err.Description
Resume Next
End Sub

Sub Test1()
On Error GoTo ErrorHandler
Dim A() As Long
A(1) = 1
Exit Sub

ErrorHandler:
Debug.Print "Test1 -> Error #" & Err.Number & " - " & Err.Description
Resume Next
End Sub

Sub Test2()
On Error GoTo ErrorHandler
Dim A() As Long
A(1) = 1
Exit Sub

ErrorHandler:
A(2) = 2
Debug.Print "Test2 -> Error #" & Err.Number & " - " & Err.Description
Resume Next
End Sub


vvs_adm, ошибаешься.

[VVitafresh]

Использую MZTools + HuntERR

Большего мне и не надо: вставка обработчика одним кликом (по шаблону), при этом автоматом можно подставлять имя процедуры/ф-ии. А HuntErr позволяет вывести или сохранить в файл отчет о непредвиденной ошибке (с указанием процедуры, где ошибка возникла).

[NIC]

Можно разместить один общий обработчик ошибок в Sub Main. Только в этому случае налагаются определенные требования к построению программы. ИМХО, оно того не стоит.

А что можно "ловить" ошибки "NO TRAP" (Извини за язык ассеблер)

[alibek]

NIC, а ты их можешь ловить из VB?

[NIC]

NIC, а ты их можешь ловить из VB?

Alibek В том и дело,что никак!!!

[NIC]

Может тогда писать прогу на Ассемблере.
Если будет ошибка - тогда повесит всю систему!!!

[alibek]

Alibek В том и дело,что никак!!!

Тогда к чему этот вопрос?
Ты где-нибудь увидел в моем коде ассемблерные вставки?
Через On Error можно отлавливать только те ошибки, которые отлавливаются VB в рантайме.

[NIC]

Может переписать библу MSVBVM60.dll что бы там небыло РУНТАЙМОВ

[Хакер]

(шёпотом) А ведь msvbvm делает MsgBox с ошибкой. Нужно найти это место и копать оттуда...

[ANDLL]

А ведь msvbvm делает MsgBox с ошибкой

Кажеться, это делает __vbaExceptHandler. Дальше что?

Может тогда писать прогу на Ассемблере.
Если будет ошибка - тогда повесит всю систему!!!

Вы о чем?

[tyomitch]

Ни в одном из (пяти) постов NIC-а в этом топике я не увидел смысла
При чём здесь "NO TRAP" и "язык ассеблер"?

[Хакер]

tyomitch
Я где 5-ый?