Оператор GoTo

[Dieman]

Вопрос на засыпку )
есть два события

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

Private Sub Command1_Click()
MsgBox "1"
GoTo Q:
End Sub

Private Sub Command2_Click()
Q:
MsgBox "2"
End Sub

А теперь вопрос ) но тут уже наверно все поняли ))))
Как с помощью этого оператора прыгать по функциям\событиям и т.д.
И насколько я знаю GoTo этого не умеет.. Как быть ?

[FireFenix]

Как с помощью этого оператора прыгать по функциям\событиям и т.д.

Наркоман?

Как быть ?

Перестать упарываться и начать новую жизнь.

А если по нормальному - то построить правильную логику приложения/ядра/движка. За Go To в высокоуровневых языках положена небесная кара.

[Dieman]

Жесть, Ад и погибель )

[ger_kar]

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

Private Sub Command1_Click()
MsgBox "1"
Command2_Click
End Sub

Private Sub Command2_Click()
MsgBox "2"
End Sub

[Dieman]

меня наверно не совсем поняли..

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

    Private Sub Command1_Click()
MsgBox "1"
MsgBox "2"
MsgBox "3"
goto Q:
    End Sub

    Private Sub Command2_Click()
MsgBox "4"
MsgBox "5"
Q:
MsgBox "6"
    End Sub

Вот с этим как быть ?

[iGrok]

Вот с этим как быть ?

Читать первый ответ в топике много раз до полного просветления и перехода в состояние нирваны (по желанию).

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

Private Sub Command1_Click()
    MsgBox "1"
    MsgBox "2"
    MsgBox "3"
    DoSomething
End Sub

Private Sub Command2_Click()
    MsgBox "4"
    MsgBox "5"
    DoSomething
End Sub

Private Sub DoSomething
    MsgBox "6"
End Sub


[Хакер]

Вот с этим как быть ?

С этим быть вот так:

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

Const Scenario1 = 1
Const Scenario2 = 2

Private Sub Command1_Click()
    DoSomeJob Scenario1
End Sub

Private Sub Command2_Click()
    DoSomeJob Scenario2
End Sub

Private Sub DoSomeJob(ByVal lScenarioId as long)
    select case lScenarioId
        case Scenario1
            MsgBox "1"
            MsgBox "2"
            MsgBox "3"
        case Scenario2
            MsgBox "4"
            MsgBox "5"
    end select
    msgbox "6"
End Sub

[Dieman]

Шаманский бубен 99 левла конечно спасает!

С этим быть вот так:

спасибо за решение.

[Qwertiy]

С этим быть вот так:

Мне вариант iGrok'а больше нравится. Там нет скидывания всего кода в одну процедуру.

[ger_kar]

А мне больше вариант Хакера нравится. Если конечно задача такая простая, то да на это заморачиваться смысла нет. А вот если событий много и обработка этих событий взаимосвязана, то лучше все делать в одной процедуре, которая вызывается из обработчиков. Написал обработчик события с вызовом некой процедуры, и забыл про него. И потом править и модернизировать нужно будет код в одном месте, а не метаться туда сюда. Так что такой вариант более универсальный.

[Qwertiy]

И потом править и модернизировать нужно будет код в одном месте, а не метаться туда сюда. Так что такой вариант более универсальный.

А теперь представь, что вариантов не 2, а 20 и каждый занимает более 100 строк

[ger_kar]

Ситуации разные бывают. Может в каком то и неудобно. Но чаще удобно. Вот представь такую ситуацию. Есть некий массив взаимосвязанных текстовых полей. Изменение информации в одном поле, должно приводить к изменению в других. В свою очередь изменение других полей может отразиться на первом. Если делать все в одном месте - получается предельно просто и хорошо, а если нет, то приходится делать целую кучу глобальных флагов, что-бы не было паразитных каскадных обновлений и т.д. А так, все в одном месте. Да и если код разбухает, то естественно часть его обособляется в отдельные функции, но тем не менее это единый цельный механизм, пусть и состоящий из нескольких функций. Может такой подход и не всегда оправдан, но чаще да, чем нет.

[Qwertiy]

Может такой подход и не всегда оправдан, но чаще да, чем нет.

Конечно, всё по ситуации, но по-моему, чаще как раз наоборот.
А объединение кода в процедуру, которая сразу же его разделяет Select'ом по тому же принципу, вообще очень подозрительно выглядит...

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

Чем тебя одна процедура от этого спасёт, если её так же вызовут из нескольких обработчиков с разными параметрами?
Кстати, флага обычно вполне хватает одного.

[ger_kar]

Кстати, флага обычно вполне хватает одного.

Опять же все зависит от ситуации.

Чем тебя одна процедура от этого спасёт, если её так же вызовут из нескольких обработчиков с разными параметрами?

Ну обычно хватает одного флага - локальной переменной. Если установлен - сразу на выход без всяких обновлений. А можно и посложнее. Я последний раз запарившись вносить кучу изменений в обработчики и все взаимно согласовывать сделал целый менеджер, который не просто управлял одним флагом, а все приходящие события помещал в очередь и после обработки текущего события очередь просматривалась и не нужные события просто удалялись, а нужные выполнялись в нужной последовательности. Также в зависимости от ситуации генерировалась нужная серия событий для необходимых обновлений в приложении. И все получилось достаточно просто и главное универсально.

[Qwertiy]

Ну обычно хватает одного флага - локальной переменной.

Локальной статической, ты имел в виду?
Локальная же пересоздастся и как флаг работать не сможет.

[ger_kar]

Локальной статической, ты имел в виду?

Да, она самая