Discussion :

[Vincinho]

Bonjour tout le monde !!

Je suis bloqué sur un problème qui semble anodin. Un utilisateur doit saisir différentes informations qui formeront un code article. Il y a notamment la saisie d'un poids qui doit etre codé sur 4 caractères. J'ai fais cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim nb As Integer = 0
        nb = Len(TextBox2.Text)
        If nb = 1 Then
            pds = "000" + TextBox2.Text
        End If
 
 
res = "TRANS" & typetrans & dprt & "-" & pds
        MsgBox("code : " & res)

Mais de cette manière il me supprime les zéros avant la valeur de TextBox2.text.
Comment pourrais je faire pour les conserver ?

Merci beaucoup de votre aide !!!

[methylene]

Passe en String, le type Integer ne conserve en effet pas les 0. Ton pds que tu dois déclarer plus haut dois être déclaré en Integer, donc déclare le en String comme indiqué dans le code ci-dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim pds as String

[mohamed301084]

Ta variable pds doit être déclarée en String et non en Type numerique

EDIT : dzl doublon mais au moins la t deux fois plus sur

[Vincinho]

En fait je viens finalement de m'apercevoir qu'un collègue avait rajouté une ligne de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

pds = TextBox2.Text

qui fait double emploi et enleve les 0. Ma variable etait bien declaré en String

Merci de votre aide