Permettre de saisir dans un textbox que des caractère spécifié .

Commenter

Contenu du snippet

Permettre de saisir dans un textbox que des caractère spécifié dans un tableau .

Source / Exemple : 


Private Sub test_KeyPress(KeyAscii As Integer)

Dim i As Integer ' la varialbe :) 
Dim chiffres ' le tableau 

nums = Array(65,12,58,69,45,65,26,32)  ' le tableau contenant le code ASCII des caractères permis .

For i = LBound(nums) To UBound(nums) ' on fé une boucle 
   
  If KeyAscii = nums(i) Then ' on teste le caractère      
    
              GoTo fin 'ca corresponds ! c permis alors on l'affiche 
   
  End If 

Next i ' ca correspond pas on compare alors avec le caractère permis suivant 

'Eh ben ca correspond pas du tout donc on n'affiche pas ! 
KeyAscii = 0 ' on affecte la valeur 0 au keyascii 
Beep' on emet un beep

fin: ' la finnnnn
End Sub

Conclusion :


Laissezzzzzzzzzzzzzzz Vosssssssss Commentaiiiiiiiiires !!!!!!

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.