Domino 9 und frühere Versionen > Entwicklung

Wie kann ich eine Klasse sinnvoll aufbauen ?

<< < (32/41) > >>

TMC:
Danke, Jens, für die Infos.

Gerade DotDot - Notation ist da für mich sehr hilfreich.

TMC:
Nun hänge ich wieder fest:

Ich habe 1 sozusagen abstrakte Klasse.

Da steht u.a. drin:

--- Code: ---   Public Property Get myDifference As Variant
      myDifference = .getDifference("Wert 1")
   End Property      
--- Ende Code ---

Dann habe ich eine Unterklasse ("HistoryField2Text"), da ist u.a. folgende Function:

--- Code: ---   Private Function getDifference(strTest As String) As String
      getDifference = strTest & "bla bla"
   End Function
--- Ende Code ---

Nun habe ich einen Button in einer Maske mit folgendem Code:

--- Code: ---Sub Click(Source As Button)
   
   Dim myHiFiText As HistoryField2Text
   Dim test As Variant  
   test = myHiFiText.myDifference
   Msgbox test  
   
End Sub
--- Ende Code ---

Beim Ausführen kommt in der Zeile "test = myHiFiText.myDifference" die Fehlermeldung "Object Variable not set".

Any idea?
Ich habe bewusst nicht den ganzen Code zwecks Übersichtlichkeit gepostet. Wenn nötig hänge ich den aber natürlich rein.

Semeaphoros:
Füge mal ein:

Set myHiFiText = New HistoryField2Text

irgendwo nach dem Dim myHiFiText

TMC:
Jo mei, klar, danke. (ist ja schon fast peinlich  :-[, egal da muss ich durch :) )

TMC:
Nächste Fehlermeldung im o.g. Beispiel:
"Named product object does not exist"

Fehlermeldung kommt in Zeile "myDifference = .getDifference("Wert 1")" (steht in der abstrakten Klasse).

Erscheint mir so, dass die Function "getDifference" nicht gefunden wird....

Lt. Debugger werden sauber beide sub new() der Klassen durchlaufen.

Was möchte ich überhaupt:
In der abstrakten Klasse eine Property definieren, aber den Code dann in einer Unterklasse haben.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete