|
Dans Visual Basic 6, contrôles ListView peuvent prendre de nombreuses sortes d'informations de différentes manières , comme des éléments de base de données s'affichent dans une liste ou d'un utilisateur options affichées sous forme d'icônes . Éléments ListView sont présentés dans l'ordre dans lequel vous les ajoutez. Cependant, lors de l'exécution de votre programme, vous pouvez modifier l'ordre dans lequel ces éléments apparaissent , par exemple en rendant aléatoire l'ordre . Pour ce faire, vous avez besoin pour stocker temporairement les éléments ListView ailleurs et puis les réinsérer dans un ordre différent . Instructions
1 Ouvrez le projet Visual Basic. Appuyez sur " F7 " pour ouvrir la fenêtre de code et tapez le code suivant :
Private Sub RandListView ()
ReDim arr (1 à ListView1.ListItems.Count ) As String
tmp As Variant
j As long
La première ligne crée une nouvelle subrouting appelé " RandListView . " La deuxième ligne alloue de l'espace pour un tableau avec le premier indice à un seul et dernier indice au même nombre d'éléments qui existent dans le contrôle de liste . Utilisez l'une comme l'indice de départ , parce que c'est l'indice que des éléments ListView commencent à . Il crée également deux variables supplémentaires . La variable " tmp" tiendra valeurs temporaires comme vous randomisez le tableau et les actes variable " j" comme un compteur
2 Tapez le code suivant : .
Randomize
For i = LBound ( arr ) à LimiteSup ( arr )
j = CLng ((( LimiteSup ( arr ) - i) * Rnd) + i)
Si i < > j Puis
tmp = arr ( i)
arr (i) = arr ( j)
arr (j) = tmp
Fin Si
Next i
la première ligne appelle la fonction Visual Basic Aléatoire pour s'assurer que de multiples appels à la RandListView ne produisent pas les mêmes résultats. Le cycle des lignes suivant les éléments dans le contrôle de liste et si elles n'existent pas déjà dans le tableau, ils sont ajoutés. . Lorsque tous les éléments sont dans le tableau, la boucle s'arrête
3 Tapez le code suivant :
ListView1.ListItems.Clear
i = 1 à LimiteSup ( arr )
ListView1.ListItems.Add = arr ( i)
Next i
la première ligne efface les éléments actuellement dans le contrôle ListView . Les trois lignes suivantes repeupler avec des éléments aléatoires dans le tableau.
4 type " RandListView " n'importe où ailleurs dans votre programme pour appeler la fonction aléatoire et les éléments dans le contrôle ListView.
|
