コントロール配列のループ

質問

タイトルどおりなのですが、コントロール配列の最初から最後までループさせるにはどうすればいいんでしょうか？

回答No.4

TAGOSAKU7 · ベストアンサー

なんか日本語とサンプルも変だったので言い直します。

コントロール配列は、Indexが順番通りに振られている時はimogasi氏の言う通りでいいと思いますが、空き番号があるならば「For Each ～ In ～ 」を使用しましょう。

下記サンプルは、各テキストボックスのテキストに、コントロールのIndex値をセットします
Dim txtWk　 As TextBox
For Each txtWk In Text1
　　txtWk.Text = txtWk.Index
Next txtWk

お礼

ずばり知りたかった方法です。これでうまくできそうです。
回答ありがとうございました。

回答No.3

TAGOSAKU7

コントロール配列は、Indexが順番通りに振られているとはimogasi氏のいう通りいいと思いますが、空き番号があるならば「For Each ～ In ～ 」を使用しましょう。

下記サンプルは、各テキストボックスのテキストに、コントロールのIndex値をセットします
Dim txtWk　 As TextBox
For Each txtWk In Text1
　　txtWk.Text = .Index
Next txtWk

回答No.2

imogasi

下記の実例で判って下さい。
Form1にTextBoxのText1を４つコピーしました。コントロール配列にします。計５つテキストボックスが出来ます。
コマンドボタンを１つ貼り付けます。
コマンドボタンのClickイベントプロシージュアーとして
Private Sub Command1_Click()
MsgBox text1.Count
For i = 0 To text1.Count - 1
MsgBox text1(i).Text
Next i
End Sub
のコードを作りました。
実行し５つのテキストボックスの値を適当に変えます。
コマンドボタンをクリックすると、５つの値が
順次表示されます。

お礼

なるほど！Countを使う方法もありましたね。最近、ＰＧから離れていたので
忘れていました。回答ありがとうございました。

回答No.1

taknt

on error を 用いて 存在しない配列をアクセスしたら、終了させるという手もあります。

基本的には、配置した時点で 配列が いくつあるのかわかると思いますので、
その数分だけループさせたらいいはずですが・・・。

お礼

回答ありがとうございます。
字足らずでしたm(__)m。コントロールは動的なのとスマートな書き方を追究していました。