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 
				 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		