Πώς να Τυχαίο Είδη ListView σε Visual Basic 6

Στη Visual Basic 6 , ελέγχους ListView μπορεί να δείξει πολλά είδη πληροφοριών με διάφορους τρόπους , όπως τα στοιχεία της βάσης δεδομένων εμφανίζονται σε μια λίστα ή τις επιλογές των χρηστών εμφανίζονται ως εικονίδια . Τα στοιχεία ListView εμφανίζονται με τη σειρά που τα προσθέτετε . Ωστόσο , κατά την εκτέλεση του προγράμματός σας , μπορείτε να αλλάξετε τη σειρά με την οποία εμφανίζονται αυτά τα στοιχεία , για παράδειγμα με randomizing σειρά τους . Για να το κάνετε αυτό , θα πρέπει να αποθηκεύουν προσωρινά τα στοιχεία ListView αλλού και στη συνέχεια να εισαγάγετε ξανά με διαφορετική σειρά . Οδηγίες
Η

1 Ανοίξτε το έργο της Visual Basic . Πατήστε το πλήκτρο " F7 " για να ανοίξετε το παράθυρο κώδικα και πληκτρολογήστε τον ακόλουθο κώδικα :

Private Sub RandListView ( )

ReDim άφ ( 1 Να ListView1.ListItems.Count ) Όπως String

Dim Tmp Όπως Παραλλαγή

Dim j Όπως Long

Η πρώτη γραμμή δημιουργεί ένα νέο subrouting ονομάζεται " RandListView . " Η δεύτερη γραμμή διαθέτει χώρο για μια σειρά με το πρώτο δείκτη σε ένα και το τελευταίο δείκτη στο ίδιο αριθμό των στοιχείων που υπάρχουν στον έλεγχο ListView . Χρησιμοποιήστε μία ως δείκτης εκκίνησης , διότι αυτό είναι ο αριθμός του δείκτη που τα στοιχεία ListView ξεκινούν . Δημιουργεί, επίσης, δύο πρόσθετες μεταβλητές . Η " tmp " μεταβλητή θα κρατήσει προσωρινές αξίες όπως τυχαιοποιούν τον πίνακα και τα " ι " μεταβλητά λειτουργεί ως μετρητής 2

Πληκτρολογήστε τον ακόλουθο κώδικα : .

Τυχαία

Για i = LBound ( ARR ) να UBound ( ARR )

j = CLng ( ( ( UBound ( ARR ) - i ) * γύρος ) + i )

Αν i <> ι τότε

tmp = arr ( i )

άφ ( i ) = arr ( ι )

άφ ( j ) = tmp

End Αν

Next i

Η πρώτη γραμμή καλεί τη συνάρτηση της Visual Basic Randomize για να εξασφαλιστεί ότι οι πολλαπλές κλήσεις στο RandListView δεν παράγουν τα ίδια αποτελέσματα . Ο επόμενος κύκλος γραμμές μεταξύ των στοιχείων στον έλεγχο ListView και αν δεν υπάρχουν ήδη στον πίνακα , προστίθενται σε αυτό . . Όταν όλα τα στοιχεία είναι στη σειρά , ο βρόχος
εικόνων 3

Πληκτρολογήστε τον ακόλουθο κώδικα :

ListView1.ListItems.Clear

Για i = 1 να UBound ( ARR )

ListView1.ListItems.Add = arr ( i )

Επόμενο i

Η πρώτη γραμμή διαγράφει τα στοιχεία επί του παρόντος στον έλεγχο ListView . Οι επόμενες τρεις γραμμές την ξανά με τυχαιοποιημένες στοιχεία στον πίνακα .
Η 4

Τύπος " RandListView " πουθενά αλλού στο πρόγραμμά σας για να καλέσετε τη λειτουργία και τυχαία τα στοιχεία του ελέγχου ListView .


εικόνων