netice

没办法了。。就想了个垃圾点的办法
先定义个
Private Sub Form_Load()
     ReDim FrmA1(0)
     Set FrmA1(0) = New FrmA
End Sub
再去判断。。就没问题了。。真够晕的。。
用if UBound(FrmA1) <=0 就不行为什么呢
UBound(FrmA1)不是判断下一个的下标吗？
也就是说FrmA1（0）被声明后UBound(FrmA1)=1
若没有FrmA1（0）的话就值应该为UBound(FrmA1)<=0才对啊

netice

窗体数组到是会了。。但是时间数组怎么定义啊
我是想
放一个时间
time1控件
但是下面的都是动态定义一个时间数组


如在模块下定义：Public TimeChat() As Timer

再动态定义的时候
再 ReDim TimeChat(Num)
把 TimeChat(Num).Enabled = True  --------》提示错误


但是原来在
Private Sub TimeChat_Timer(Index As Integer)
    ……
   ……
End Sub
为什么不能执行啊

Nothing

Timer控件可不是Timer，两都不是一样的
Timer控件不需要定义，你在属性中将它的Index设置成0就可以了
使用的时候就不是这样使用了
   a = Timer1.Count
    Load Timer1(a)

Nothing

不过你放那么多TIMER控件，你的程序受的了吗？你其实可以在TIMER控件中处理很多东西，不要放太多的Timer控件。

netice

因为程序需要动态添加时间控件。。
每个控件控制一个事件。。。主要是这些事件完全可以同时进行。。
而一个timer不能处理。。。

原来我是加载个从timer(1)^^^ timer(10)
再循环使用。。但是超过10事件同时进行的时候就会出错了。。。。
若可以根据需要随时添加就比较好
。

netice

我虽然放了timer控件但是用到的时候才把它Enable=true

Nothing

使用 Load timer1(数组) 就可以用了
控件数组需要使用Load

netice

但怎么判断是否Load过
若已经load过的话再load一次就错了。。。
这个问题好象不太跟上边的窗体一样。。

Nothing

使用 on error resume next 吧

netice

搞定。。。用的是标签
处理下。。呵呵
On Error GoTo ErrorHandler