Visual Basic 2015 (Application Windows Forms)

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:

---

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:

---

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:

---

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..

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 ;)

Bonjour François,

Excellent....merci.

Code:

---

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 !