環境はVB2012です。 N個の値を持った変数をN個のラベルに表示したいのですが、今のところ Select Case を使用してずらずらと列記しています。とても面倒くさいし可読性も悪いし、ミスもよく起こすので、内容を変更するラベルの指定を変数でできない物かと思いました。 以下のコードの場合、child0.Text、child１.Textというように名前+No.という構成になっています。最終的にはchild(i).Textといったように数値変数で直接指定できればと思います。 過去にはコントロール配列などがあるようでしたが、このバージョンでは今ひとつ分かりません。 Dim child_string(N) As String Dim cnt_1 As Integer Dim cnt_2 As Integer Dim fitness(N) As Integer For cnt_1 = 0 To 9 Select Case cnt_1 Case 0 Me.child0.Text = child_string(cnt_1) Me.fitness0.Text = fitness(cnt_1) Case 1 Me.child1.Text = child_string(cnt_1) Me.fitness1.Text = fitness(cnt_1) Case 2 Me.child2.Text = child_string(cnt_1) Me.fitness2.Text = fitness(cnt_1) ’##################################### 同様の物が100個とか200個とかずらずら並ぶ。 下ではその数をNとする。 ’##################################### Case N Me.childN.Text = child_string(cnt_1) Me.fitnessN.Text = fitness(cnt_1) End Select Next cnt_1
↧