Перехват ошибки

[net_goose]

Подскажите пожалуйста можно ли узнать какая процедура вызывает ошибку:

private sub Primer
on error goto Error_Label
...................
...................
exit
Error_Label: msgbox err.number & " " & err.decription & и имя процедуры (в данном случае Primer) можно ли автоматически получить имя процедуры а не писать msgbox err.number & " " & err.decription & "Процедура: Primer"
end sub

[MIT]

Нельзя.

[alibek]

Но можно использовать add-on (или написать их самому), которые сами расставят обработчики ошибок с указанием метаинформации.

[Хакер]

Более того, даже так, как написал автор, делать нельзя.

[Antonariy]

Более того, даже так, как написал автор, делать нельзя.

В каком смысле? Если не считать синтаксиса?

[Хакер]

В том смысле, что сколько-нибудь значимо место, где возникла ошибка, а не где она была поймана и обработана (и выведено сообщение).

Поэтому при вывода надо указывать Err.Source, а при возникновении — указывать источник. Вручную, да.

[net_goose]

Но можно использовать add-on (или написать их самому), которые сами расставят обработчики ошибок с указанием метаинформации.

Подскажите пожалуйста что такое add-on, и как "он" работает

[Хакер]

http://ru.wikipedia.org/wiki/Add-on

________

<== 10000

[Antonariy]

В том смысле, что сколько-нибудь значимо место, где возникла ошибка, а не где она была поймана и обработана (и выведено сообщение).

Поэтому при вывода надо указывать Err.Source, а при возникновении — указывать источник. Вручную, да.

К сожалению VB6 не обладает конструкцией Try/Catch, чтобы приглядывать за разными опасными местами, а злоупотребления простынями из

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

on error resume next
if err.number then
end if
on error goto

вызывают мигрень

[Хакер]

Какая разница обладает или не обладает?

Дерево вызова может иметь сотню процедур, в каждой из которых может возникнуть ошибка. Тем не менее, программа будет всё-время сообщать, что ошибка произошла внутри «Primer», хотя ошибка была где-то в один из ста тех процедур, просто вызванных из Primer.

Вот о чём речь.

[net_goose]

Я просто к чему задал эту тему, ну у меня на форме допустим 5 таймеров через n-ый промежуток они исполняют код пусть простой без вызова дополнительных процедур, ну на пример обращение к БД для проверки пришло ли сообщение и т.д. так вот я ошибся в коде одного из этих таймеров но во всех прописал on error... так вот потом я не мог поймать в каком из них происходит ошибка. пришлось изощрятся и писать msgbox err.number & " " & err.description & "Процедура Timer1' и т.п.
По этому и встал вопрос автоматизации перехвата, жаль что действительно нет try except как в делфях.!

Все равно спасибо за ответы.

[SLIM]

К сожалению VB6 не обладает конструкцией Try/Catch, чтобы приглядывать за разными опасными местами, а злоупотребления простынями из

Но, по-моему, имеет обертку над ним.

Вообще Хакер прав, как всегда. Нужно всегда ставить Source равным тому, где возникла ошибка.
Я таким образом пишу десятки функций, и устанавливая Source после например метки, на которую перейдем после go to. Источником ставлю как правило имя функции, чтобы знать где искать, но можно и другую информацию.


З.Ы. Вива Хакер...