'
1: Sub Class_Globals
2:
3: End Sub
4:
5: Public Sub Initialize
6:
7: End Sub
8:
9: Sub JobDone(Job As HttpJob)
10:
11: if job.success then
12: log("success")
13: else
14: 'get current activity that use this class
15: 'call method with name "ShowError"
16: end if
17:
18: End Sub
In line 14 and 15 i need detect current activity and call method in relate activity
I dont want to use CallSub or CallSubDelay
Only need call method with current activity
Thanks
Sub Class_Globals
Private mCallback As Object
End Sub
Public Sub Initialize(Callback As Object)
mCallback = Callback
End Sub
Sub JobDone
'...
CallSubDelayed(mCallback, "JobDone_Error")
End Sub
Sub Class_Globals
Private mCallback As Object
End Sub
Public Sub Initialize(Callback As Object)
mCallback = Callback
End Sub
Sub JobDone
'...
CallSubDelayed(mCallback, "JobDone_Error")
End Sub