In Visual Basic 6 können ListView-Steuerelemente viele Arten von Informationen auf unterschiedliche Weise, wie Datenbank- Elemente in einer Liste oder als Symbole user options gezeigten zeigen . ListView-Elemente werden in der Reihenfolge angezeigt , dass Sie sie hinzufügen. Doch während der Ausführung des Programms können Sie die Reihenfolge , in der diese Elemente erscheinen , zum Beispiel durch Randomisierung der Reihenfolge . Um dies zu tun , müssen Sie vorübergehend die ListView-Elemente und dann an anderer Stelle wieder einfügen in einer anderen Reihenfolge . Anleitung
1

Öffnen Sie das Visual Basic-Projekt. Drücken Sie die " F7 " , um den Code -Fenster zu öffnen , und geben Sie den folgenden Code: Private Sub

RandListView ()

ReDim arr (1 To ListView1.ListItems.Count ) As String
< p > Dim Tmp As Variant Dim

j As Long

Die erste Zeile erstellt eine neue Unterprogrammaufruf namens " RandListView . " Die zweite Zeile reserviert Speicherplatz für ein Array mit dem ersten Index an einem und dem letzten Index bei der gleichen Anzahl von Elementen, die im ListView-Steuerelement existiert . Verwenden Sie einen Index als Ausgangspunkt , denn das ist der Index -Nummer, die ListView-Elemente beim Start . Es schafft auch zwei zusätzliche Variablen . Die " tmp " variable halten temporäre Werte , wie Sie das Array und die "j" Variable dient als Zähler randomize
2

Geben Sie den folgenden Code: .

Randomize

Für i = LBound (arr ) To UBound ( arr)

j = CLng ((( UBound ( arr) - i) * Rnd ) + i)

Wenn i < > j Dann

tmp = arr ( i)

arr (i) = arr ( j)

arr (j) = tmp

End Wenn

Next i

die erste Zeile ruft die Visual Basic Randomize Funktion , um sicherzustellen, dass mehrere Anrufe bei der RandListView nicht zu den gleichen Ergebnissen . Die nächsten Zeilen durch Elemente im ListView-Steuerelement , und wenn sie nicht bereits in dem Array vorhanden sind, werden sie es aufgenommen. . Wenn alle Elemente im Array sind , wird die Schleife beendet
3

Geben Sie den folgenden Code:

ListView1.ListItems.Clear

i = 1 To UBound ( arr)

ListView1.ListItems.Add = arr ( i) Next i

die erste Zeile löscht die aktuellen Artikel im ListView-Steuerelement . Die nächsten drei Zeilen bevölkern sie mit den randomisierten Elemente im Array .
4

Type " RandListView " anderswo in Ihrem Programm die Funktion aufrufen und zufällig die Elemente im ListView-Steuerelement .