I Visual Basic 6 , kan ListView visar många typer av information på olika sätt , till exempel databasen poster visas i en lista eller användarnamn alternativ visas som ikoner . ListView objekt visas i den ordning du lägger till dem . Men under genomförandet av programmet , kan du ändra den ordning i vilken dessa poster visas , till exempel genom att randomisera sin ordning . För att göra detta måste du tillfälligt lagra ListView objekt håll och sedan sätta in dem i en annan ordning . Instruktioner
1
Öppna Visual Basic -projektet . Tryck " F7 " för att öppna registret fönstret och skriv följande kod :
Private Sub RandListView ( ) katalog
ReDim arr ( 1 Att ListView1.ListItems.Count ) As String
Dim Temp As Variant
Dim j As Long
första raden skapar ett nytt subrouting kallas " RandListView . " Den andra raden allokerar utrymme för en array med första index på en och sista indexet på samma antal poster som finns i ListView kontroll . Använd en som börjar index eftersom det är det indextal som ListView artiklar börjar kl . Det skapar också två ytterligare variabler . Den " tmp " variabel håller temporära värden som du slumpa arrayen och "j" variabel fungerar som en räknare
2
Skriv följande kod : .
Slumpa
För i = LBound ( arr ) Till UBound ( arr ) katalog
j = CLng ( ( ( UBound ( arr ) - i) * Rnd ) + i ) katalog p Om jag < > j Sedan
tmp = arr (i ) katalog
arr (i) = arr ( j ) katalog
arr ( j ) = tmp
End Om
Nästa jag
första raden anropar Visual Basic Slumpa funktion för att se till att flera samtal till RandListView inte ge samma resultat . Nästa linjer igenom objekt i ListView kontroll och om de inte redan finns i gruppen , ska de läggas till den . . När alla objekt är i arrayen , slingutgångarna
3
Skriv följande kod :
ListView1.ListItems.Clear
i = 1 till UBound ( arr ) katalog
ListView1.ListItems.Add = arr (i ) katalog
Nästa jag
första raden raderar objekten närvarande i ListView kontroll . De kommande tre rader återbefolka det med de randomiserade objekt i arrayen .
4
Type " RandListView " någon annanstans i ditt program att anropa funktionen och slumpa objekten i ListView kontroll .
Addera
