Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Type TestType(Year As String)
End Sub
Public Sub Initialize
' B4XPages.GetManager.LogEvents = True
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Dim myList As List
myList.Initialize
myList.AddAll(Array(CreateTestType (1900), CreateTestType (1950), CreateTestType (2000)))
For Each z As TestType In myList
Log(z.Year)
Next
End Sub
Public Sub CreateTestType (Year As String) As TestType
Dim t1 As TestType
t1.Initialize
t1.Year = Year
Return t1
End Sub