フォームは起動した状態でフォーム全体の処理を終了させたい

Question

閲覧ありがとうございます。

ボタンをクリックすると、関数AとBが呼び出されるのですが、関数Bの引数がTrueになったときに、ボタンをクリックするイベントの前の状態(デバック開始を押した瞬間に出てくるフォームが立ち上がっているだけ)にしたいです。

Public ResultFlag As Boolean

Private Sub B(ByRef Result As Boolean)
 If Result = True Then
  'フォームは起動したままで全体の処理を終了させる
 End If

End Sub

Private Sub A()

 If 条件式 = True Then
  '基本的に条件式がTrueになる。例外時のみResultFlagがTrueにする
  ResultFlag = False
 Else
  
 End IF

 B(ResultFlag)

End Sub

関数Aが呼び出された時に、最初のIF文で条件式がTrueになりResultFlagがFalseになります。
しかし、IF文のElseしか実行されない時にResultFlagがTrueのままで、関数Bが呼ばれた時にTrueを入れて、フォームは起動していて、フォームの中のボタンクリックをした際の処理やテキストボックスの中身を常に読んでいる処理などを終了させたいです。

Application.Exitでは、アプリケーションが終了してしまい、ExitSubでは関数Bが抜けるだけでフォームの全体の処理(今回はボタンクリックイベントが発生した時に関数AとBが呼び出されます)は終了しません。

アドバイスのほど、よろしくお願いいたします。

Comments

[YAmaGNZ]

申し訳ありません。全く理解できません。
例外時というのはどのような状況のことですか？
フォーム内の処理とは何のことですか？

[dodox86]

YAmaGNZさんと全く同じ疑問を抱きました。今のままでは恐らく誰も回答できません。

[YAmaGNZ]

終了させたいというのは、常に何かしらの方法でその処理を起動していて、それをキャンセルしたいということですか？
それともボタンが押されたら処理が走るので、ボタンを押されても処理を行いたくないということですか？

[YAmaGNZ]

ボタンをクリックすると、関数AとBが呼び出されるとのことですが
一度ボタンが押されたら、継続して内部で処理を行い続けるようなもので、その中である条件が成立したら、その処理を終わりたいということですか？

クリックイベントで普通に関数を呼んだだけであれば、その関数が終われば元に戻るだけですので、行いたいことが理解できません。

[shinami]

> デバック開始を押した瞬間に出てくるフォームが立ち上がっているだけ

これは、複数のフォームが立ち上がっているという事でしょうか？

アプリケーションを再起動するApplication.Restart()なんてのもありますがアプリを再起動しているというのが目で分かります。
現実的には関数AやBなどで処理し、変更される変数やコントロールなどを例外時にすべて戻す必要があるかと思います。

Answer 1

いまいち理解していませんが、いろいろ処理を行った後にフォームを初期状態に戻したいというのであれば、初期状態に戻すメソッドを作成し、それを呼び出せばいいのではないですか？
「テキストボックスの中身を常に読んでいる処理」に関してはどのように処理を行っているか分かりませんので、どのように処理を終わらせるのが適切なのか説明できません。

Public Class Form1

    Private ResultFlag As Boolean

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        'フォームの表示を初期化する
        FormInitialize()
    End Sub

    Private Sub ButtonA_Click(sender As Object, e As EventArgs) Handles ButtonA.Click
        関数A()
    End Sub

    Private Sub ButtonB_Click(sender As Object, e As EventArgs) Handles ButtonB.Click
        関数B()
    End Sub

    Private Sub 関数A()
        '何かしらの処理

        If 条件 = False Then
            ResultFlag = True
        End If

        関数B()
    End Sub

    Private Sub 関数B()
        '何かしらの処理

        If ResultFlag = True Then
            '元に戻す
            '関数Aや関数Bでの処理で表示されているコントロールに変更を行うのであれば
            'それを元に戻す
            FormInitialize()
        End If

    End Sub

    Private Sub FormInitialize()
        '内部フラグを初期化する
        ResultFlag = False

        '各コントロールの表示を初期化する
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
    End Sub

End Class