[VB6] Saisie automatique d'une date

Saisie automatique d'une date [VB6] - Programmation

Marsh Posté le 22-02-2002 à 16:28:51    

bonjour !! :hello:  
 
je cherche a faire une sorte de saisie automatique en VB, cad que l'utilisateur tappe "200202" et ca affiche "20/02/2002"
 
g essayer avec format(text, "/" ) mais ca a pas l'air de marcher : il mets juste un / a la fin du texte ...
 
si qq avait une idee ... il est le bienvenue  :)  :jap:


---------------
Ca marche pas sauf des fois ........
Reply

Marsh Posté le 22-02-2002 à 16:28:51   

Reply

Marsh Posté le 22-02-2002 à 16:31:46    

et version bourrin : tu recupere la chaine tu ajoute les / et tu rnvoie le tout?

Reply

Marsh Posté le 22-02-2002 à 16:44:50    

ben oui mais g pas trouve le myen de savoir ou je me trouve dans la saisie, un genre de compteur de caractere dans le TextBox ...
 
parceque pour faire ca il faut faire :
 
si on est au troisieme ou au sixieme caractere : ajouter un / et incrementer le compteur
 
mais pour faire le compteur  :(


---------------
Ca marche pas sauf des fois ........
Reply

Marsh Posté le 22-02-2002 à 19:44:27    

Il existe un composant "MaskEdit" qui fait ça très bien


---------------
Plus un ordinateur possède de RAM, plus vite il peut générer un message d'erreur.
Reply

Marsh Posté le 24-02-2002 à 16:20:51    

heu ... desole mais g pas trouve ...
 
tu pourrait etre un peu plus precis STP ??
 
merci :jap:


---------------
Ca marche pas sauf des fois ........
Reply

Marsh Posté le 24-02-2002 à 16:49:40    

bref...tu traduit ta chaine numérique en chaine de caractére
puis avec la fonction "instr" tu découpera ta chaine en faisany en sorte  de récuper d'abord 02 puis 24 et enfin 2002..
 
A chaque récup tu mets la valeur recus dans une variable et tu ajoute "/" et ainsi de suite pour la seconde récup que tu feras. il n'y aura qu'a la dernière ou de n'aura pas a remettre le "/"
 
dim a,d,e,f,g
 
num1 = 02242002
texte1 = val(num1) // texte1= "02242002"(commentaire)
 
c = instr(...   <---- A toi de mettre les instructions car je ne me souviens plus, sa récupére seulement un morceau de la chaine de caractère..)
 
a = c & "/"
 
d = inst(...
e = a + d & "/"
 
f = instr(...
g = f + e
 
msgbox("la chaine converti est :" & g)
 
c'est une méthode assez barbare mais qui marche ! :D  
autremen tu as www.vbfrance.com, tu as pas mal de chose pour t'amuser !  :D

 

[jfdsdjhfuetppo]--Message édité par macray--[/jfdsdjhfuetppo]

Reply

Marsh Posté le 24-02-2002 à 17:34:57    

En fait, dans un de tes sous-menus de VB, tu as "Références...". Tu ouvres ce sous-menus et dans la liste,tu cherches un composant qui porte le nom de "maskEdit" (je connais plus la dénomination exacte).
 
Ce composant te permet d'avoir une TextBox avec un format de saisie...
 
Si tu ne le trouves pas dans ta liste, c'est que le composant OCX n'est pas installé sur ta machine. Voici un site où tu pourras le télécharger: http://www.mauro.sistel.it/ocx/activex.htm


---------------
Plus un ordinateur possède de RAM, plus vite il peut générer un message d'erreur.
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed