请问怎么动态的增加控件数组元素,在线等ing........

hoptyy 2004-02-16 09:00:40
Private Sub Form_Load()

On Error Resume Next
For i = 0 To 3
Set Command(i) = Controls.Add("vb.commandbutton", "command(i)")
With Command(i)
.Visible = True
.Width = 2000
.Caption = "Hello"
.Top = Command(i - 1) + 300
.Left = Command(i - 1) + 300
End With
Next
End Sub
我这样怎么不可以啊??
...全文
19 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
VB基础类
创建于2007-09-28

7490

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-02-16 09:00
社区公告
暂无公告