' MiaClasse
#Event: DatoArrivato(Dato As Int)
Sub Class_Globals
Private mCallBack As Object
Private mEventName As String
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(Callback As Object, EventName As String)
mCallBack = Callback
mEventName = EventName
End Sub
Public Sub LeggoDato(Dato As Int)
' Informo il modulo che contiene l'istanza di questa classe
Dim FullSubName As String
FullSubName = mEventName & "_DatoArrivato"
If SubExists(mCallBack, FullSubName) Then
CallSubDelayed2(mCallBack, FullSubName, Dato)
End If
End Sub