Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private B4XComboBox1 As B4XComboBox
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
Root.LoadLayout("MainPage")
Main.Accessibility.SetContentDescription(B4XComboBox1.mBase,"description mbase")
Main.Accessibility.SetContentDescription(B4XComboBox1.cmbBox,"description cmbox")
B4XComboBox1.cmbBox.AddAll(Array As String("A","B","C"))
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Private Sub B4XComboBox1_SelectedIndexChanged (Index As Int)
End Sub