Hvordan bruke Loops i VB6
Forstå hvordan løkker arbeide i Visual Basic 6 (VB6) er viktig fordi det lar deg utføre blokker av kode gjentatte ganger. De to hovedtyper av loops er "for" og "gjøre" looper. A "for" sløyfe er en forkortelse versjon av en "do" loop som brukes når antallet iterasjoner er kjent på forhånd. Noen bruker av en løkke leser i linjer fra en fil, skrive alles navn fra en ansatt liste og sortere gjennom en rekke ute etter en bestemt verdi.
Bruksanvisning
1 Åpne kildefilen i Visual Basic 6.
2 Legg til en "for" loop ved å skrive inn følgende kode i funksjon:
Dim x As Integer
Dim teller As Integer
x = 0
For count = 1 til 6 Trinn 2
X = X + 2
neste
A "for" sløyfe består av en teller, idet området av telleren, et trinn og kommandoer for å utføre i løpet av hver iterasjon. Den "trinn" argumentet angir hvor mye disken vil øke mellom gjentakelser. Hvis du utelater "trinn" søkeord det er satt til standardverdien 1. I eksempelet under den første iterasjon, "teller" er lik 1 og "X" er satt til 2 (0 + 2). På den andre iterasjon "teller" er satt til tre og "X" er satt til 4 (2 + 2).
Hvis du ønsker å sløyfe gjennom en liste i stedet, legge til følgende kode:
Dim MyColors (2) som String
Dim farge som String
MyColors (0) = "Blue"
MyColors (1) = "Green"
MyColors (2) = "Yellow"
For Hver farge I MyColors
Debug.Print farge
neste
Loop gjentar for hver verdi i listen, som vanligvis er en matrise eller samling. Den iterere variabelen, "farge", må være av samme type som elementene i listen.
3 Legg en "gjør" loop ved å skrive inn følgende kode:
Dim x As Integer
x = 0
Gjøre mens X <10
X = X + 2
Loop
Sløyfen holder gjentar mens tilstanden etter "Do" nøkkelordet er oppfylt. Tilstanden blir kontrollert i begynnelsen før hver ny iterasjon. Alternativt kan du sette den til iterere inntil en betingelse er oppfylt ved å legge til følgende kode:
Gjøre
X = X + 2
Loop Inntil X> 10
I et "sløyfe inntil" strukturere tilstanden blir kontrollert etter slutten av hver iterasjon. Hvis du ønsker å gå ut av sløyfen før betingelsen er oppfylt, legger "Exit Do" inni loop.
4 Lagre VB6 filen, kompilere og kjøre programmet for å vise loop.