全民公主章乡:vb动态生成复选框的问题

来源:百度文库 编辑:中科新闻网 时间:2024/04/30 03:16:28
我想动态创建一个复选框组,先放了一个check1,设置了Index=0,用了以下语句
For i = 1 To 3
Load Check1(i)
Check1(i).Top = Check1(i - 1).Top + 200
Check1(i).Left = 400
Next i

但是请问,为什么VB没有给我创建这个组?语句运行了,可是后面的3个复选框没有出来?

Dim i As Integer
For i = 1 To 3
Load Check1(i)
Check1(i).Caption = "Check" & CStr(i + 1)
Check1(i).Top = Check1(i - 1).Top + 500
Check1(i).Left = Check1(0).Left
Check1(i).Visible = True
Next

你没有刷新页面啊!