Private Sub Form_Load()
Dim cmd(260) As Control
Dim i As Integer
For i = 0 To 259
Set cmd(i) = Controls.Add("VB.CommandButton", "Command" & CStr(i + 1))
cmd(i).Left = i * 60
cmd(i).Top = i * 60
cmd(i).Visible = True
cmd(i).ZOrder
Next i
End Sub
以上代码是什么意思?可以实现么?
Dim cmd(260) As Control
Dim i As Integer
For i = 0 To 259
Set cmd(i) = Controls.Add("VB.CommandButton", "Command" & CStr(i + 1))
cmd(i).Left = i * 60
cmd(i).Top = i * 60
cmd(i).Visible = True
cmd(i).ZOrder
Next i
End Sub
以上代码是什么意思?可以实现么?
建议改行。
和和这段代码是别人发给我的。。我看不懂。。
放到VB里一运行就知道什么意思,就知道能不能实现
实际上就是动态添加控件数组而已
也就是使用数组可以突破限制
使用数组占的内存小,相当于使用了一个副本
有问题直接问,看不懂就说看不懂
按一般规律,楼主不会给我全分的