Come Randomize elementi degli oggetti ListView in Visual Basic 6

In Visual Basic 6 , controlli ListView possono mostrare molti tipi di informazioni in modi diversi, come elementi del database visualizzate in un elenco o utente opzioni visualizzate come icone . Elementi ListView vengono visualizzati nell'ordine in cui vengono aggiunti. Tuttavia, durante l'esecuzione del programma, è possibile modificare l'ordine in cui compaiono questi elementi , ad esempio rendendo casuale l'ordine. Per fare questo, è necessario memorizzare temporaneamente gli elementi ListView altrove e poi re- inserirli in un ordine diverso . Istruzioni
1

Aprire il progetto di Visual Basic . Premete "F7" per aprire la finestra del codice e digitare il seguente codice : Private Sub

RandListView ( ) per

ReDim arr ( 1 To ListView1.ListItems.Count ) Come
String

Dim Tmp As Variant

Dim j As Long

La prima riga crea un nuovo subrouting chiamato " RandListView . " La seconda linea alloca spazio per un array con il primo indice di uno e l' ultimo indice allo stesso numero di elementi presenti nel controllo ListView . Utilizzare uno come l'indice iniziale , perché questo è il numero di indice che elementi ListView partono . Inoltre, crea due variabili aggiuntive . La variabile " tmp " terrà valori temporanei come casuale l' array e la "J " atti variabile come contatore
2

digitare il seguente codice : .

Randomize

For i = LBound ( arr ) To UBound ( arr ) per

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

Se i < > j Poi

tmp = arr (i ) per

arr ( i) = arr ( j ) per

arr ( j ) = tmp

End Se

Next i

la prima riga chiama la funzione di Visual Basic Randomize per garantire che più chiamate al RandListView non producono gli stessi risultati . Il prossimo ciclo di linee attraverso elementi nel controllo ListView e se non sono già presenti nella matrice , vengono aggiunti ad esso. . Quando tutti gli elementi presenti nella matrice , il ciclo esce
3

Digitare il seguente codice:

ListView1.ListItems.Clear

i = 1 To UBound ( arr ) per

ListView1.ListItems.Add = arr (i ) per

Next i

la prima riga cancella gli elementi attualmente nel controllo ListView . Le tre righe successive ripopolare con le voci randomizzati nella matrice .
4

Tipo " RandListView " altrove nel programma per chiamare la funzione e casuale gli elementi nel controllo ListView .

• Come determinare se una chiave del Registro di sistema esiste in VBScript 
• Come ordinare un array di stringhe in VBA