[VB.NET] フォームを起動させたまま処理を中断したい。

Question

1つのフォームがあります。
例として、以下のソースを実行した場合、bのプロシージャで
フォームごと"end"で閉じられてしまいます。
仮に"Exit sub"すると、aのプロシージャに処理が戻ってしまいます。

フォームを起動させたまま、bで処理を中断させたいです。

Sub a()
 Call b()
End Sub

Sub b()
 end
End Sub

よろしくお願いします。

Comments

[Tak1wa]

質問させてください。ここで言う中断とはaプロシージャの終了を指していますか？それとも別途再開という概念のもと、aプロシージャの再開も行う必要がありますか？（一時中断？）

[inukujira]

aプロシージャの終了という事です。
再び実行するには、またaプロシージャの処理を行う必要があります。

Answer 1

aプロシージャの終了を行いたいのであれば、
以下のようにbを結果を受けてaの処理を制御するのが基本だと思います。

Sub a()
    If b() Then
        Exit Sub
    End If
    '中断されなかった場合の処理
End Sub

Function b() As Boolean
    Return True
End Function

もしくは、あまり好まれるやり方ではないですが、例外ですっ飛ばす感じでしょうか…

Sub a()
    Try
        b()
        '中断されなかった場合の処理
    Catch ex As Exception
        'hogehoge
    End Try
End Sub

Function b() As Boolean
    Throw New Exception()
End Function

ご要望とずれている場合はもう少し考えてみますのでコメントをくださいませ。

Comments

[inukujira]

ありがとうございます。
私も、bの返り値を見る方法を考えていましたが
仮にプロシージャ間の階層が深くなった場合に、毎回返り値をみる必要がでてくるので
出来れば簡潔にbﾌﾟﾛｼｰｼﾞｬ内で処理を終了させたいです。

-------------------------------------
Private Sub Click(sender As Object, e As EventArgs) Handles Button1.Click
Call a()
End Sub

Sub a()
Call b()
End Sub

Sub b()
end
End Sub
-------------------------------------

[Tak1wa]

では、二つ目に提案した例外を使う方向になってしまいそうです…。

[inukujira]

ありがとうございます。
結局、1つ目の提案でいくことにしました！＾＾

-------------------------------------
Private Sub Click(sender As Object, e As EventArgs) Handles Button1.Click
Call a()
End Sub

Sub a()
If Not a() Then Exit Sub
End Sub

Function b() As Boolean
Return False
End Function
-------------------------------------

Answer 2

無限ループとDoEventsを利用するのはダメなんですか?

Comments

[orange0190]

全然違う意味で質問を捉えてましたね。
無視してください。

[Tak1wa]

「一時中断」という意味であればループの中で処理する方向になりそうですよね。