verification d'un CINRésolu

Question

Salut tout le monde 

Est ce que quelqu'un peut me donner le code de verification d'un CIN :
dans ce champ text je veux ue lorsque tu tape une lettre ou autre chose qu'un numero , sa ne s'ecrit pas en plus je veux que la limite de ce qhamps ne dépasse pas 8num sa veux dire lorsque je tape le 9eme numero il ne s'ajoute pas .

Merciiiiiiii d'avance

jmfmarques · Accepted Answer

Salut,

en ce qui concerne la longueur maximum saisissable, tu as pour toi, qui te tend les bras, la propriété MaxLength d'une Texbox !...
En ce qui concerne la saisie limitée à des numériques, tu as une foultitude de soiurces et de discussions avec solution (dont de moi encore très récemment) sur ce forum.
Tu as pour celà, qui te tend les bras également, un magnifique outil : le moteur de recherche...
Ce sujet est traité au moins une fois par semaine !

cs_Exploreur · Answer

Salut et re-bonsoir Jmfmarques,

Tu peux aussi regarder avec ton aide, LEN .....Après ton imagination va débordée....

A+
Exploreur

surfeurX · Answer

tu veu pa faire le moindre effort on diré, ke dieu te pardonne 

tien voila un pti code pour bloquer les caractère pour les otre tu as ce k'il fo ne soit pa tro gourmant 



Private

Sub TextBox1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>






        
If (e.KeyChar.IsNumber(e.KeyChar)) = FalseThen






            

e.Handled = True






        
End
If







    
End
Sub

jmfmarques · Answer

Et moi... (je suis vicieux...) je t'y fiche un zouli zouli copié-collé non géré par l'événement Keypress ...

surfeurX · Answer

alors tu gerera differement avec le textChanged ;)

mortalino · Answer

Salut,

surfeurX,
1/ évite le sms s'il te plait
2/ ton code est en vb  .Net, il est en VB6

King_moez, 
tu peux trouver sur e site de Codyx des snippets afin de rendre un TextBox qu'avec des saisies numériques.
Concernant la longueur maximum, jmfmarques t'as filé la bonne réponse.

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

cs_Exploreur · Answer

Salut 792207  surfeurX,

Il y a des truc bizarre...

Private Sub Text_KeyPress(KeyAscii As Integer)


 If Not IsNumeric(Chr(KeyAscii)) Then key
           KeyAscii  = 0
 End if

End Sub


A+
Exploreur

jmfmarques · Answer

Oui ? et Comment ?
Chercher la solution Jmf (donnée très récemment et sans même toucher à KeyPress)

cs_Exploreur · Answer

Salut,

Tu vois Jmfmarque tu aurai du en faire un snippet...Malheureusement je suis pas sur mon pc, et ne peux la lui montrer...

A+
Exploreur

mortalino · Answer

La meilleure solution est celle d'EBArtSoft : Const ES_NUMBER As Long = &H2000& Const GWL_STYLE As Long = -16 Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Function SetTextBoxNum(ByRef Obj As Object) As Boolean SetWindowLong Obj.hwnd, GWL_STYLE, GetWindowLong(Obj.hwnd, GWL_STYLE) Or ES_NUMBER End Function ' ==== Utilisation : 'Private Sub Form_Load() ' Call SetTextBoxNum(Text1) 'End Sub ~ Mortalino ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, ~Provençal, le Gaulois~

cs_Exploreur · Answer

Trouvé...Ouff....

Private Sub Text1_Change()
  Static titi As String
  If Not IsNumeric(transform(Text1) & "1") Then
    Text1.Text = titi
    Text1.SelStart = Len(Text1.Text)
  End If  If InStr(Text1.Text, ",") > 0 Then Text1.Text titi: Text1.SelStart Len(titi): Exit Sub
  titi = Text1.Text
End Sub
Private Function transform(ctrl As TextBox)
  titi = ctrl.Text
  For i = 1 To Len(titi)
    If Mid(titi, i, 1) = "." Then
       Mid(titi, i, 1) = ","
    End If
  Next
  transform = titi
  DoEvents
End Function

A+
Exploreur

cs_Exploreur · Answer

Mal poli que je suis....Bonsoir Mortalino...

A+
Exploreur

mortalino · Answer

Idem, donc Salut à tous  

Bon beh comme quoi, des solutions, il en existent quelques-unes 

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

jmfmarques · Answer

Bonsoir Mortalino

Tu crois ?

Regarde : (et je peux traiter de la même façon avec séparateur virgule, avec séparateur point ... ou avec les 2... je finirai par le déposer, ce snippet  ) ert tu peux toujours essayer de copier-coller ce qui n'est pas acceptable)

Private Sub Text1_Change()
  Static titi As String
  If Not IsNumeric(Text1.Text & "1") Then
    Text1.Text = titi
    Text1.SelStart = Len(Text1.Text)
  End If
  titi = Text1.Text
End Sub


 


A Exploreur : ici : plus simple encore car même pas besoin de traiter les virgules et/.ou les points ...

mortalino · Answer

Bonsoir Jacques,

j'ai réussi à mettre
123.4E3
Avec ton code 

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

cs_Exploreur · Answer

Salut,

Ben c'est un lien que je vais garder au chaud......

A+
Exploreur

mortalino · Answer

Et avec le code d'EB, le copier / coller fonctionne.
Le point ou la virgule ne s'affiche pas 

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

jmfmarques · Answer

Je suis allé trop vite, en effet...
Je reviens donc...
3 minutes, STP

cs_Exploreur · Answer

Salut king_moez,

Tu as valider ma réponse, mais ce n'est pas moi qui est fait le code, c'est Jmfmarques..

