[VB 2008] Formattazione dei numeri

[B3STYL3]

Ciao ragazzi..
Ho bisogno di generare numeri casuali minori di mille che siano scritti come

0001
0010
0100

e non come 1, 10 e 100.. ho già provato con:

Dim i As Integer

For i = 1 To 999
Textbox2.Text = Format(i, "00#")
Next i

(i numeri devono essere generati dal textbox 2 al 6° e ho riscritto il codice, cambiando ovviamente il numero del textbox..)
Ma non funge! Non so che fare..

[MarcoGG]

Originariamente inviato da B3STYL3

Ho bisogno di generare numeri casuali minori di mille che siano scritti come

0001
0010
0100

e non come 1, 10 e 100.. ho già provato con:

Dim i As Integer

For i = 1 To 999
Textbox2.Text = Format(i, "00#")
Next i

Quelli non sono numeri. Se desideri una formattazione come quella, la puoi ottenere solo se interpreti il numero come Stringa.
Il che significa, aiutandosi con una ListBox :

        For i As Integer = 1 To 999
            ListBox1.Items.Add(i.ToString.PadLeft(4, "0"))
        Next

[B3STYL3]

Originariamente inviato da MarcoGG

Quelli non sono numeri. Se desideri una formattazione come quella, la puoi ottenere solo se interpreti il numero come Stringa.
Il che significa, aiutandosi con una ListBox :

        For i As Integer = 1 To 999
            ListBox1.Items.Add(i.ToString.PadLeft(4, "0"))
        Next

Appena posso provo! grazie =)
ma.. per intenderci.. funziona x un keygen?! =D

[MarcoGG]

Originariamente inviato da B3STYL3

Appena posso provo! grazie =)
ma.. per intenderci.. funziona x un keygen?! =D

Basta solo che generi i numeri "casuali", li converti in Stringa, con PadLeft() accodi gli zeri, li metti in N TextBox... e hai fatto il KeyGen.