Выход из внешней процедуры

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

Выход из внешней процедуры

Сообщение 1 » 14.09.2005 (Ср) 10:10

Ситуация следующая. Есть 2 процедуры.

Код: Выделить всё
Private Sub cmdButton_Click()
    ...
    Call subCancel()
    ...
End Sub

Public Sub subCancel()
    ' Проверка определенного условия.
    If ... Then
        ' Здесь нужно выйти из внешней процедуры.
        ' Что-то наподобие такого:
        ' Exit sub cmdButton_Click
    End If
End Sub


Всем спасибо.

uhm
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1597
Зарегистрирован: 02.12.2004 (Чт) 15:21

Сообщение uhm » 14.09.2005 (Ср) 10:18

Сделай вторую процедуру функцией, которая будет возвращать Boolean - выйти из главной процедуры или нет. Вызывай ее не через Call, а так:

If subCancel()=False Then Exit Sub

Надеюсь, идея понятна.
Быть... или не быть. Вот. В чём вопрос?

MeMBus
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 450
Зарегистрирован: 23.02.2005 (Ср) 7:03
Откуда: Из леса...

Сообщение MeMBus » 14.09.2005 (Ср) 10:21

Первое что пришло в голову...
Код: Выделить всё
Private Sub cmdButton_Click()
    if fCancel(...)=True then
       exit sub
    else
       msgbox "yep"
    end if
End Sub
Private Function fCancel(...) as Boolean
    If ... Then
        fCancel = True
    else
        fCancel = False
    End If
End Sub

Хотя если подумать...
Бороться и искать, найти и перепрятать!

1
Новичок
Новичок
 
Сообщения: 36
Зарегистрирован: 10.07.2003 (Чт) 7:07

Сообщение 1 » 14.09.2005 (Ср) 10:30

Точно. Всем спасибо за подсказку.


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

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

Сейчас этот форум просматривают: SemrushBot и гости: 61

    TopList