Окно с сообщение об ошибке.

[Stalker1986]

Подскажите чайнику, как можно реализовать окно с сообщениями об ошибке при действии, которое недопустимо?
И как организовать систему описания ошибок?

[Viper]

MsgBox!

[Денис]

Рискну предположить, что Viper неправильно истолковал терминологию новичка. Скорее всего, он знает про MsgBox, но не знает конструкцию:

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

sub example()
on error goto L1                          'Обработчик ошибок (включаем и перенаправляем ошибки в метку L1)
   
   B = 0
   A = 10/B 'Делим на ноль

on error goto 0                           'Отключаем обработчик ошибок
exit sub

L1: 'Код обработчика ошибок идет отсюда
   msgbox err.description                 'Очень интересен объект err изучи его по F2
   
   B=2
   resume                                 'Пример возврата в процедуру.
end sub

[VBTerminator]

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

...on error goto 0                           'Отключаем обработчик ошибок...

А это зачем?

[iGrok]

А это зачем?

А это после "On error resume next" обратно включается стандартный обработчик.
Игнорировать ВСЕ ошибки, которые могут встретиться в коде, мягко говоря, вредно.

Впрочем, в его необходимости непосредственно перед Exit Sub я как-то сомневаюсь..

[alibek]

А это зачем?

Для стиля.

[VBTerminator]

Игнорировать ВСЕ ошибки, которые могут встретиться в коде, мягко говоря, вредно.

Согласен, но формируемое программистом окно MsgBox с описанием необработанной ошибки как-то привлекательнее и понятнее юзеру, чем стандартное окно об ошибке VB.

Для стиля.

В смысле?

[Денис]

Ни для какого не "для стиля"! А для порядка. Код должен быть оформлен красиво и в нем должна невооруженным взглядом различаться логика языка. Бейсик позволяет отбрасывать многие элементы логики строго типизированных языков (это результат тяжелой наследственности) но это не значит, что надо пользоваться этими сомнительными преимуществами, иначе через полгода-год сам собственный код не поймешь.
Поэтому я, всегда, если делаю on error goto {Label} тотчас же делаю on error goto 0 даже если на первый взгляд смысла в этом нет, потому что следом идет exit sub. Например так же я всегда пишу полные блоки If ... End If и т.п. не забываю про отступы и стараюсь при нахождении повторов кода сразу же выносить их в отдельные функции.
Такой дисциплинированный подход к написанию кода позволяет до определенной степени даже комментариями не пользоваться, потому что код — самодокументируем.

Извиняюсь за поздний ответ.

[VBTerminator]

...тотчас же делаю on error goto 0

Строка всё равно лишняя, метка обработчика ошибок бросается в глаза сразу именно из-за нулевого отступа. Зато засоряет прогу ненужными действиями.

[iGrok]

...тотчас же делаю on error goto 0

Строка всё равно лишняя, метка обработчика ошибок бросается в глаза сразу именно из-за нулевого отступа. Зато засоряет прогу ненужными действиями.

Не лишняя. За счёт нулевого отступа сразу виден блок, в котором отключена или перехвачена обработка ошибок.
Насчёт ненужности действия согласен. Но компилятор это всё равно приведёт в порядок, а так это действительно вопрос стиля.
Как и закрытие хендлов, подключений, уничтожение объектов перед "End".

[SLIM]

Конечно Goto...рулит, но я вот предпочитаю допустим в функции еще и возвращать код ошибки.
Так можно выявить конкретные ошибки из общей кучи. При определенном старании можно выловить все мыслимые ошибки и иметь их код (ну наш внутренний). Правда это пригодно только для функций и процедур. Плюс ко всему даже если возникла ошибка, которую я не предвидел, у меня в любом случае вернется ее код ("непредвиденная"....) но процедура или функция закончит свое действие а не ответит молчанием. Т.е. я вызвал ф-ю, ф-я выполнилась, вернула код ошибки, я обрабатываю код ошибки после той строки, в которой вызывалась функция, и если код ошибки не нулевой, то можно пользователю крикнуть\записать лог\вырубить программу\......\ тут уже по желанию.

Ну а по поводу обработчиков событий и т.д. (ну например Form Load), тут конечно только рулит Goto. Но вот у меня почему-то получается в этих обработчиках настолько мало кода (я имею в виду кода принадлежащего только обработчику)...все организованно в процедуры и функции, поэтому я всегда практически обрабатываю ошибки по кодам, которые сам придумал.....к тому же есть возможность не придумывать на каждую ошибку константу. Можно и плотнее упаковать

[Денис]

обрабатываю ошибки по кодам, которые сам придумал...

Погоди-погоди! Я ж надеюсь, ты знаешь про объект Err?

[SLIM]

Погоди-погоди! Я ж надеюсь, ты знаешь про объект Err?

Знаю. Но я вот не об этом.
Есть ошибки, которые объект Err даст не с тем понятием которое я хотел. Как бы я локализую ошибку именно в своей программе. А не стандартно обрабатываю с помощью объекта.
Надеюсь смог передать мысль