# Region "Klasse Diverse Funktionen"
public class clsOftBenötigteFunctionen
 
' Klassenglobale Deklarationen
Private mString as String 
Private mZahl as integer
 
'öffendliche (public) Eigenschaften
 
Property EineZahl as integer
Get
      Return m_Sorte
End Get
 
Set (value as integer)
mzahle = value
end set
 
end property
 
'öffendliche Methoden
 
Public Function AddiereZahl (ÜbergebeneWert as integer)
 
addiereZahl = mzahl + Übergabewert
 
end function

dim myFunktionen as new clsOftBenötigteFunctionen

myfunktionen.EineZahl = 10
intErgebnis = myFunktionen.AddiereZahl (10)

myFunktionen = nothing

Gruss
Cyberclone

--