Android Example [B4X] AS Settings - ComboBox Property

[B4X] [XUI] AS Settings

Introducing a new library that allows you to create your own settings page with minimal code. This library comes equipped with automatic saving and loading features, making it incredibly easy to manage your settings. It supports booleans, free text, numbers, comboboxes, action buttons and more...

www.b4x.com

With this property, the user can quickly select one of several options via a combobox. It use the native combo box for each platform.

Example

'ComboBox
AS_Settings1.MainPage.AddProperty_ComboBox("Advanced","PropertyName_12","ComboBox Example","",Null,"Option 2",Array("Option 1","Option 2","Option 3","Option 4"))

ComboBox2
The problem with the normal ComboBox is that you can only set one value and this value is then displayed and saved in the list. But what if you have several languages and then change the language or the order of the list changes. Then the previously saved values are lost.

Here you define a value and a DisplayText, so the text and the order can change without affecting the saved value.

Dim ComboBox2 As B4XOrderedMap = B4XCollections.CreateOrderedMap2(Array("Key1","Key2","Key3","Key4"),Array("DisplayText 1","DisplayText 2","DisplayText 3","DisplayText 4"))
AS_Settings1.MainPage.AddProperty_ComboBox2("Advanced","PropertyName_13","ComboBox Example","",Null,"Key4",ComboBox2)

Events
The ValueChanged event is triggered when the user has selected an item.

Private Sub AS_Settings1_ValueChanged(Property As AS_Settings_Property, Value As Object)
    'Log("ValueChanged " & Property.PropertyName & ": " & Value)
 
    Select Property.PropertyName
        Case "PropertyName_12"
            Log(Value)
    End Select
 
End Sub