Эта, кто-нибудь работал с Goto? :)

[Pantalone]

Чего-то я совсем
Как попасть в пункт b?
Повторный On Error не работает что ли?

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

Private Sub Form_Load()

    Dim i As Integer

On Error GoTo a

    i = 1 / 0

a:

    i = 2

On Error GoTo b

    i = 1 / 0

Exit Sub
b:
    MsgBox "error"

End Sub

ЗЫ: долго и честно искал раздел для новичков, не нашел

[Viper]

Открой MSDN и прочитай про обработку ошибок в VB 6. Оченно пользительное чтение

[VB-constructor]

Попробуй так

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

Option Explicit
    Dim i As Integer
Private Sub Form_Load()

On Error GoTo a

    i = 1 / 0

a:

    i = 2
Call z
End Sub

Private Sub z()
    On Error GoTo b
   
        i = 1 / 0
   
    Exit Sub
b:
        MsgBox "error"
End Sub

P.S. Я вот только одного не понимаю, зачем тебе такой алгоритм?
Объяснишь?

[Efiop]

P.S. Я вот только одного не понимаю, зачем тебе такой алгоритм?
Объяснишь?

может защиту по исключениям делает.

[Pantalone]

Для тех кто тоже на этом застрял ( ) нужно перед On Error GoTo b поставить On Error GoTo -1

Насчет мсдн, раньше так было или они только щас слепили VB и VB.NET в одну ветку вперемешку?