Indexがあるオブジェクトを操作するには

解決

チャチ 2004-04-01 02:43:57 No: 112587

フォームにIndexを持ったText1とLabel1〜10があります
Text1(0)・・・Text1(10)と増えていき
そこには数字を入力する予定です
Label1・・・・・Label10とIndexを持ったLabelの色を変えるために
Enabledにしようと思っていますが
ControlsでIndexを持つものを操作しようとすると
うまくいきません
初心者なのでどなたか質問の仕方も
うまくありませんがよろしくお願いします
Private Sub Text1_Change(Index As Integer)
dim i as Integer
i=Cint(Text1(Index).Text)
CallByName Me.Controls(Label1(i)), "Enabled", VbLet, False
End Sub

nanashi 2004-04-01 20:19:26 No: 112588

CallByNameの使い方は知らないですけど、↓でいけませんか？

Me.Controls("Label1")(i).Enabled = False

チャチ 2004-04-01 22:54:05 No: 112589

ありがとうございました
ご指摘のようにしたら
うまく行きました

結局256以上のオブジェクトを作成するので
フォームを分けて作らないと行けない事に
気が付きました(;_;)