cdogserver.cls

获取操作系统启动权限

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CDogServer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Public Function GetDog() As ActiveDog
    Dim adTemp As ActiveDog
    Dim i As Long, j As Long, sKey As String
    Dim s As Long
    
    sKey = colDogs.Count + 1
    If colDogs.Count > 0 Then
        Dim bDogExist() As Boolean
        ReDim bDogExist(1 To colDogs.Count)
        For i = 1 To colDogs.Count
            Set adTemp = colDogs(i)
            s = CLng(adTemp.sDogKey)
            If s <= UBound(bDogExist) Then
                bDogExist(s) = True
            End If
        Next i
        For i = 1 To colDogs.Count
            If bDogExist(i) = False Then
                sKey = i
                Exit For
            End If
        Next i
    End If
    
    Set adTemp = New ActiveDog
    colDogs.Add adTemp, sKey
    adTemp.sDogKey = sKey
    Set GetDog = adTemp
End Function

Public Property Get Count() As Long
    Count = colDogs.Count
End Property