与控件相关

Question

我做的程序，控件很多
结果系统提示我，不能再放任何控件了请问这个问题如何解决谢谢因为领导要求，所以这些东西必须做到一个程序里

Answer 1

动态生成了，把没有用的暂时去掉，要用的时候再create了。

Answer 2

本来是四个程序
领导要和到一个form窗口里所以控件就很多了

Answer 3

把相似的控件放到 一个 Usercontrol里面 即用户控件

Answer 4

'我只是用Command做例子。
'在界面上放一个Command Button，Name 是 cmd，把它的 Index 设成 0。
'这样就变成了一个只有一个元素的控件数组。Private Sub Form_Load()
    Dim n As Long
    For n = 1 To 300
        Load cmd(n)                                          '将此控件调入内存
        cmd(n).Left = Me.ScaleWidth * (n Mod 10) / 11        '摆放控件的位置
        cmd(n).Top = Me.ScaleHeight * Int(n / 10) / 30
        cmd(n).Visible = True                                '这个一定要，否则会看不见
        cmd(n).Caption = "Item " & n                         '控件的显示
    Next n
    
End Sub
    
Private Sub cmd_Click(Index As Integer)
    MsgBox "按钮 " & Index & " 被按下!" '根据Index不同，就知道哪个被操作了。
End Sub

Answer 5

你一共用了多少个控件？
在上面的例子中，已经生成了300个按钮。在测试中增加到了1000。10000个的时候机器受不了了。
它只是在运行的时候才Load的，报错是vb ide的事。我不知道你试过了没有