B4A Library [B4X] [XUI] B4XComboBox - Cross platform ComboBox / Spinner

cmbBox.TextColor = xlbl.TextColor

Public Sub IndexOf(value As String) As Int
    #if B4J
        For i = 0 To cmbBox.Items.Size - 1
            Dim item As String = cmbBox.Items.Get(i)
            If item = value Then Return i
        Next
    #Else If B4A
        Return cmbBox.IndexOf(value)
    #Else
        For i = 0 To mItems.Size - 1
            Dim item As String = mItems.Get(i)
            If item = value Then Return i
        Next
    #End If
    Return -1    'ignore
End Sub

  Return -1
End Sub