In Visual Basic 6 Willekeurig , kan ListView controles vele soorten informatie weer te geven op verschillende manieren , zoals database- items weergegeven in een lijst of gebruiker opties weergegeven als pictogrammen . ListView items worden weergegeven in de volgorde waarin u ze toevoegt . Echter , tijdens de uitvoering van uw programma , kunt u de volgorde waarin deze items worden weergegeven , bijvoorbeeld door randomizing hun volgorde te wijzigen . Om dit te doen , moet je tijdelijk elders op te slaan de ListView items en vervolgens plaats ze in een andere volgorde . Instructies
1 Open de Visual Basic -project . Druk op " F7 " om het venster code te openen en typ de volgende code : Private Sub RandListView
( ) ReDim arr
( 1 To ListView1.ListItems.Count ) als Koord
Dim Tmp als Variant Dim j
As Long
De eerste regel maakt een nieuw subrouting genaamd " RandListView . " De tweede regel wijst ruimte voor een serie met de eerste index en de laatse index hetzelfde aantal punten die in de ListView bestaan . Gebruik een als de beginindex want dat is het indexnummer dat ListView items beginnen bij . Er worden ook twee extra variabelen . De variabele " tmp " zal tijdelijke waarden vast te houden als u de array en de ' j ' variabele fungeert als een teller randomize
Typ de volgende code 2 : .
Randomize
Voor i = LBound ( arr ) Om UBound ( arr ) j = CLng ( ( ( UBound ( arr ) - i ) * Rnd ) + i ) op Twitter Als i < > j tmp dan
= arr ( i ) arr
( i ) = arr ( j ) arr
( j ) = tmp End
Als
Next i
de eerste regel roept de Visual Basic Randomize functie om ervoor te zorgen dat meerdere gesprekken naar de RandListView niet dezelfde resultaten opleveren . De volgende regels doorlopen items in de ListView en als ze nog niet bestaan in de array , worden ze toegevoegd aan het. . Wanneer alle items zijn in de array , de lus verlaat
3 Typ de volgende code : ListView1.ListItems.Clear
Voor i = 1 To UBound ( arr ) ListView1.ListItems.Add = arr
( i ) op Volgende i
de eerste lijn wist de producten momenteel in de ListView . De volgende drie regels opnieuw te bevolken met de gerandomiseerde items in de array .
Type " RandListView " 4 ergens anders in uw programma om de functie aan te roepen en willekeurig de items in de ListView .
< br >
|
