VB6 Format

Résolu
cs_JeffC1977
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
- 8 mars 2006 à 16:37
addamsmercredi
Messages postés
121
Date d'inscription
dimanche 3 octobre 2004
Statut
Membre
Dernière intervention
27 juillet 2006
- 8 mars 2006 à 17:03
Bonjour à tous...

J'aimerais savoir comment on fait pour faire une condition à savoir sir mon textbox ressemble à 0,2244 alors aucune modification du textbos
Sinon si mon textbox ressemble à ,2244 alors mettre un 0 avant le virgule.

À noter qu'il y aura plein de possibilité du contenu du textbox, le 0,2244est un exemple...

If txtVertical <> "@,@@@@" Then
txtVertical.Text = "0" & txtVertical.Text
End If

J'ai essayé ce code mias ca ne fonctionne pas...

Qu'est ce que je ne fais pas de correct...

Merci d'avance..

3 réponses

addamsmercredi
Messages postés
121
Date d'inscription
dimanche 3 octobre 2004
Statut
Membre
Dernière intervention
27 juillet 2006

8 mars 2006 à 17:03
Tu peux comme ceci sans aucun test :


Text1.Text = Val(0 & Replace(Text1.Text, ",", "."))


Les 0 inutiles sont automatiquement supprimés.
3
cs_moustachu
Messages postés
1079
Date d'inscription
jeudi 14 novembre 2002
Statut
Membre
Dernière intervention
1 janvier 2012

8 mars 2006 à 16:44
Bonjour
Par exemple, tu peux faire

If left(trim(textbox1.text)=',' then
textbox1.text = "0" & textbox1.text
end if

++
Moustachu
0
cs_JeffC1977
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
4
8 mars 2006 à 16:55
Salut...

J'ai essayé ton exemple... hum ca ne fonctionne pas ce me sort comme erreur...

Erreur de compilation:
Nombre d'arguments incorect ou affectation de propriété incorrect

Voici le code..

If Left(Trim(txtVertical.Text) = ",") Then
txtVertical.Text = "0" & txtVertical.Text
End If

merci d'avance
0