|
 |
 |
 |
| |
Permet de limiter les caractères à taper 
Paramètres en entrée : ToucheEntree (entier),ChaineValide (chaîne),Editable (Booléen)
Paramètres en sortie : la touche de sortie (entier)
Description : permet de limiter les touches à taper
Exemple : keyascii = TouchesValides(keyascii, "0123456789/-", True)
que l’on place dans l’événement KeyPress d’une TextBox
Function TouchesValides(ToucheEntree As Integer, ChaineValide As String, Editable As Boolean) As Integer
Dim ValidateList As String
Dim ToucheSortie As Integer
If Editable = True Then
ValidateList = UCase(ChaineValide) & Chr(8)
Else
ValidateList = UCase(ChaineValide)
End If
If InStr(1, ValidateList, UCase(Chr(ToucheEntree)), 1) > 0 Then
ToucheSortie = ToucheEntree
Else
ToucheSortie = 0
Beep
End If
TouchesValides = ToucheSortie
End Function
|
|
 |
|
 |
|
IDDN Certification
