Private Sub Class_Globals
Private Callback As Object
Private Event As String
end sub
Public Sub Initialize(CallbackModule As Object, EventName As String)
Callback = CallbackModule
Event = EventName
If SubExists(Callback,Event&"_UpdateComplete") Then
CallSub(Callback,Event&"_UpdateComplete")
End If
CallSub(Callback,"subname")
If SubExists(Callback,"SetNumero") Then
CallSub2(Callback,"SetNumero", 1)
End If
Sub SetNumero(value As Int)
numero = value
End Sub
very well! if I want to read data from the parent class?
thank you very much, you've been to help
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim myclass As mynewclass
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
myclass.Initialize(Me,"MNC")
End Sub
Sub Class_Globals
Dim numero As Int = 0
Private Callback As Object
Private Event As String
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(CallbackModule As Object, EventName As String)
Callback = CallbackModule
Event = EventName
End Sub
'Gets or sets the numero
Sub getNumero As Int
Return numero
End Sub
Sub setNumero(i As Int)
numero = i
End Sub
Log(myclass.numero)
myclass.numero = 35
Am I wrong or someone is developing a "generator"? Green-White-Red?
hello LucaMS I did not understand the question?!
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?