Även om en kö är ett grundläggande datavetenskap begrepp , inte genomföra Visual Basic 6 inte dem inföding . Det är möjligt att skapa egna köobjekt eftersom begreppet i en kö är så enkelt. Allt som krävs är att objektet har förmågan att enqueue data, dequeue och kika på nästa nollpunkten utan att ta bort det från listan . Varje datapost bör behandlas i den ordning de kom i.
1 .
Starta en klass genom att klicka på " Arkiv> Nytt > Klassmodul . " Ring din nya klass
2
Kopiera och klistra in följande kod i den nyinrättade klassen " kön. " " .
" detta är den samling som håller värden
Dim colValues Som ny samling
"Lägg till ett nytt värde till kön
Sub Enqueue ( värde As Variant )
colValues. Add värde
End Sub
" läsa nästa värde från kön och ta bort den
" väcker och fel om kön är tom
Funktion dequeue () As Variant
dequeue=colValues . Punkt (1 )
colValues. Remove 1
End Function
" Return nästa värde från kön utan att ta bort det
" höja fel om kön är tom
Funktion Peek () As Variant
Peek=colValues. Item (1 )
End Function
" Return antalet värden i kön
Funktion Count () As Long
Count=colValues. Count
End Function
"klara kön
Sub Clear ( )
Set colValues=ny samling
End Sub
3
skapa en ny kö klass i den viktigaste delen av ditt VB program :
Dim myQueue som ny kö
4 .
Kopiera och klistra in följande kod under föregående rad :
myQueue. Enqueue 1234
myQueue. Enqueue 5678
Debug. Print "Count=" myQueue. Count
Debug. Print " Peek=" myQueue. Peek
göra medan myQueue. Count
Debug. Print " Nästa punkt=" myQueue. Dequeue
Loop
Previous:nothing Next:sql lärande