Private Sub ta_textbox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Text1.KeyPress If e.KeyChar <> ChrW(Keys.Back) Then ' pour accepter l'effacement arrière If (e.KeyChar.ToString >= "0" And e.KeyChar.ToString <= "9") Then '..... c'est un caractère numérique ===>> tes instructions Else '.... ce n'est pas un caractère numérique ==>> tes instructions ' je ne connais pas du tout VBnet, mais je pense (à vérifier) qu'il ' suffirait de modifier alors la valeur de e (peut-être avec e=False ?) ' pour annuler l'effet de cette touche ? End If End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question