For-Next に関する追加情報。 Dim As Integer IIA, Ien, Icount Ien =5 Icount =0 For IIA = 1 To Ien MessageBox(TakaHWND,"Hello IIA ="+Str$(IIA)+"IEN ="+Str$(IEN),"Messagebox caption",MB_ICONINFORMATION) Icount =Icount +1 If Icount>20 Then Exit For Ien = Ien+1 Next IIA MessageBox(TakaHWND,"Hello IIA ="+Str$(IIA)+"IEN ="+Str$(IEN)+"Icount ="+Str$(Icount),"Messagebox caption",MB_ICONINFORMATION)
とやると、IIA =5を表示した後、ループから飛び出す。 For ループ内で、データ追加してデータ数が増える場合の処理、 ある種の再帰的処理なんだけど、For - Next 処理では実行不能。
