Sub Class_Globals
Private mBase As Panel
Private EventName As String
Private CallBack As Object
End Sub
Public Sub Initialize (vcallback As Object, vEventName As String)
CallBack=vcallback : EventName=vEventName
mBase.Initialize("mBase")
End Sub
Public Sub GetBase As Panel
mBase.LoadLayout("mylayout")
Return mBase
End Sub
In the activity I add the class:
B4X:
Dim item As myclass
item.Initialize(Me,"item")
Activity.AddView(item.GetBase,0,100dip,100%x,100dip)
And I get this log:
'Panel size is unknown. Layout may not be loaded correctly.
'Class:
Public Sub GetBase As Panel
Return mBase
End Sub
Public Sub LoadLayout
mBase.LoadLayout("mylayout")
End Sub
'Activity:
Dim item As myclass
item.Initialize(Me,"item")
Activity.AddView(item.GetBase,0,100dip,100%x,100dip)
item.LoadLayout