Sub LSTV10Einstellungen_fuellen ' Werte für Einstellungen in Liste füllen
LSTV10Einstellungen.Clear
LSTV10Einstellungen.AddTwoLines2("Währungssymbol:",waehrungssymbol, waehrungssymbol) ' Menüpunkte für Listview anlegen
LSTV10Einstellungen.AddTwoLines2("Test2","Test2S", "sek2")
LSTV10Einstellungen.AddTwoLines2("Test3","Test3S", "sek3")
LSTV10Einstellungen.AddTwoLines2("Test4","Test4S", "sek4")
LSTV10Einstellungen.AddTwoLines2("Test5","Test5S", "sek5")
LSTV10Einstellungen.AddTwoLines2("Test6","Test6S", "sek6")
End Sub
Sub LSTV10Einstellungen_ItemClick(pos As Int, value As String) ' Einstellung aus Listview ausgewählt
Select pos
Case 0
InputDialog.InputType = InputDialog.INPUT_TYPE_TEXT
InputDialog.Input = waehrungssymbol ' Eingabefeld vorbelegen
ret = InputDialog.Show("", "Währungs-Symbol ändern", "OK", "Abbrechen", "", Null) ' Dialog anzeigen
If ret = DialogResponse.CANCEL Then
Return ' Zurück zu datumseingabe
Else
waehrungssymbol = InputDialog.Input ' in Label speichern
LSTV10Einstellungen_fuellen
End If
Case 1
Msgbox(value,"")
Case 2
Msgbox(value,"")
Case 3
Msgbox(value,"")
End Select
End Sub