begin process at 2012 02 10 01:40:12
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

 > PERMETTRE DE SAISIR DANS UN TEXTBOX QUE DES CARACTÈRE SPÉCIFIÉ .

PERMETTRE DE SAISIR DANS UN TEXTBOX QUE DES CARACTÈRE SPÉCIFIÉ .


 Information sur la source

Note :
10 / 10 - par 1 personne
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Niveau :Débutant Date de création :09/06/2004 Date de mise à jour :10/06/2004 00:11:23 Vu :2 646
Auteur : akrame

Ecrire un message privé
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

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

Source

  • 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
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 !!!!!!


 Sources de la même categorie

Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo
Source avec Zip Source .NET (Dotnet) PENSE BÊTE par alpha5
Toutes les sources de la catégorie Divers

Commentaires et avis

Commentaire de Neo.balastik le 09/06/2004 22:24:38

Oulala que c'est compliqué ;O)  Et l'utilisation d'un Goto !!!  Faut oublier cela.

Voici plus simple un utilisant la fonction IsNumeric:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then
    KeyAscii = 8
ElseIf IsNumeric(Chr(KeyAscii)) = False Then
    KeyAscii = 0
End If

End Sub

Courage

Commentaire de akrame le 10/06/2004 00:12:27

Je coirs que comme ca c mieu :D

Commentaire de Sirocooo le 10/06/2004 09:59:35

On ne dit pas "on fé" mais "On fait"
Tu peux remplacer "goto fin" par "exit for"
Plutôt d'utiliser une boucle For Next, tu peux essayer d'utiliser la
fonction InString()

Commentaire de dagdoug le 10/06/2004 11:56:25

et si on fait un copier-coller de caractères interdits dans le TEXTBOX ca marche pas !!

Commentaire de salmen le 11/06/2004 08:37:12

tous ça est une idée mais moi je préfére cette méthode :

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim allowedKeys As String
allowedKeys = "0123456789-,." & Chr(8)
If InStr(allowedKeys, Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

cette source consiste à  rechercher le caractère entré, dans une chaîne contenant tous les caractères autorisés. Si ce caractère n'est pas dans la chaîne, rien n'est affiché.

Commentaire de frezz13 le 01/12/2006 11:10:51

Bonjour, Pour ma part j'utilise le code suivant avec les commentaires:

Private Sub TextRXamat_KeyPress(KeyAscii As Integer)
Dim chaine
chaine = "0123456789" 'ou d'autre caracteres
If InStr(1, chaine, Chr(KeyAscii)) = 0 And Not KeyAscii = 8 Then
'KeyAscii = 8 est la touche Del
'On bloque ce qui n'est pas compris dans la variable chaine sauf
'la touche Del
MsgBox ("Erreur : chiffre uniquement"), vbExclamation
    KeyAscii = 0  'On assign un KeyAscii vide à la text box
Ma_box.text ="" 'vide la box
End If
End sub

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


iPod touch 3rd Generation (64 Go)
Entre 374€ et 379€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Single Large Rock Formation in Monument Valley
Photo Happy Bright Landscape WIth Butterflies 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,406 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)