Sette tilfeldige tegn til en " TextBox " kontroll i VB6 kan hjelpe brukerne ved å ikke kreve dem til å tenke på noe unikt å gå inn i en tekstboks . I VB6 , kan du bruke noen "streng" datatype variabler og et "For ... Loop " for å lage en tilfeldig streng av tegn. Dette er nyttig når du ønsker å legge til nye brukere til søknaden din og du vil få dem i gang med å skape et godt passord for å logge hva du trenger
Microsoft Visual Basic 6.0
Vis flere instruksjoner
en
start Microsoft Visual Basic 6.0 , klikk på " Standard EXE " i "New Project " dialog vinduet for å opprette et nytt prosjekt . Klikk på " TextBox " kontroll og klikker på skjemaet for å legge en ny " TextBox " kontrollen til skjemaet . Legge til en " Command Button" bruker samme teknikk.
2
Dobbeltklikk kommandoen for å opprette en ny klikkhendelsen for denne knappen. Legg til følgende kode for å generere en tilfeldig streng : en
Dim rgch As String
rgch = " abcdefghijklmnopqrstuvwxyz "
rgch = rgch & UCase ( rgch ) & " 0123456789 "
Dim i As Long
For i = 1 To cb
RandomString = RandomString & Mid $ ( rgch , Int ( Rnd ( ) * Len ( rgch ) + 1 ) , 1 )
Neste
Text1.Text = RandomString
3
Trykk " F5 " for å kjøre programmet og klikker kommandoen knappen for å generere tilfeldige tegn i tekstboksen .