vb6.0 怎么向控件数组里添加控件 还有怎么在load事件中 更改数组中控件的属性

Question

你们说清楚点 我菜鸟 那么深奥 我看不懂的 1L的我是说 怎么向已经创建好得控件数组中添加控件

Answer 1

'添加控件Picture1,Label1,Text1,把它们的Index属性都设为0
Sub LoadControls(obj As Object, num, n, x, y)
'obj是控件数组名,num是控件数组下标的上界，n是每行控件数
'x是控件横向间距,y是控件纵向间距
For i = 1 To num
Load obj(i)
obj(i).Visible = True
obj(i).Move (i Mod n) * (obj(0).Width + x) + obj(0).Left _
, (i \ n) * (obj(0).Height + y) + obj(0).Top
Next i
End Sub
Private Sub Form_Load()
LoadControls Picture1, 17, 6, 600, 360
LoadControls Label1, 17, 6, 600, 360
LoadControls Text1, 17, 6, 600, 360
End Sub

Answer 2

控件数组里面随便选一个，复制粘贴就可以添加
直接控件名.属性=值，不就改了吗

Answer 3

Load Object(Index)
Objext(Index).Visible=True '把控件显示出来
例如
Command1(2).Caption=Command2(2).Name追问

还向弱弱问下 加载 对象到(索引值) 里 必须要visible设置为真吗 加载好后 这属性貌似默认为真
加载到数组里后 该对象的index属性 空白 还是系统自动给他值 还是用户自己输

本回答被提问者采纳

Answer 4

还真的不好和你说明白