Passer les lettres & les chiffres
Bonjour,
voici mon code :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Private Sub Teste(ByVal password As String, ByVal intMax As Integer)
Dim Allchars As String = "abcdefghijklmnopqrstuvwxyABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
Dim x As Integer = 0
Do While (x <= intMax)
For Each ch As Char In Allchars
If (ch = password) Then
TextBox3.Text = ch
Exit For
Else
TextBox2.Text = ch
TextBox2.Refresh()
End If
Next
x = x + 1
Loop
End Sub |
j'ai probléme avec la code, il s'arret a la dernière chiffre de mon allchars . je voudrais savoir comment passer aprés une lettre passer 2 lettre aprés 3 lettre ...etc par rapport password.
exemple : a à 9 , aa à 99 , aaa à 999 ....etc
Merci de votre réponse,