destro del mouse sul controllo casella di testo che si desidera controllare e selezionare Proprietà . Fare clic sull'icona di eventi , che assomiglia a un fulmine . Scorrere verso il basso per l'evento KeyDown e fare doppio clic accanto ad essa per creare l'evento
2
Aggiungere la seguente variabile globale nel settore delle dichiarazioni di seguito Classe Dim NotANumber come booleano Copia e incolla il seguente codice all'interno dell'evento KeyDown per il controllo casella di testo : NotANumber = False e.KeyCode < Keys.D0 OrElse e.KeyCode > Keys.D9 Poi e.KeyCode < Keys.NumPad0 OrElse e.KeyCode > Keys.NumPad9 Poi e.KeyCode < > Keys.Back Poi NotANumber = True End If End If End If Se Control.ModifierKeys = Keys.Shift Poi NotANumber = True End If Clicca gli Eventi casella a discesa e selezionare KeyPress per creare l'evento procedura . Copiare il seguente codice all'interno di questa routine evento : NotANumber = True Then e.Handled = True End If Press " F5 " per eseguire il programma. La tua casella di testo accetta solo numeri .
3
4
5
Informazioni correlate
Programmazione © www.354353.com