再帰処理

解決


へるみ  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

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


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




  


  このエントリーをはてなブックマークに追加