コントロール配列と同じような扱い方

Question

TextBox1、TextBox2、TextBox3・・・・TextBox10 と10個のテキストボックスにVB6で使っていたコントロール配列と同じような処理の仕方をコードで教えていただけませんか。

for i=0 to 9
TextBox(i).Text=i
next i

上記のコードをVB.NETで書くとすれば、どのように書けばいいかということさえわかれば、なんとか頑張れる気がします。

dsuekichi · Accepted Answer

VB.NETに「コントロール配列」は無いので、基本的にはできません。

やるとしたら、
「VB6で普通の（コントロール配列でない）コントロールを『コントロール配列』と同じように扱う」
場合と同じです。

つまり・・・
（方法１）自分でコントトール型の配列を宣言し、各コントロールをセットしておく。
（方法２）Controlsコレクションから参照する。
のどちらかでしょう。

前者なら例えば、
-------------------------------------------------------
    Private TextBoxArray() As TextBox
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        TextBoxArray = New TextBox() {Me.TextBox1, Me.TextBox2, Me.TextBox3}
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        For i = 0 To 2
            TextBoxArray(i).Text = i.ToString
        Next
    End Sub
-------------------------------------------------------
こんな感じ、後者なら、
-------------------------------------------------------
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim i As Integer
        For i = 1 To 3
            Me.Controls("TextBox" & i.ToString).Text = i.ToString
        Next
    End Sub
-------------------------------------------------------
こんな感じ。

dsuekichi · Answer

> でも、tag や text は問題ないようです。
> Checkedはメンバではないとエラーが表示されます。
これは、Controlsで求まるのが、各コントロール固有のデータ型ではなく、
基本クラスである「Control クラス」だからです。

> tag や text
は、どのコントロールクラスにも含まれていて、
「Control クラス」のメンバとして定義されているので大丈夫ですが、

> Checked
の様に、固有のコントロール（チェックボックス）用のメンバはエラーになります。

>         CType(Me.Controls("CheckBox" & i.ToString), CheckBox).Checked = True
の様に、データ型を「CheckBoxクラス」に変換してみてください。

dsuekichi · Answer

> ということは？？？VB2005では、また仕様が変わっているってことですか？？？

「変わった」と言うより「追加された」ですね。
VB.NET(VB7.0)やVB.NET2003(VB7.1)は、VB6.0と違いすぎたため、
VB2005(VB8.0)では、VB6.0に近い機能を復活させたり、
新しい便利な機能を追加したりしています。

「Visual Basic の新機能」＜＝＝VB2005
（http://msdn2.microsoft.com/ja-jp/library/we86c8x2(vs.80).aspx）

ついでに、
「Visual Basic 9.0 概要」＜＝＝VB208
（http://www.microsoft.com/japan/msdn/vs05/vbasic/vb9overview.aspx）

dsuekichi · Answer

> 「TextBox1" から型 'Integer' へのキャストが有効ではありません。」というエラーが出ます。

しまった。VB.NET2003とかでした？
だったら、後者の方法は使え無かったはず。
申し訳ない。

＃VB2005なら使えるはずですが・・・

fumufumu_2006 · Answer

質問の答えとは違いますが、下のような事もできますよ。

TextBox1・・・TextBox10 のイベントを1つで管理できます。
  Private Sub TextBox_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles _
  TextBox1.Click, TextBox2.Click, TextBox3.Click, TextBox4.Click, TextBox5.Click, TextBox6.Click, TextBox7.Click, TextBox8.Click, TextBox9.Click, TextBox10.Click

    sender.text = sender.name

    'でも、下の方がお勧め
    DirectCast(sender, TextBox).Text = DirectCast(sender, TextBox).Name

    'こちらでもいいか
    Dim tb As TextBox
    tb = sender
    tb.Text = tb.Name
  End Sub

unamana19 · Answer

http://okwave.jp/qa3400887.html

こういうこと？

コントロール配列と同じような扱い方

VB.NETに「コントロール配列」は無いので、基本的にはできません。

この回答への補足

> でも、tag や text は問題ないようです。

この回答への補足

> ということは？？？VB2005では、また仕様が変わっているってことですか？？？

この回答への補足

> 「TextBox1" から型 'Integer' へのキャストが有効ではありません。

この回答への補足

質問の答えとは違いますが、下のような事もできますよ。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング