Keypress, e.keychar

Fermé

geekon Messages postés 25 Date d'inscription lundi 9 juillet 2012 Statut Membre Dernière intervention 8 janvier 2016 - Modifié par geekon le 11/05/2014 à 18:46
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 12 mai 2014 à 17:51

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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
12 mai 2014 à 17:51

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))

Newsletters