begin process at 2012 02 11 11:41:54
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

 > VALIDATION DE SAISIE POUR TEXTBOX

VALIDATION DE SAISIE POUR TEXTBOX


 Information sur la source

Note :
6,5 / 10 - par 4 personnes
6,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Classé sous :saisie, textbox Niveau :Débutant Date de création :28/05/2001 Vu :9 504
Auteur : Patrice

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

 Description

Admettons que vous ne devez accepter dans un contrôle TEXTBOX
uniquement des chiffres et le séparateur décimal, cette instruction
toute simple, n 'acceptera que les valeurs indiquées dans l'instruction LIKE
(instruction SQL ).

Source

  • Private Sub Text1_KeyPress(KeyAscii As Integer)
  • If Not Chr(KeyAscii) Like "[0123456789.]" Then KeyAscii = 0
  • End Sub 
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not Chr(KeyAscii) Like "[0123456789.]" Then KeyAscii = 0
End Sub

 Conclusion

Comme vous avez pu le remarquer le code se place dans l'événement KeyPress du contrôle TEXTBOX...


 Sources du même auteur

Source avec Zip CASSER LES MACROS COMPLEMENTAIRES EXCEL
Source avec Zip DÉPLACER UNE IMAGE TROP GRANDE DANS UN PICTUREBOX TROP PETIT
Source avec Zip SPLASH DIFFÉRENT
Toutes les sources de Patrice

 Sources de la même categorie

Source avec Zip TEXTBOX EN NUMÉRIQUE par 320C
Source avec Zip TEXTBOX EN NUMÉRIQUE par 320C
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
Toutes les sources de la catégorie Divers

 Sources en rapport avec celle ci

Source avec Zip TEXTBOX EN NUMÉRIQUE par 320C
Source .NET (Dotnet) CONTROLE DE SAISIE TEXTBOX SOUS VISUAL STUDIO EXPRESS 2005 par Thomeux
Source avec Zip Source avec une capture TEXTBOX EVOLUTION par bouv
Source .NET (Dotnet) LIMITER LA SAISIE À CERTAINS CARACTÈRES/TOUCHES DANS UN TEXT... par hvb
EMPECHER LA SAISIE DANS UNE TEXTBOX par pepito

Commentaires et avis

Commentaire de BELLIV le 26/12/2001 09:39:10

Pas grave il suffit d'autoriser les touches backspace et ret. arr. comme suit :
Private Sub Text1_KeyPress(KeyAscii As Integer)

If Not Chr(KeyAscii) Like "[0123456789.]" Or Keyascii<>toto Then KeyAscii = 0

où toto est le code du backspace par ex. , euh je me souviens plus le code :) (46 peut être)

Commentaire de iannick le 08/01/2003 03:05:20

Simple et efficace.

Commentaire de segaroux le 12/04/2003 11:52:44

pas mieux !

Commentaire de Fabio972 le 27/01/2004 13:30:02

Pas mal !!! Je ne connaissais pas !

Merci de l'astuce (du coup je remonte ta note car depuis le temps que je code en VB je l'avais jamais vu celle-là ;-)

Commentaire de Fabio972 le 27/01/2004 13:49:19

Petite participation (merci à toi, je rends à César...) :

Pour éviter la double saisie du caractère décimal (. ou ,) :

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 46, 44     ' 46 -> . | 44 -> ,
            If InStr(Text1.Text, ",") > 0 Or InStr(Text1.Text, ".") > 0 Then KeyAscii = 0
        Case Else
            If Not Chr(KeyAscii) Like "[0-9,.]" And KeyAscii <> Asc(vbBack) Then KeyAscii = 0
    End Select
End Sub

Commentaire de threadom le 22/03/2008 17:12:25

4 ans après ...

Private Sub txtNumber_KeyDown(KeyCode As Integer, Shift As Integer)
    If (KeyCode = vbKeyDelete) Then
        If Len(txtNumber) < 2 Then
            txtNumber.Text = "0"
            KeyCode = 0
        End If
    End If
End Sub

Private Sub txtNumber_KeyPress(KeyAscii As Integer)
    If (KeyAscii = vbKeyBack) Then
        If Len(txtNumber) < 2 Then
            txtNumber.Text = "0"
            KeyAscii = 0
        End If
    Else
        If Not Chr(KeyAscii) Like "[0123456789.]" Then
            KeyAscii = 0
        ElseIf Chr(KeyAscii) = "." Then
            If InStr(txtNumber, ".") Then
                KeyAscii = 0
            End If
        End If
    End If
End Sub


Y'a surement plus propre et ect... mais bon. Personne je m'occupe des dates donc pas besoin de gérer le point.

Commentaire de megamario le 13/02/2010 20:04:12

Bonjour à vous, Pourriez vous indiquer comment mettre en application votre code car j'en aurai bien besoin et je bloque.

Je suis en VB.net 2008

Si je prend le code tel qu'elle j'ai des erreurs

J'ai nommer mon TxtBox en txtNumber J'ai declarrer des variables vbKeyDelete et vbKeyBack en integer

Lorsque je crée un évènement KeyDown et Keypress

J'ai :
    Private Sub txtNumber_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtNumber.KeyDown
    End Sub
et
    Private Sub txtNumber_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNumber.KeyPress
    End Sub

Si je le change rien ne se passe. Je suppose qu'il faut que j'utilise l'un des arguments passé dans la fonction, merci de m'eclairer

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Comment empêcher la saisie dans la textbox d'une feuille de dialogue? [ par Didine ] Bonjour,Je dois modifier en catastrophe un programme VB et n'ayant aucune formation au langage objet j'avoue que je ne trouve pas comment empêcher l'u TextBox [ par flyman ] Dans un textbox je veux saisir la valeurd'un champ (par exemple: 15564205113). J'aimerai pouvoir attribuer un mask àmon textbox de façon que la saisie pb saisie de texte dans textbox [ par footyak ] bonjour, j'ai un pb: lorsque je saisis la valeur numérique d'un résultat et qu'il ya une virgule , le prog ne prend que la première valeur avant la vi saisie d'un entier dans une Textbox sous le formt 2.33 et non 2,33 [ par musclorbobo ] Je suis 1 débutant sous VB.Je suis en train de faire un convertisseur Franc/Euro.Lorsque je tape dans ma textbox un nombre sous la forme 9.99999 (avec Probleme de saisie dans les textbox [ par flipote ] bonjour,Mon probleme est le suivant:Lorsque l'on doit remplir une textbox je voudrai avoir le code pour qu'avant que s'effectue un calcul et dc un aff saisie dans textbox [ par SesechXP ] Salut!Je voulais juste savoir si on pouvait empêcher la saisie de caractères alphabétiques et la saisie d'un point à la place d'une virgule... Affichage d'une date dans un textbox [ par micaloul ] Salut,En VB, comment fait-on pour afficher une date saisie au formatJJMMAAAA en JJ/MM/AAAAC'est à dire afficher en temps réél les "/"ex: je tape "2512 controle de saisie dans une textbox [ par emeraudes ] bonjoursur visual studio .net en visual basicos: xindows xpje voudrais faire un controle de saisie dans une textbox enfin plutot interdire de rentrer Compter le nb de caractères dans un textbox [ par thomrico ] Bonjour,Je souhaiterais créer une textbox ou un label qui compte le nombre de caractère saisie dans une autre textbox, ceci afin de contrôler la longu


Nos sponsors


Sondage...

Comparez les prix


Apple iPhone 4 Noir (16 Go)
Entre 0€ et 0€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
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 : 2,356 sec (3)

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)