Zoals een Brute Force

Status
Niet open voor verdere reacties.

XenomX

Gebruiker
Lid geworden
27 apr 2002
Berichten
822
Hoe kan ik in een textbox a,b,c,d to en met z en dan 4 keer achter elkaar dus aaaa en bbbb, aaab, aaac etc.
laten zetten?

Heb het al is eerder gedaan, maar kan de code nergens meer vinden. Iets met Chr(a)... etc. :D

Bvd!
 
met for next lus

Private Sub Knop_Click()
Dim i As Integer
Dim strString As String

For i = 97 To 122
strString = strString & Chr(i)
strString = strString & Chr(i)
strString = strString & Chr(i)
strString = strString & Chr(i)
Next i

txtBox = strString
End Sub

is het zo dat je het wil ?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan