tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： gotoなしに書き直すには？
投稿日： 2013/06/28(Fri) 17:57
投稿者： ルトケ
vb6は長いけど.netは初心者で、VB2010を７上で使ってます。

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
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。