VB PredeclaredId

创建类的全局默认实例。通过类的名称访问默认实例。

声明

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Class1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public Function GiveMeATwo() As Integer
    GiveMeATwo = 2
End Function

呼叫

Debug.Print Class1.GiveMeATwo

在某些方面,这会模拟其他语言中静态类的行为,但与其他语言不同,你仍然可以创建该类的实例。

Dim cls As Class1
Set cls = New Class1
Debug.Print cls.GiveMeATwo