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 < p > 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 .