Per prima cosa nella form inseriamo il controllo inputpanel, situato nella barra degli strumenti.
Aggiungiamo due caselle di testo e due label con le varie intestazioni.
Come mostrato in figura:
Per visualizzare la tastiera di un pocket pc, dobbiamo impostare la proprietà Enabled a true.
Quindi se vogliamo visualizzare la tastiera quando la casella del nome prende il focus dobbiamo scrivere il seguente codice:
Private Sub txtnome_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtnome.GotFocus
InputPanel1.Enabled = True
End Sub
Mentre se vogliamo nascondere tale tastiera, dobbiamo impostare a false la proprietà Enabled, come nell’esempio riportato qui di seguito:
Private Sub txtnome_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtnome.LostFocus
InputPanel1.Enabled = False
End Sub
C’è da notare una cosa che se la tastiera è aperta e si tenta di chiudere il programma (tramite la X della form o tramite il metodo close della form) viene generato un errore.
Per risolvere questo problema basta impostare il focus su un altro oggetto quale per esempio un pulsante.
Di seguito è riportato un esempio:
Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
btnesci.Focus()
End Sub
Tramite la parola download potete scaricare il file d'esempio
Download
Nessun commento:
Posta un commento