Hallo,
ich benutze an mehreren Stellen inputdialog und habe da keine Probleme mit Keyboard, nur an dieser Stelle, wo ich nach Klick auf Item einer Listview
den Wert editiere.
Wenn ich das "LSTV10Einstellungen.Clear" weglasse verschwindet Keyboard nach "OK" betätigen.
Auch wenn ich nach "LSTV10Einstellungen.Clear" ein MSGBox("test","")
einfüge, verschwindet das Keyboard.
Scheint so, dasss wenn nach dem "OK" des Inputdialog gleich das Clear und dann gleich das ADD erfolgt, bleibt das Keyboard angezeigt.
Gibt es da eine Lösung oder einen Tip wie man das umgehen kann ?
ich benutze an mehreren Stellen inputdialog und habe da keine Probleme mit Keyboard, nur an dieser Stelle, wo ich nach Klick auf Item einer Listview
den Wert editiere.
Wenn ich das "LSTV10Einstellungen.Clear" weglasse verschwindet Keyboard nach "OK" betätigen.
Auch wenn ich nach "LSTV10Einstellungen.Clear" ein MSGBox("test","")
einfüge, verschwindet das Keyboard.
Scheint so, dasss wenn nach dem "OK" des Inputdialog gleich das Clear und dann gleich das ADD erfolgt, bleibt das Keyboard angezeigt.
Gibt es da eine Lösung oder einen Tip wie man das umgehen kann ?
B4X:
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