German Keyboard Enter Button

Discussion in 'German Forum' started by danebn11, Nov 26, 2017.

  1. danebn11

    danebn11 Member Licensed User

    Hallo,

    ich habe ein Problem.

    Ich möchte, wenn ich bei meinem Keyboard Enter drücke, dass sich die Tastatur schließt, allerdings schaffe ich es einfach nicht.

    Wenn ich auf Enter klicke passiert nichts.

    Hier ist der Code wo das Keyboard eingestellt wird.
    Kann mir jemand helfen?

    Code:
    Sub Edt_Nummer_FocusChanged (HasFocus As Boolean)
        Edt_Nummer.SelectAll
        
    If HasFocus=True Then
            Edt_Nummer.SelectAll
            
    IME.SetCustomFilter(Edt_Nummer,Edt_Nummer.INPUT_TYPE_NUMBERS,"0123456789")
            Edt_Nummer.ForceDoneButton = 
    True
            
    IME.ShowKeyboard(Edt_Nummer)
        
    Else
            
    IME.HideKeyboard
        
    End If
    End Sub
    mfg
     
  2. mw71

    mw71 Active Member Licensed User

    moin,

    ohne das probiert zu haben, lass der erste Edt_Nummer.SelectAll weg (das sollte HasFocus immer auf True setzen).

    Kleine andere Frage, IME.SetCustomFilter sollte eigentlich nur einmal definiert werden müssen (sofern du das nicht zwischenzeitlich änderst).

    Viel Erfolg.
     
  3. danebn11

    danebn11 Member Licensed User

    Danke für die Antwort,

    Bringt leider keine Veränderung.

    Ich aktiviere ja mit SetCustomFilter die Zahleneingabe von 0-9, wenn ich eine der Zahlen weglösche reagiert das Keyboard bei dieser Zahl auch auf keine Eingabe.
    Muss vielleicht die Enter Taste bei "0123456789" irgendwie angehängt werden?
     
  4. pucki

    pucki Active Member Licensed User

    Wieso deklarierst du kein Nummern-Key-Board. (Beim Textfeld im Designer das Layout ändern).


    Da einfach auf OK klicken und es ist weg. Und es hat ein Ereignis "ENTER".

    Gruß

    Pucki
     
Loading...