invoegen willekeurige tekens in een " TextBox " control in VB6 kan gebruikers helpen door niet te eisen dat ze te denken aan iets unieks in een tekstvak in te voeren . In VB6 , kunt u gebruik maken van een paar " String " datatype variabelen en een " For ... Loop" om een willekeurige reeks tekens te creëren . Dit is handig wanneer u wilt om nieuwe gebruikers toe te voegen aan uw toepassing en u wilt krijgen ze begonnen op het creëren van een goed wachtwoord om in te loggen wat je nodig hebt
Microsoft Visual Basic 6.0
Toon Meer Instructions
1 Start Microsoft Visual Basic 6.0 , klikt u op "Standard EXE " in de " New project" dialoogvenster om een nieuw project aan te maken . Klik op de " TextBox " controle en klik op uw formulier om een nieuwe " TextBox " besturingselement aan het formulier . Voeg een " Command Button " gebruikmaking van dezelfde techniek . Kopen van 2 Dubbelklik op de opdrachtknop om een nieuwe gebeurtenis click voor deze knop te maken . Voeg de volgende code om een willekeurige tekenreeks genereren : Dim rgch
als Koord rgch
= " abcdefghijklmnopqrstuvwxyz "
rgch = rgch & UCase ( rgch ) & " 0123456789 " < br > Dim i As Long
For i = 1 To cb
RandomString = RandomString & Mid $ ( rgch , Int ( Rnd ( ) * Len ( rgch ) + 1 ) , 1 ) op Volgende Text1.Text = RandomString
Druk op " F5 " Goedkope 3 om het programma uit te voeren en klik op de opdracht knop om willekeurige tekens genereren in het tekstvak .
|
