cdome.vb

来自「Visual Basic.NET应用编程150例」· VB 代码 · 共 52 行

Public Class CDome
    Inherits System.ComponentModel.Component
    Public ReadOnly InstanceID As Integer
    Private Shared NextInstanceID As Integer = 0
    Private Shared ClassInstanceCount As Long = 0
    '声明成员变量

#Region ""

    Public Sub New(ByVal Container As System.ComponentModel.IContainer)
        MyClass.New()
        Container.Add(Me)
    End Sub
    Public Sub New()
        MyBase.New()

        InitializeComponent()
        InstanceID = NextInstanceID
        NextInstanceID += 1
        ClassInstanceCount += 1
        '初始化成员变量
    End Sub

    Protected Overrides Sub Finalize()
        ClassInstanceCount -= 1
        '设置 ClassInstanceCount变量值
    End Sub
    Public Shared ReadOnly Property InstanceCount() As Long
        Get
            Return ClassInstanceCount
        End Get
    End Property
    '创建属性

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    Private components As System.ComponentModel.IContainer
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        components = New System.ComponentModel.Container()
    End Sub

#End Region

End Class