如何获取对象实例个数，解决后再加分

Question

假设label1是标签控件数组，则label1.Count就是label1控件的数量，
是这个意思吗？

Answer 1

在对象TAG上加标志，检测同一标志有多少。

Answer 2

这个问题很简单，在代码区的对象地方可直接看到，只要你不把“NAME”属性改掉！

Answer 3

比如我创建了一个CUser类，远程用户通过DCOM创建该对象，如CreateObject("MyLib.CUser",192.168.0.1)，那么我在CUser类中怎么知道自己被创建了几次，有一个笨方法就是在注册表或文件中保存次数，在类构造时次数加1，析构时减1，我是否可以直接访问类的VTBL，如何访问，请斑竹指点?

Answer 4

在类中定义一个静态变量即可,每初始化一次+1,Terminate 一次就-1嘛

Answer 5

'add some label and other objects(name is free)
Private Sub Command1_Click()
    Dim objTest As Object
    Dim lngLabelsCount As Long
    lngLabelsCount = 0
    For Each objTest In Form1
        If TypeName(objTest) = "Label" Then
            lngLabelsCount = lngLabelsCount + 1
        End If
    Next
    MsgBox ("The count of label is" + Str(lngLabelsCount))
    
    
End Sub

Answer 6

Dynamic:在类中模块级变量不能是静态变量
yangzhaoyu:你理解错了

Answer 7

Private Sub Class_Initialize()
 If gCConnect Is Nothing Then
    Dim CConn As Object
    ConnNum = 1
    Set CConn = New CDataConnection
    Set gCConnect = CConn.CConnect
 Else
    ConnNum = ConnNum + 1
 End If
End SubPrivate Sub Class_Terminate()
    If ConnNum > 1 Then
        ConnNum = ConnNum - 1
    Else
        gCConnect.Close
        Set gCConnect = Nothing
    End If
End Sub以上程序即可以知道，实际只创建一个对象共用
并在全部关闭时 Set Nothing