German Keyboard Enter Button

[danebn11]

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?

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

 

[mw71]

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.

 

[danebn11]

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?

 

[pucki]

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