'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
Dim i As Int=1
For i=1 To 10
CustomListView1.AddTextItem($"L'objet ${i}"$, i)
Next
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Private Sub Button1_Click
'xui.MsgboxAsync("Hello world!", "B4X")
CustomListView1.InsertAtTextItem(0, $"bouton cliqué ${Button1.Tag}"$, Button1.Tag)
End Sub