再帰処理

解決

---

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

---

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

---

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

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。

※返信する前に利用規約をご確認ください。

ツイート