netice

在定义窗体 Dim frmA As New frmA的时候
点击不同按扭的时候
给窗体caption赋不同值
已经打开了frmA
偶想若两个窗体完全一样的话就不再加载
但如何判断完全一样呢？

netice

“c=count(FrmA1)”
是什么意思啊？
首先，是不知道已经打开的窗体个数的啊
。。怎么能获得打开FRMA1的个数呢？

netice

VB6里有这个函数吗？
是

返回集合中的对象数目。

语法

object.Count
对不？

netice

这次对了。。哈哈。。。看样子懂德太多也不好啊。。
。。就像现在我总是犹豫是应该用ASP实现呢？还是用FLASH？或者用VB？

netice

c = UBound(FrmA1)
这句老是下标越界。。。过不去啊
好象是UBound(FrmA1)=-1

netice

我发现若是没有事先打开一个FrmA1就会越界。。。。

怎么解决这个问题呢？
一旦有一个已经打开就不会出现问题。。。
若先 判断 UBound(FrmA1) = 0也不行

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
为什么不能执行啊

netice

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

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

netice

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