Grootheid doorgeven in de klasse via meerdere FORMS ?

[Agathon]

Goeiedag,

Ik ben Tom en ben momenteel bezig met mijn eindwerk van 3de bach electronica ICT.
Mijn project is een database schrijven voor een elektriciteits bedrijf.

Ik zou graag in mijn BEGINFORM via de 'public property LET' een grootheid in een bepaalde klasse schrijven en deze grootheid in de 2DEFORM ophalen 'public property GET'.

In de FORMBEGIN:

Dim test As ctest

Sub FORMBEGIN _Timer()
Set test = New ctest

test.a = a

End sub

• In de klasse (ctest)

Private a_ as double

Public Property Let a(value As Double)
a_ = value
End Property

In de 2DEFORM:

Dim test As ctest

Sub FORMBEGIN _Timer()
Set test = New ctest

a = test. a

End sub

• In de klasse (ctest)

Public Property Get a() As Double
a = a_
End Property

Het probleem is als ik dit wil testen met bv inde BEGINFORM a = 2 te zetten hij bij het ophalen van a in de 2DEFORM a = 0 zet.

Wat doe ik verkeerd ?

Alvast bedankt

 

[Guus2005]

De scoop van je class is groot genoeg. Je moet alleen niet iedere keer een nieuwe instantie van je class aanmaken. Test of deze bestaat en maak eventueel een nieuwe aan.
Wat ook kan is Test instantieren in een module. Dan kan je deze verder door heel je programma gebruiken.

HTH

 

[Agathon]

beste Guus2005 ,
Bedankt vo de reply, wel jammer dat het zolang geduurt heeft

Maar in ieder geval, je hebt gelijk om een MODULE te gebruiken, Let en Get fucntie is het zelfde maar de grootheid word nu gedimentioneerd al een GLOBAL.

Global a_ As Integer

Option Compare Database

Public Property Let avalue As Integer)
a_ = value
End Property
Public Property Get a() As Integer
a= a_
End Property

Bedankt guus, cheers