'Nastaveni
Sub Nastaveni
Activity.LoadLayout("Nastaveni")
JazykLbl.Text = Slovnik.h29
LoadJazykyCmb
'vytvoreni mapy (key/value)
Dim i As Int = 0
For Each Jazyk In Slovnik.JazykySeznam
JazykyValues.Put(i, Jazyk)
JazykyNames.Add(Jazyk)
i = i + 1
Next
'vyber jazyka
JazykB4XComboBox.SetItems(JazykyNames)
End Sub
Sub LoadJazykyCmb
JazykyNames.Initialize
JazykyValues.Initialize
End Sub
Sub JazykB4XComboBox_SelectedIndexChanged
Msgbox("jazyk",JazykB4XComboBox.SelectedIndex)
End Sub