VB PredeclaredId

Created: November-22, 2018

建立類的全域性預設例項。通過類的名稱訪問預設例項。

宣告

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