Sub Process_Globals
End Sub
Sub Globals
Private cboLocation As B4XComboBox
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("MainPage")
End Sub
Sub Activity_Resume
Dim List1 As List
List1.Initialize
List1.Add("Finishing Mezzanine")
List1.Add("Primary Mezzanine")
List1.Add("Racking Bays")
List1.Add("Shed 1")
List1.Add("Shed 2")
List1.Add("Tullion")
List1.Add("Yard")
cboLocation.SetItems(List1)
End Sub
Sub cboLocation_TextChanged(Old As String, New As String)
Try
Msgbox("text changed","Info")
If New = "Yard" Then
Msgbox("Not allowed","NO")
End If
Catch
Msgbox(LastException.Message, "Error")
End Try
End Sub