Cómo Randomize elementos del control ListView en Visual Basic 6

En Visual Basic 6, controles ListView puede mostrar muchos tipos de información en diferentes formas , como los elementos de base de datos que se muestran en una lista o usuario opciones que se muestran como iconos. Elementos ListView se muestran en el orden en que se agregan. Sin embargo , durante la ejecución de su programa, usted puede cambiar el orden en el que aparecen estos elementos , por ejemplo mediante la aleatorización su orden . Para ello , es necesario almacenar temporalmente los elementos de ListView en otro lugar y vuelva a insertarlos en un orden diferente . Instrucciones
1

Abra el proyecto de Visual Basic . Pulse la tecla " F7 " para abrir la ventana de código y escriba el siguiente código: Private Sub

RandListView ()

ReDim arr ( 1 Para ListView1.ListItems.Count ) Como
secuencia

Tmp As Variant

Dim j As Long

La primera línea crea una nueva subrouting llamado " RandListView . " La segunda línea asigna espacio para un arreglo con el primer índice en uno y el último índice en el mismo número de elementos que existen en el control ListView. Utilice uno como el índice de partida, ya que es el número de índice que comienzan a partir de elementos de ListView . También crea dos variables adicionales. La variable " tmp " celebrará valores temporales a medida que aleatoriza la matriz y la " j " variable actúa como un contador
2

Escriba el siguiente código: .

Randomize

For i = LBound ( arr ) Para UBound ( arr )

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

Si i < > j Entonces

tmp = arr ( i )

arr ( i) = arr ( j )

arr ( j ) = tmp

End Si

Siguiente I Love

la primera línea llama a la función Visual Basic aleatoria para asegurar que múltiples llamadas al RandListView no producen los mismos resultados. El próximo ciclo de líneas a través de los elementos del control ListView y si no existen ya en la matriz , que se añaden a la misma. . Cuando todos los artículos están en la matriz, el bucle termina
3

Escriba el siguiente código:

ListView1.ListItems.Clear

Para i = 1 To UBound ( arr )

ListView1.ListItems.Add = arr ( i )

Siguiente I Love

la primera línea borra los ítems en el control ListView. Las siguientes tres líneas de repoblar con los elementos aleatorios de la matriz.
4

Type " RandListView " en ningún otro lugar en el programa para llamar a la función y el azar los elementos del control ListView.