|
Hallo liebe Gemeine!
Da VBA keine Konstruktoren hat, habe ich mir selbst welche erstellen wollen. Hier meine Ansätze für den Default- und den Standard-Konstruktor:
' *****
' Konstruktoren
' *****
' Default-Konstruktor
Private Sub Class_Initialize()
strType = ""
strName = ""
blnNecessary = False
vrtContents = Array()
End Sub
' Standard-Konstruktor
' Aufruf via 'Set objMyObject = clsDataRecField.CreateInstance(...)
Public Function CreateInstance(ByVal sType As String, _
ByVal sName As String, _
ByVal bNecessary As Boolean, _
ByVal vContent As Variant) As clsDataRecField
Dim objNewField As New clsDataRecField
strType = sType
strName = sName
blnNecessary = bNecessary
vrtContents = vContent
CreateInstance = objNewField
End Function
Wenn ich jetzt allerdings ein solches Objekt erstellen will:
10 Dim objMyField As clsDataRecField
20
30 Dim varTestArray As Variant
40 varTestArray = Array("Erster Wert", "Zweiter Wert")
50
60 Set objMyField = clsDataRecField.CreateInstance("Text", "Ich", False, varTestArray)
erhalte ich immer die Fehlermeldung, dass in Zeile 60 ein Objekt benötig wird.
Was mache ich falsche?
|