Italian [B4I] Abbassare la tastiera

[Aldo's]

Buon sabato mattina,
ho una pagina con diverse TextField e i pulsanti "Salva" e "Annulla" rimangono sotto la tastiera, ho un modo per nascondere la tastiera?
Grazie

 

[Alexander Stolte]

Perché nascondere la tastiera invece di posizionare i pulsanti sopra la tastiera?

Private Sub B4XPage_KeyboardStateChanged (Height As Float)
    If Height = 0 Then
        Dim SafeAreaBottom As Float = 0
    #If B4I
        SafeAreaBottom = B4XPages.GetNativeParent(Me).SafeAreaInsets.Bottom
    #End If
    
        xlbl_Save.Top = Root.Height - SafeAreaBottom - xlbl_Save.Height
        xlbl_Abort.Top = Root.Height - SafeAreaBottom - xlbl_Abort.Height
    Else
        xlbl_Save.Top = Root.Height - Height - xlbl_Save.Height
        xlbl_Abort.Top = Root.Height - Height  - xlbl_Abort.Height
    End If
End Sub

Oppure si può chiudere la tastiera:

B4XPages.GetNativeParent(Me).ResignFocus

 

[Star-Dust]

Buon sabato mattina,
ho una pagina con diverse TextField e i pulsanti "Salva" e "Annulla" rimangono sotto la tastiera, ho un modo per nascondere la tastiera?
Grazie

STANDARD

Private Sub CloseKeyboard
    Log("Oper DropDown")
    #if B4A
        Dim Ph As Phone
        Ph.HideKeyboard(Activity)
    #else if b4i
        Page1.RootPanel.As(NativeObject).RunMethod("endEditing:", Array(True))
    #End If
End Sub

B4XPages

Private Sub CloseKeyboard
    Log("Oper DropDown")
    #if B4A
        Dim Ph As Phone
        Ph.HideKeyboard(B4XPages.GetManager.GetTopPage.Parent.NativeType)
    #else if b4i
        Root.As(NativeObject).RunMethod("endEditing:", Array(True))
    #End If
End Sub