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 ?
Code:
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