Indsættelse tilfældige tegn i en " TextBox " kontrol i VB6 kan hjælpe brugerne ved ikke at kræve dem til at tænke på noget unikt at komme ind i en tekstboks . I VB6 , kan du bruge et par " String " datatype variabler og et "For ... Loop " for at oprette en tilfældig streng af tegn . Dette er nyttigt , når du ønsker at tilføje nye brugere til din ansøgning og du ønsker at få dem i gang med at skabe en god adgangskode for at logge ind Ting du skal
Microsoft Visual Basic 6.0
Vis flere instruktioner
1
Start Microsoft Visual Basic 6.0 , klik på " Standard EXE " i " nyt projekt " dialog vindue for at oprette et nyt projekt . Klik på " TextBox " kontrol og klik din formular for at tilføje en ny " TextBox " kontrol til formularen . Tilføj et " Command Button " ved hjælp af samme teknik .
2
Dobbeltklik på kommando for at oprette en ny klik begivenhed for denne knap. Føj følgende kode til at generere en tilfældig streng : Hej
Dim rgch As String
rgch = " abcdefghijklmnopqrstuvwxyz "
rgch = rgch & UCase ( rgch ) & " 0123456789 " < br >
Dim i As Long
For i = 1 Til cb
RandomString = RandomString & Mid $ ( rgch , Int. ( Rnd () * Len ( rgch ) + 1) , 1)
Næste
Text1.Text = RandomString
3
Tryk på " F5 " for at køre programmet, og klik på kommandoknap til at generere tilfældige tegn i tekstfeltet .