несколько меток ошибок в одном событии

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
azg
Начинающий
Начинающий
 
Сообщения: 18
Зарегистрирован: 29.11.2006 (Ср) 19:30

несколько меток ошибок в одном событии

Сообщение azg » 20.10.2007 (Сб) 13:10

то есть вот так:
on error goto givi
kod........
.........
givi:
.........
........
on error goto gaga
..............
............
gaga:
работает такая ересь или нет?
он еррор работает на всё событие или до конца метки или до нового он иррора?

dr.MIG
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1441
Зарегистрирован: 18.12.2004 (Сб) 9:53
Откуда: г.Ярославль

Сообщение dr.MIG » 20.10.2007 (Сб) 14:41

А набрать этот код и посмотреть на практике результат работы? :)
Salus populi suprema lex

SSecurity
Служба безопасности
Аватара пользователя
 
Сообщения: 1283
Зарегистрирован: 19.08.2003 (Вт) 1:11
Откуда: Россия, Мурманск

Сообщение SSecurity » 20.10.2007 (Сб) 16:25

Нет не будет работать ... потому как после еррора ...
тебе надо приянть решения по устранению ошибки.... но вот так работать будет

Код: Выделить всё
  On Error GoTo givi
  a = a / 0
  On Error GoTo gaga
  a = a / 0
 
  Exit Sub
givi:
  Err.Clear
  Debug.Print "ERR.Givi detected"
  Resume Next
 
gaga:
  Err.Clear
  Debug.Print "ERR.Gaga detected"
  Resume Next
Программист - это маленький Бог, а все его ошибки - это самостоятельные творения:)
Так задумано:)

azg
Начинающий
Начинающий
 
Сообщения: 18
Зарегистрирован: 29.11.2006 (Ср) 19:30

Сообщение azg » 20.10.2007 (Сб) 23:21

ошибку нельзя устранить ибо возникает при нажатии отмены в окне выбора файла сохранения.и проверка возникает несколько раз...
и что делает еrr.clear?

Yurich
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 675
Зарегистрирован: 05.03.2003 (Ср) 3:43
Откуда: DONBASS/Gorlovka

Сообщение Yurich » 21.10.2007 (Вс) 0:13

azg писал(а):ошибку нельзя устранить...

Ошибку нельзя устранить. Ее можно предусмотреть, потом обработать или игнорировать
Код: Выделить всё
On Error Resume Next
Последний раз редактировалось Yurich 21.10.2007 (Вс) 0:19, всего редактировалось 1 раз.
- Какой треугольник не подвластен законам геометрии?
- У которого все углы тупые!

SSecurity
Служба безопасности
Аватара пользователя
 
Сообщения: 1283
Зарегистрирован: 19.08.2003 (Вт) 1:11
Откуда: Россия, Мурманск

Сообщение SSecurity » 21.10.2007 (Вс) 0:19

Yurich писал(а):
azg писал(а):ошибку нельзя устранить...

Ошибку нельзя устранить. Ее можно предусмотреть и игнорировать
Код: Выделить всё
On Error Resume Next


И при этом в нужный момент проверять была ли ошибка или нет
Код: Выделить всё
IF ERR<>0 then 'начинаешь колбасить обработку ошибки
ERR.Clear 'отчистка всех найденых ошибок


С Уважением,
Сергей
Программист - это маленький Бог, а все его ошибки - это самостоятельные творения:)
Так задумано:)

Yurich
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 675
Зарегистрирован: 05.03.2003 (Ср) 3:43
Откуда: DONBASS/Gorlovka

Re: несколько меток ошибок в одном событии

Сообщение Yurich » 21.10.2007 (Вс) 0:39

azg писал(а):он еррор работает на всё событие или до конца метки или до нового он иррора?

On Error работает:
1. До конца обработки события - процедуры - функции.
2. До момента переобъявления внутри события - процедуры - функции.
- Какой треугольник не подвластен законам геометрии?
- У которого все углы тупые!

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 21.10.2007 (Вс) 11:32

Yurich
3. До On Error Goto 0
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 21.10.2007 (Вс) 12:02

Либо On Error Goto -1
Lasciate ogni speranza, voi ch'entrate.

Saturn.65
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 543
Зарегистрирован: 13.10.2006 (Пт) 18:46

Re: несколько меток ошибок в одном событии

Сообщение Saturn.65 » 21.10.2007 (Вс) 14:42

azg писал(а):то есть вот так:
on error goto givi
kod........
.........
givi:
.........
........
on error goto gaga
..............
............
gaga:
работает такая ересь или нет?
он еррор работает на всё событие или до конца метки или до нового он иррора?

У меня так работает.
Правда я индексировал по другому, но думаю без разницы:
Код: Выделить всё
on error goto gaga_1
..............
............
Exit Sub
gaga_1:

on error goto gaga_2
..............
............
Exit Sub
gaga_2:

Не забудь добавить Exit Sub, чтоб, если нет ошибки управление на обработчик ошибок не передовалось.


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 72

    TopList