Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Выполнение кода со следующей строки 
V
    Опции темы
kminas
Дата 7.2.2008, 10:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 240
Регистрация: 26.10.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: нет
В случае возникновения ошибки, оператор On Error Resume Next  продолжает выполнение программы со строки, следующей непосредственно за ошибочной.
А, в случае, когда нет ошибки, каким оператором можно продолжить выполнение кода со следующей строки?
PM MAIL   Вверх
ИгнатьевАлексей
Дата 7.2.2008, 10:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 369
Регистрация: 18.11.2005

Репутация: 2
Всего: 3
kminas,  
Цитата

А, в случае, когда нет ошибки, каким оператором можно продолжить выполнение кода со следующей строки? 


уточни, что ты хочешь   smile  .....когда ошибок нет выполнение программы и так идет построчно.  Пропустить строку надо какую то? 


--------------------
Vingrad - FOREVER !!! 

"Как вы яхту назовете - так она и поплывет!" 
 Капитан Врунгель 
PM MAIL   Вверх
kminas
Дата 7.2.2008, 10:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 240
Регистрация: 26.10.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: нет
Я хочу выяснить, например, правильное ли число ввел пользователь в TextBox и спрашиваю его об этом. Если ошибка, то он нажимает НЕТ и возвращается в TextBox, а если все правильно и пользователь нажал ДА,  программа должна идти дальше 

Это сообщение отредактировал(а) kminas - 7.2.2008, 10:24
PM MAIL   Вверх
ИгнатьевАлексей
Дата 7.2.2008, 10:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 369
Регистрация: 18.11.2005

Репутация: 2
Всего: 3
kminas, понял. 
Слушай, я бы не стал использовать тут обработчик ошибок On Error . Имхо, он предназначен для внештатных ситуаций при выполнении проги. 
У тебя совершенно четкая логика работы программы, поэтому эти вещи , о которых ты пишешь в предыдущем посте, прописываются самим.

Прошу не понять меня, что вообще не стоит использовать  On Error . Конечно он необходим в серьезной программе, но для других целей

Это сообщение отредактировал(а) ИгнатьевАлексей - 7.2.2008, 10:39


--------------------
Vingrad - FOREVER !!! 

"Как вы яхту назовете - так она и поплывет!" 
 Капитан Врунгель 
PM MAIL   Вверх
kminas
Дата 7.2.2008, 10:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 240
Регистрация: 26.10.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: нет
Да я его и не использую. Есть только метка GOTO, но я и ее не хочу. Я прошу указать оператор, с помощью которого можно перейти к следующей строке.
PM MAIL   Вверх
ИгнатьевАлексей
Дата 7.2.2008, 11:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 369
Регистрация: 18.11.2005

Репутация: 2
Всего: 3
kminas, 
Цитата

Есть только метка GOTO, но я и ее не хочу

и совершенно прав!

Используй IF или CASE.







--------------------
Vingrad - FOREVER !!! 

"Как вы яхту назовете - так она и поплывет!" 
 Капитан Врунгель 
PM MAIL   Вверх
kapbepucm
Дата 7.2.2008, 14:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 3
Всего: 12
Цитата(kminas @  7.2.2008,  10:20 Найти цитируемый пост)
Я хочу выяснить, например, правильное ли число ввел пользователь в TextBox и спрашиваю его об этом. Если ошибка, то он нажимает НЕТ и возвращается в TextBox, а если все правильно и пользователь нажал ДА,  программа должна идти дальше

Если без GOTO, то есть ещё вариант с циклом:
Код
Public Sub Test()
  '...
  Dim Chislo As String
  Do
    Chislo = InputBox("Введи число!")
    If MsgBox("Ты ввел """ & Chislo & """. A ты уверен, что это правильно?", vbOKCancel) = vbOK Then Exit Do
  Loop
  '...
End Sub
или что нибудь вроде того
Код
Public Sub Test()
  '...
  Dim Chislo As String
  Do
    Chislo = InputBox("Введи число!")
  Loop Until (MsgBox("Ты ввел """ & Chislo & """. A ты уверен, что это правильно?", vbOKCancel) = vbOK)
  '...
End Sub


Это сообщение отредактировал(а) kapbepucm - 7.2.2008, 14:26


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
kminas
Дата 7.2.2008, 14:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 240
Регистрация: 26.10.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: нет
kapbepucm, это довольно сложно у меня уже есть код типа этого, 
Код

dim Reslt as integer 

Reslt = msgbox("Да", vbYesNo) 

if reslt = vbYes then 
   'Делаем что-то 
else 
   'Делаем нечто 
end if

но я не знал как из него выйти при положительном ответе. Теперь дошло. Надо ничего не делать.
К примеру 
Код

if reslt = vbYes then 
else 
 'Взвращаемся в TextBox, очищаем его и т.д.  
end if
 и все! А можно вообще без else. Правда я не знаю, какой вариант приветствуется, как лучший.

Это сообщение отредактировал(а) kminas - 7.2.2008, 14:42
PM MAIL   Вверх
Akina
Дата 7.2.2008, 14:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Цитата(kminas @  7.2.2008,  15:38 Найти цитируемый пост)
if reslt = vbYes then 
else 
 'Взвращаемся в TextBox, очищаем его и т.д.  
end if

вообще-то 
Код

if Not (reslt = vbYes) then 
 'Взвращаемся в TextBox, очищаем его и т.д.  
end if
Код

if (reslt <> vbYes) then 
 'Взвращаемся в TextBox, очищаем его и т.д.  
end if



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
kminas
Дата 7.2.2008, 14:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 240
Регистрация: 26.10.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: нет
Спасибо!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1026 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.