Von |
Werner |
eMail |
|
Am |
30. November 2008 um 10:37:04 |
Frage |
guten tag ich habe folgenden code in einem modul stehen:
Public Function LoadTTyp(FileName As String) As Collection Set LoadTTyp = New Collection Open FileName For Input As #2 Do While Not EOF(2) Set TTyp = New terrainType Input #2, name, movement TTyp.bewegungsKosten = movement 'hier kommt die fehlermeldung <------- #424 Object required LoadTTyp.Add TTyp, name Loop Close #2 End Function
-----------die klasse terrainType sieht so aus (in einem cls)-------------
Private mvarbewegungsKosten As Variant 'local copy
Public Property Get bewegungsKosten() As Variant If IsObject(mvarbewegungsKosten) Then Set bewegungsKosten = mvarbewegungsKosten Else bewegungsKosten = mvarbewegungsKosten End If End Property Public Property Set bewegungsKosten(ByVal vData As Variant) Set mvarbewegungsKosten = vData End Property ------------ die function rufe ich von der subMain auf. vorher hatte ich die function als SUB in subMain, dort funktionierte es noch. versteh ich nicht. ich hoffe ihr werdet schlau aus meinen wirren codes :) vielen dank für eure hilfe |
|