おやじプログラマー日記

VB.NETでは繰り返し処理を行う為に、While 文、Do…While 文、For 文などを使います。
While 文であれば以下の様な感じで、While の判定式で判定結果がFalseになった時点でループを抜けます。 Dim i As Integer = 10 While (i > 0) i -= 1 End While While の判定式を True にすると、無限ループになってしまうので、 ループ内から抜け出すためには以下の様に Exit While 文を使います。 Dim i As Integer = 0 While True i += 1 If i > 10 Then Exit While End While ところで、この無限ループを使うことで一連の処理を下方向に向かって順次記述することができます。
私がよくやる方法なのですが、データのエラー処理などで、いくつかのエラーチェック処理を連続で行い、 全てのチェックが正常で在った場合にOKとする場合などに無限ループを使います。 'エラー発生フラグOFF Dim blnErr As Boolean = False While True 'チェック１ If CheckProc1() = False Then 'エラー発生 blnErr = True; Exit While End If 'チェック２ If CheckProc2() = False Then 'エラー発生 blnErr = True; Exit While End If 'チェック３ If CheckProc3() = False Then 'エラー発生 blnErr = True; Exit While End If '全てのチェックがOKなので抜ける Exit While End While '全てのチェックがOKか判定 If blnErr = True Then 'ここでエラー処理等を行う End If 上記のソースではエラーチェック関数の中身は記述しませんが、CheckProc1()～CheckProc3() が存在する前提です。
この様にすれば、If 文の入れ子をしなくても、エラーチェック処理を上から下に向かって連続して記述できます。 ソースを見た時に各チェック処理の頭が揃い、見やすくするために行っています。何かのご参考になれば幸いです。

基礎Visual Basic 2015 基礎シリーズ