A+
Exploreur

jmfmarques · Answer

Coucou Mprtaliono (désolé : le téléphone m'a interrompu) !...

voilà donc :

Private Sub Text1_Change()
  Static titi As String
  toto = InStr(Text1.Text, ",") + InStr(Text1.Text, ".")
  If Not IsNumeric(Text1.Text & "1") Or (toto > 0 Or Text1.Text Like "*[A-Z]*") Then
    Text1.Text = titi
    Text1.SelStart = Len(Text1.Text)
  End If
  titi = Text1.Text
End Sub

mortalino · Answer

Nop,

123456789012345678d

le d minuscule rentre 

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

jmfmarques · Answer

Pardon un petit z au lieu d'un grand Z dans Like "*[A-z]*")  bien sur (pour éviter le e également

jmfmarques · Answer

Il n'entre plus, maintenant !!!

cs_Exploreur · Answer

Salut Jmfmarques,

Je viens d'essayer, et il y à un truc bizarre, il arrive à prendre 1 seule fois la lettre "f" en minuscule...

A+
Exploreur

cs_Exploreur · Answer

Euh...J'ai rien dit..lol

A+
Exploreur

mortalino · Answer

Oui, mais les séparateurs décimaux non plus 

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

jmfmarques · Answer

Que racontes-tu là ?
Il était justement questionde ne pas les accepter !
Tu veux la même avec les séparateurs décimaux ?
Pas de problème ...
Tu veux ?

mortalino · Answer

J'ai pas fait gaffe qu'il ne les voulait pas.
Mais oui, bien volontier 

Désolé de te filer du fil à retordre.

Sinon, il faut aussi penser au contrôle MaskedEditBox

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

jmfmarques · Answer

Coucou ! Alors voilà : Private Sub Text1_Change() ' ======tu choisis là ton séparateur, comme tu l'entends, entre la , et le . ' =====il t'accepteras mêle l'espace comme séparateur de milliers (je peux aussi l'empêcher, 'si tu veux force_sep = "," ' <<<<==== ici Static titi As String If Not IsNumeric(transform(Text1) & "1") Or (toto > 0 Or Text1.Text Like "*[A-z]*") Then Text1.Text = titi Text1.SelStart = Len(Text1.Text) End If If force_sep <> "" Then If force_sep "," Then sep "." Else sep = "," If InStr(Text1.Text, sep) > 0 Then Text1.Text titi: Text1.SelStart Len(titi): Exit Sub End If titi = Text1.Text End Sub Private Function transform(ctrl As TextBox) titi = ctrl.Text For i = 1 To Len(titi) If Mid(titi, i, 1) = "." Then Mid(titi, i, 1) = "," End If Next transform = titi DoEvents End Function

jmfmarques · Answer

Bon...
C'est l'heure de mon dodo...
Si tu veux, Mortalino, je t'expliquerai demain par MP comment, maintenant, on peut carrément laisser le chois à l'utilisateur (de son séparateur, comme il l'entend, avec son confort,  et sans l'obliger à "renseigner" sur ce choix). L'outil comprendra seul...
L'intérêt ?
Il saisit à sa convenance.
Bien évidemment : on bascule toujours (si l'on doit ensuite sauvegarder) avec le séparateur ., quel que soit celui qu'il aura saisi... et toujours sans la moindre faille...
Bonne nuit à tous.

mortalino · Answer

T'en fais pas pour la soluce, je l'ai déjà 
Suffit de changer un opérateur : toto < 0

Bonne soirée / nuit à vous tous !

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

mortalino · Answer

Arf, j'avais pas vu le dernier message de la page précédante.
Tu te donnes du mal la modif en rouge depuis ton code initial suffit :

Private Sub Text1_Change()
  Static titi As String
  toto = InStr(Text1.Text, ",") + InStr(Text1.Text, ".")
  If Not IsNumeric(Text1.Text & "1") Or (toto < 0 Or Text1.Text Like "*[A-z]*") Then
    Text1.Text = titi
    Text1.SelStart = Len(Text1.Text)
  End If
  titi = Text1.Text
End Sub

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

jmfmarques · Answer

Ouais...

J'étais plutôt mal en point, hier soir ...

Voilà ce qui suffit pour des chiffres uniquement, sans séparateur :

Private Sub Text1_Change()
  Static titi As String
  If Not Text1.Text & "1" Like "*[0-9]#" And Len(Text1.Text) > 0 Then
    Text1.Text = titi
    Text1.SelStart = Len(Text1.Text)
  End If
  titi = Text1.Text
End Sub

jmfmarques · Answer

Et encore plus simple, donc (je me réveille) :

Private Sub Text1_Change()
  Static titi As String
  If "1" & Text1.Text & "1" Like "*[0-9]#" Then titi = Text1.Text  Text1.Text titi: Text1.SelStart Len(Text1.Text)
End Sub

jmfmarques · Answer

Bon...
Je vais faire et déposer une source traitant la saisie :
- des numériques sans séparateur
-des nombres avec séparateur et choix de séparateur
- de caractères alphapétiques uniquement et 
    - a) en minuscules uniquement
     - b) en majuscules uniquement
- de caractères alphabétiques et numériques uniquement
le tout avec l'événement change, acceptant les effacements arrières et contrôlant la cohérence des copier-coller.

Je déposerai plus tard la même chose en ce qui concerne les dates et heures.

A +

cs_Exploreur · Answer

Salut Jmfmarques,

Je suis impatient de voir cette source....

Bonne prog

A+
Exploreur

jmfmarques · Answer

Voilà...
Je viens de la déposer...

Verification d'un CIN

37 réponses

Votre réponse

Discussions similaires