Ako Náhodne ListView položky na Visual Basic 6

V aplikácii Visual Basic 6 , môžu ovládacie prvky ListView ukázať mnoho druhov informácií rôznymi spôsobmi , ako je napríklad databáza položiek uvedených v zozname alebo možnosťou používateľských zobrazujú ako ikony . ListView položky sú uvedené v poradí , v akom ste ich pridať . Avšak , v priebehu realizácie programu , môžete zmeniť poradie, v ktorom sa tieto položky objavia , napríklad randomizing ich poradie . Ak to chcete vykonať , je nutné dočasne uložiť ListView položiek inde a znovu ich vložte v inom poradí . Pokyny dovolená 1

Otvorte projekt aplikácie Visual Basic . Stlačte tlačidlo " F7 " otvorte okno kód a zadajte nasledujúci kód :

Private Sub RandListView ( )

ReDim arr ( 1 K ListView1.ListItems.Count ) As String

Dim Tmp As Variant

Dim j As Long

Prvý riadok vytvorí nový subrouting s názvom " RandListView . " Druhý riadok alokuje priestor pre maticu s prvou index v jednom a posledný index na rovnaký počet položiek , ktoré existujú v ListView . Použite jeden ako index predvolené , pretože to je číslo indexu , ktorý ListView položky začínajú . To tiež vytvára ďalšie dve premenné . " Tmp " premenná bude držať dočasné hodnoty , ako ste náhodne poľa a " J " variabilná pôsobí ako pultu
2

zadajte nasledujúci kód : .

Náhodne

i = LBound ( arr ) Pre UBound ( arr )

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

ak i < > j Potom

tmp = arr ( i )

arr ( i ) = arr ( j )

arr ( j ) = tmp

Koniec ak

Next i

Prvý riadok volá funkciu jazyka Visual Basic Randomize zabezpečiť , aby sa viac volania do RandListView neprináša rovnaké výsledky . Ďalšie riadky prechádzať položky v ovládacom prvku ListView , a ak nie sú už existujú v poli , ktoré sú pridané do neho . . Keď všetky položky sú v poli , slučka ukončí
3

zadajte nasledujúci kód :

ListView1.ListItems.Clear

i = 1 To UBound ( arr )

ListView1.ListItems.Add = arr ( i )

Next i

Prvý riadok vymaže položky aktuálne v ListView konania. Ďalšie tri riadky osídliť ju randomizovaných položiek v poli .
4

typu " RandListView " kdekoľvek inde v programe volať funkciu a náhodne položky v ovládacom prvku ListView .

• Predchádzajúca strana: Ako zistiť , či kľúč databázy Registry existuje v jazyku VBScript 
• Ďalšia strana: Ako triediť String Array v jazyku VBA