Hallo,
ich experimentiere gerade mit eigenen Klassen und habe dazu Fragen:
Angenommendie folgende Beispielklasse:
'(clsTst)-------------------------------------------
Option Explicit
Private pNum As Integer
Private pStr As String
Public Property Get Num() As Integer
Num = pNum
End Property
Public Property Let Num(ByVal NewValue As Integer)
pNum = NewValue
End Property
Public Property Get Str() As String
Str = pStr
End Property
Public Property Let Str(ByVal NewValue As String)
pStr = NewValue
End Property
Public Sub InitS(n As Integer, s As String)
pNum = n
pStr = s
End Sub
Public Function InitF(n As Integer, s As String) As Boolean
pNum = n
pStr = s
InitF = True
End Function
'---------------------------------------------------
und das folgende Test-Modul
'---------------------------------------------------
Option Explicit
Sub Test()
Dim t As clsTst
Set t = New clsTst
't.InitS(2,"Test")
If t.InitF(2, "Test") Then MsgBox "ok"
End Sub
'---------------------------------------------------
dann funktioniert die Funktion InitF anstandslos, während die Sub InitS nicht übersetzt wird.
Was mache ich falsch?
Wolfgang
|