Discussion :

[BRUNO71]

Bonjour,

En espérant avoir posté au bon endroit ma demande, car je débute avec cette application...c'est une première pour moi....
J'ai créer un modèle VB (Application Windows Forms).

Mes deux questions :

J'ai un textbox et je tente cette procédure...

Code :

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

1
2
3
4
5
 
   If Not (IsNumeric(TextBox1.Text)) Then
            Label_erreur.Text = "Vous devez taper une valeur numérique..."
            Exit Sub
        End If

Là, tout va bien.
Mais j'aimerais ajouter jusqu'à 4 zéros automatiquement devant (si il n'y a qu'un chiffre), je m'explique...
Dans ACCCESS je faisait :

Code :

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

1
2
 
Text = Format(Me.Txt, "00###")

En VB.NET ça ne fonctionne pas, j'ai regardé sur le Net et j'ai trouvé ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
        'remplit une valeur entière avec cinq zéros non significatifs.
        Dim value As Integer = TextBox1.Text
        Dim decimalLength As Integer = value.ToString("D").Length + 5
        Dim hexLength As Integer = value.ToString("X").Length + 5
        Console.WriteLine(value.ToString("D" + decimalLength.ToString()))
        Console.WriteLine(value.ToString("X" + hexLength.ToString()))
 
 MsgBox(TextBox1.Text)

Mais, aucun résultat....comment gérer ma TextBox dans ce cas ?

Ma deuxième question concerne une ListBox, une fois les données affichées, comment ouvrir le document choisi à l'aide d'un double clic ?

Dans l'attente merci..

[François DORIN]

Bonjour,

Je t'invite à regarder la MSDN sur les formats personnalisés possibles pour la méthode ToString pour un entier.

Ici, quelque chose comme Value.ToString("0000") devrait répondre à ton problème

[BRUNO71]

Bonjour François,

Excellent....merci.

Code :

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

1
2
3
4
 
        Dim value As Integer
        value = TextBox1.Text
        MsgBox(value.ToString("00000"))

Concernant la ListBox, aurais-tu un lien s'il te plaît, à suivre également ?

Merci

Et, bon appétit !