For Next ループの終了時のイベント

解決

匿名  2010-07-08 18:47:30  No: 146964  IP: [192.*.*.*]

Dim kaisuu As Integer

        For kaisuu = 1 To TextBox1.Text
     
       イベント

        Next kaisuu

これでループを開始します。

ループの回数はTextbox1.textに入力されている回数です。

textbox1に入力されている数  ループされたら

msgbox("ループが終了しました")などと

ループ終了時に処理を行うにはどのようにしたらいいのでしょうか？

編集 削除
うらの畑で  2010-07-08 19:04:56  No: 146965  IP: [192.*.*.*]

ちょっこし データ型がちがうかな
For kaisuu = 1 To TextBox1.Text
     
TextBox1.Textを数値にしなければだめなのではないかな

編集 削除
匿名  2010-07-09 15:42:43  No: 146966  IP: [192.*.*.*]

もちろんtextbox1.textは数値が入力されていることを前提です

編集 削除
魔界の仮面弁士  2010-07-09 16:14:38  No: 146967  IP: [192.*.*.*]

> もちろんtextbox1.textは数値が入力されていることを前提です
数字と数値は違いますよ。

CInt 関数などを使って、
  For kaisuu = 1 To CInt(TextBox1.Text)
などとしましょう。

> ループ終了時に処理を行うにはどのようにしたらいいのでしょうか？
Next の次の行に MsgBox を配置すれば OK かと。

編集 削除
匿名  2010-07-09 17:21:16  No: 146968  IP: [192.*.*.*]

いろいろと試行してみたところうまくいきました〜〜
おふたかたとも本当にありがとうございます
やりたいことができました

ループ終了時の処理は魔界さんの
おっしゃるとおりNextの次に入力すればできました

編集 削除