Question

VB 怎么对代码中生成的控件名操作？

我在程序中添加了 TXT1(0)， TXT2(0)， TXT3(0)。。。等一系列控件数组
因为载入的数据库不断在变化，我不确定会用到TXT几.
For i = 1 To rs.RecordCount
Nam = TXT & i
Nam.(0)Value = ture
rs.MoveNext
Next
这段代码运行出错，但是我想实现就是类似这样的功能要怎么实现？
自己解决了
Controls("Txt" & i)(0).Value = ture

Answer 1

你的这个问题是一个动态控件问题，添加了TXT1(0)，TXT2(0)，TXT3(0)等是对的，关键是如何添加TXT1(1)，TXT2(1)，TXT3(1)等，下面给你一个简单的例子：

放置控件前，只有三个文本框。

点击【动态放置控件】后有18个文本框，动态放置了15个文本框。

'其实代码非常简单：
Private Sub Command1_Click()
For i = 1 To 5
    Load Text1(i): Load Text2(i): Load Text3(i)   '每次放置3个控件
    Text1(i).Visible = True: Text2(i).Visible = True: Text3(i).Visible = True   '显示这3个控件
    Text1(i).Top = Text1(i - 1).Top + 500: Text2(i).Top = Text2(i - 1).Top + 500: Text3(i).Top = Text3(i - 1).Top + 500   '移动这3个控件的位置，不要和原控件重合。
Next i
Me.Caption = "放置控件后"
End Sub

Answer 2

用上二维数组更好些!