Πώς μπορώ να χρησιμοποιήσω μια εφαρμογή της Visual Basic 6 Queue

; Visual Basic 6 δεν έχει μια εγγενή τάξη ουρά . Ωστόσο , ένας προγραμματιστής μπορεί να δημιουργήσει μια λειτουργική μονάδα κλάσης χρησιμοποιώντας την κλάση "Συλλογή" στις λειτουργίες της να εφαρμόσει μια δομή ουράς . Λειτουργία
Η

Προσθέστε μια μονάδα κλάσης με το έργο και να το μετονομάσετε " QueueClass ", για παράδειγμα . Δημιουργήστε τη δομή με τις "Dim queueValues ​​Νέα συλλογή ως " εντολή . Δημιουργία « Τοποθέτηση στην ουρά " και " dequeue " λειτουργίες πληκτρολογώντας :

Sub Τοποθέτηση στην ουρά ( δεδομένα Όπως Variant ) δεδομένα

queueValues.Add

End Sub

Λειτουργία dequeue ( ) Όπως Παραλλαγή

dequeue = queueValues.Item ( 1 )

queueValues.Remove 1

End Function

Κατά της φόρμας κωδικός , πληκτρολογήστε " Dim ουρά η Νέα QueueClass »και πρόσβαση στις λειτουργίες ουρά όπως και κάθε άλλη κλάση αντικειμένου .
εικόνων Χαρακτηριστικά
Η

η ουρά χρησιμοποιεί FIFO , ή" first-in -first- out " buffer , παρόμοιο με ένα lineup στο μανάβικο . Η σειρά στοιχείων εισέλθουν στην ουρά είναι η σειρά εξόδου . Για παράδειγμα , αν έχετε εισάγει "Hello " , " 25 " και " ΑΛΗΘΙΝΟ " ως τις τρεις πρώτες καταχωρήσεις ουρά , η ουρά αφαιρεί " Hello" πρώτα, και μετά " 25 , " τότε " ΑΛΗΘΙΝΟ ".
Η

Οφέλη
Η

σε αντίθεση με μια σειρά , μπορείτε να δημιουργήσετε μια ουρά που κρατά διαφορετικούς τύπους δεδομένων , όπως ακέραιους αριθμούς , έγχορδα και boolean ( true /false ) τιμές . Μπορείτε να χειριστείτε κάθε καταχώρηση στην ουρά χωρίς να χρειάζεται να τα μετατρέψετε σε ίδιου τύπου δεδομένων .
Η
εικόνων