| Home  | Casa  | Hardware  | Networking  | Programmazione  | Software  | Domanda  | Sistemi  |   
Programmazione  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Java Programming

  • Programmazione Javascript

  • PHP /MySQL Programmazione

  • Perl Programming

  • Python Programming

  • rubino Programmazione

  • Nozioni di base di Visual Programming
  •  
    Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> Content
    Come Randomize elementi degli oggetti ListView in Visual Basic 6
    In Visual Basic 6 , controlli ListView possono mostrare molti tipi di informazioni in modi diversi, come elementi del database visualizzate in un elenco o utente opzioni visualizzate come icone . Elementi ListView vengono visualizzati nell'ordine in cui vengono aggiunti. Tuttavia, durante l'esecuzione del programma, è possibile modificare l'ordine in cui compaiono questi elementi , ad esempio rendendo casuale l'ordine. Per fare questo, è necessario memorizzare temporaneamente gli elementi ListView altrove e poi re- inserirli in un ordine diverso . Istruzioni
    1

    Aprire il progetto di Visual Basic . Premete "F7" per aprire la finestra del codice e digitare il seguente codice : Private Sub

    RandListView ( ) per

    ReDim arr ( 1 To ListView1.ListItems.Count ) Come
    String < p > Dim Tmp As Variant

    Dim j As Long

    La prima riga crea un nuovo subrouting chiamato " RandListView . " La seconda linea alloca spazio per un array con il primo indice di uno e l' ultimo indice allo stesso numero di elementi presenti nel controllo ListView . Utilizzare uno come l'indice iniziale , perché questo è il numero di indice che elementi ListView partono . Inoltre, crea due variabili aggiuntive . La variabile " tmp " terrà valori temporanei come casuale l' array e la "J " atti variabile come contatore
    2

    digitare il seguente codice : .

    Randomize

    For i = LBound ( arr ) To UBound ( arr ) per

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

    Se i < > j Poi

    tmp = arr (i ) per

    arr ( i) = arr ( j ) per

    arr ( j ) = tmp

    End Se

    Next i

    la prima riga chiama la funzione di Visual Basic Randomize per garantire che più chiamate al RandListView non producono gli stessi risultati . Il prossimo ciclo di linee attraverso elementi nel controllo ListView e se non sono già presenti nella matrice , vengono aggiunti ad esso. . Quando tutti gli elementi presenti nella matrice , il ciclo esce
    3

    Digitare il seguente codice:

    ListView1.ListItems.Clear

    i = 1 To UBound ( arr ) per

    ListView1.ListItems.Add = arr (i ) per

    Next i

    la prima riga cancella gli elementi attualmente nel controllo ListView . Le tre righe successive ripopolare con le voci randomizzati nella matrice .
    4

    Tipo " RandListView " altrove nel programma per chiamare la funzione e casuale gli elementi nel controllo ListView .


    Previous :

    next :
      Articoli Correlati
    ·Come creare una barra di avanzamento 
    ·Come compilare le pagine Web in VBA 
    ·Come fare Radici quadrate in Vb.Net 
    ·Come creare un gestore degli errori per un programma VB…
    ·Come Scoprire la casella degli strumenti di Visual Basi…
    ·Come creare una calcolatrice GPA in Visual Basic 2008 
    ·L'accesso al percorso è negato in Visual Studio 2010 
    ·Come scrivere testo su un'immagine in VB.NET 
    ·Come utilizzare il ListView ItemChecked in VBA 
    ·Come faccio a creare la tabella pivot con VBA ? 
      Articoli in evidenza
    ·Come controllare un tipo di file PHP 
    ·Come convertire una stringa Java a colori 
    ·Il ruolo e la funzione dei metadati 
    ·Come aggiungere una stampante locale utilizzando Script…
    ·Come impostare il peso di un Handler Submit 
    ·Toshiba PLC Training 
    ·Come aumentare il limite di memoria PHP in Apache 
    ·My Perl String Split non funzionante 
    ·Come al sovraccarico di una funzione in C + + 
    ·Come sostituire un Data in Python 
    Copyright © Conoscenza Informatica http://it.wingwit.com