Keypress, e.keychar

geekon Messages postés 25 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour, 


Private Sub TXTlangue_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TXTlangue.KeyPress

If (e.KeyChar < "0" Or e.KeyChar > "9") And e.KeyChar <> Chr(8) Then

e.KeyChar = ""

End If

End Sub

Je n'arrive pas à comprendre la condition 
If (e.KeyChar < "0" Or e.KeyChar > "9") And e.KeyChar <> Chr(8) Then

e.KeyChar = ""



Private Sub TXTlangue_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TXTlangue.LostFocus

If Val(TXTlangue.Text) > 20 Or Val(TXTlangue.Text) < 0 Then

MsgBox("La note doit être entre 0 et 20")

TXTlangue.Focus()

End If

End Sub
comment est- ce qu'on peut faire une telle entête de fonction (textbox_LostFocus()),
je sais qu'en cliquant au dessus d'un textbox, l'entete de la fonction est textbox_textchanged()... et je ne vois pas l'interêt de l'utiliser.
Merci d'avance de bien vouloir m'aider.

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

et je ne vois pas l'interêt de l'utiliser. c'est un point de vue, mais cela existe: https://www.cjoint.com/?DEmrTQ3948Y

l'objet de 
Private Sub TXTlangue_KeyPress
est de ne saisir que des chiffres pas de lettres ou autres caracteres alphabetique et pas d'effacement arriere (backspace: chr(8))
0