C# と VB.NET の質問掲示板

■No13607 (NORTH さん) に返信
> 販売管理システムの起動で最初ログイン画面を表示するのですが、２０回に１回ぐらい
> の割合で接続エラーになります。
> プログラムは下記の通りです。
> 原因はたまたまタイミングが悪いからなんでしょうか？
> LAN環境はVPN接続（ルータ有）と社内LAN（ルータ無し）の２種類ですが
> VPN接続環境で時々エラーが出るようです。
> 原因がわかれば教えて下さい。

例外の中身を見てみないとなんとも・・・。

> また、わからない場合は２回程リトライしようと思っているのですが、下記の
> Openメッソッドでループ処理をしたいのですが、書き方がわかりません。

        Const RETRY_MAX As Integer = 2

        Dim open As Boolean = False
        Dim retry As Integer = 0

        While ((Not (open)) And (retry < RETRY_MAX))
            Try
                '   処理が成功したらフラグを立てる(ここではリトライさせるのでコメントアウトしておきます。）
                '   open = True
                '   サンプルなので強制的に例外を発生させます。
                Throw New ApplicationException("サンプル例外")

            Catch ex As Exception
                If (retry < RETRY_MAX) Then
                    retry += 1
                    '   リトライ時にしておきたい処理
                    MessageBox.Show(String.Format("{0}回目", retry))
                Else
                    '   リトライ回数を超えた時にしておきたい処理
                End If
            End Try
        End While