再帰処理

解決

へるみ 2005-12-12 06:44:01 No: 128798

再帰処理中に、すべての再帰処理を中断することは出来るでしょうか。
再帰処理中にエラーを検出したら全処理を中止したいのですが・・・。

ガッ 2005-12-12 06:54:41 No: 128799

VB6だとこんな具合かと。

-VB6-
Option Explicit

Private Sub Form_Load()
    On Error GoTo error
    foo 1
    Exit Sub
error:
    MsgBox "もどってきました"
End Sub

Sub foo(ByVal n As Long)
    If n = 10 Then Exit Sub
        Debug.Print Space(n) & "call"
        foo n + 1
        Debug.Print Space(n) & "exit"
    If n = 5 Then Err.Raise 0
End Sub

へるみ 2005-12-12 07:44:53 No: 128800

なるほど。わかりました。
ガッさんありがとうございます。