タイトル : gotoなしに書き直すには? 投稿日 : 2013/06/28(Fri) 17:57 投稿者 : ルトケ
vb6は長いけど.netは初心者で、VB2010を7上で使ってます。 blnStopというフラグが立つとサブプロシージャの後ろの方まで 飛ばすというコードを書きたいです。for nextループが複数あり、 exit forだけでは次のループに飛んでしまいます。これは意図したところ ではありません。Exit Subももちろん目的を果たしません。 gotoなしにこの種のコードを書き直したいのですが、 みなさんの温かいご助言賜りますれば幸いです。 For i = 0 To 100 If blnStop = True Then GoTo EndMea ここにいろいろステートメント 'ここにgoto 代わりにexit for書くと次のループが実行されてしまう Next For i = 0 To intNumMeasure2 If blnStop = True Then GoTo EndMea ここにいろいろ 'ここにgoto 代わりにexit for書くとループ後の処理が抜ける Next i ここにもいろいろ EndMea: MsgBox ("now aborted") blnStop = False End Sub |