先在窗体中插入一个复选框对象,紧接着CTRL+C复制,然后CTRL+V粘贴,“已有一个控件为'Check1',创建一个控件数组吗?“,要回答“是”。如果需要多个,就继续CTRL+V,直到够数为止。
Dim i As IntegerFor 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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)