TextboxRésolu

Question

Salut !

Je voudrais que dans un textbox, quand je met 5 lettres ou chiffre, un tiret se met automatiquement.
C'est en fait pour effectuer un code d'activation.

XXXXX-XXXXX





-





XXXXX





-





XXXXX





-





XXXXX

En fait, tout au long du code, tant que les caractère ateignent 5, un tiret se met au sixième et nous avons 25 caractère plus les 4 tirets.

Pouvez vous m'aider svp ?
Merci						d'avance

----------
OS        : Windows XP SP2
Platforme : VB 6.0 + SP6

Ok VB6.0 c'est pas net !

cs_Exploreur · Accepted Answer

re,

Bon c'est de la bidouille mais cela fonctionne comme tu veux ^^

Private Sub Text1_KeyPress(KeyAscii As Integer)


Static iNbChar As Integer
Static sChaine As String


If KeyAscii = 8 Then Exit Sub


sChaine = sChaine & Chr(KeyAscii)
iNbChar = iNbChar + 1




If iNbChar = 5 Then
   KeyAscii = 0
   Text1.Text = sChaine & "-"
   sChaine = sChaine & "-"
   Text1.SelStart = Len(Text1.Text)
   iNbChar = 0
End If


End Sub


A+
Exploreur

 Linux a un noyau, Windows un pépin

Sinsitrus · Answer

Sans espace dsl :









XXXXX-XXXXX





-





XXXXX





-





XXXXX





-





XXXXX

cs_sylvain230 · Answer

tu pourrais pas créer 5 zones de textes ?

lillith212 · Answer

Salut,

Je pense que tu vas devoir traiter ta zone de text à l'aide de la fonction mid
genre :
tu testes la longueur de ta chaine
si elle atteint 5 caracteres alors à la fin de ta chaine tu la concaténes avec un tiret

ou sinon en plus simple tu fait 5 zones de texte que tu bloques à une saisie à 5 et ensuite en traitement tu concatene l'ensemble de type :
dim clé as string
clé = vbnullstring
for i=0 to 4
   clé = clé & textbox1(i).text & "-"
next
Perso je choisirai plus cette deuxieme solution

slb
---------------------------------------------------------------
Il faut beaucoup donner pour recevoir un tout petit peu...
---------------------------------------------------------------

cs_Exploreur · Answer

Salut,

Une autre solution :

Private Sub Text1_KeyPress(KeyAscii As Integer)


Static iNbChar As Integer


iNbChar = iNbChar + 1




If iNbChar = 5 Then
   Text1.Text = Text1.Text & "-"
   Text1.SelStart = Len(Text1.Text)
   iNbChar = 0
End If


End Sub


A+
Exploreur

 Linux a un noyau, Windows un pépin

gillardg · Answer

bonjour,
MaskedTextBox est peut-être la solution

édite simplement la propriétée mask selon ton désir je crois que ça donnerait :
mTB1.Mask="00000-00000-00000-00000-00000"

Sinsitrus · Answer

Salut !
Merci a tous !

Explorer, j'ai opté pour ta solution, mais il y'a un problème au début, il me met 4 caractères et 1 tiret puis il continue normal juska me donner 1 tiret a la fin :

KQD8-DU9ZQ-OZ6EC-KIZEY-QSJY7-L

Sinsitrus · Answer

Par contre si je met I=1

Static I As Integer
I = I + 1
If I = 5 Then
   Text1.Text = Text1.Text & "-"
   Text1.SelStart = Len(Text1.Text)
   I = 1
End If

Il me met ca :
2132-1321-3213-1321-3213-1313

Ce qui est juste mais j'aurai opté pour les 5 caractères plutot que 4 !

cs_Exploreur · Answer

lol...car le premier carractère n'est pas encore validé dans le KeyPress ^^

A+
Exploreur

 Linux a un noyau, Windows un pépin

Sinsitrus · Answer

^o)

Sinsitrus · Answer

Salut !

Merci Exploreur ^^

Textbox

11 réponses

Votre réponse

Discussions similaires