VB.netのタイマーが終了できない

Question

前提・実現したいこと

vb.netの超初心者です。
vb.netのTimer_TickでFelicaの読み取りを行い、
idmを読み取り次第、データベースのプロパティを更新して
"処理が終わりました"とのメッセージボックスを表示させて
Timer_Tickが終了するようなコードを作りたいです。

発生している問題・エラーメッセージ

現状のコードでは、なぜかTimer_Tickが終了してくれず、メッセージボックスを何個も何個も生成してしまいます。

エラーメッセージ

該当のソースコード

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim r_name As String
        Dim code As String
        Dim sResult As String
        Dim msg As String
        Dim command As NpgsqlCommand
        '--------------------
        ' Felicaの情報を取得
        '--------------------
        msg = dump()

        Dim conn As NpgsqlConnection = New NpgsqlConnection("---";)
        conn.Open()
        code = "Select name FROM list WHERE id Like '" & dump & "';"
        command = New NpgsqlCommand(code, conn)
        sResult = command.ExecuteScalar()
        r_name = sResult
        t_name.Text = r_name
        conn.Close()

        If t_name.Text <> "" Then
                conn.Open()
　''処理をします
　　　　　　　　　conn.Close()
                MsgBox("処理が完了しました")
                Timer1.Enabled = False
                Exit Sub
        End If
    End Sub
''ソースコードは必要最低限度に省略しています

試したこと

Exit Sub()やApplication.Exit()などなど、いろいろ試して終了させようとしていますが、
結果は変わりません。

Comments

[crowmt]

メッセージボックスで処理が止まるので、タイマー止めてからメッセージを呼ぶでどうでしょうかね。

[退会済みユーザー]

すごいです！おっしゃるとおりにしたら、
直りました！！メッセージボックスで処理が止まるというのは初耳でした。
以後、参考にさせていただきます。

[crowmt]

解決して何よりです。
このままだと未解決で残り続けるので、回答記載しておきます。
utukushizukiさんの判断で解決済にしておいてください。

Answer 1

メッセージボックスで処理が止まるので、タイマー止めてからメッセージを呼ぶでどうでしょう。

処理する必要が発生した直後に止めないと、処理中に読み込みされても動いてしまうので、
マルチ処理をしなくてよければ、分岐直後に止めておいたほうがいいかもしれません。
メッセージ確認後にタイマーをONにすれば、次の読み込みもできるのではないかと思います。

（省略）
      If t_name.Text <> "" Then
              ' タイマー停止
              Timer1.Enabled = False
              conn.Open()
''処理をします
              conn.Close()
              MsgBox("処理が完了しました")
              
              ' タイマー開始
              Timer1.Enabled = True
              Exit Sub
      End If
（省略）

Comments

[退会済みユーザー]

ありがとうございました。
こんなに簡単に解決できるとは。