[VB6] Ordinare nella listbox....

[buchwald]

Ciao forumisti,

ho un problema molto grosso e non ci riesco a risolverlo. Visual Basic mi dà sempre errore ogni volta quando clicco sul pulsante "Ordina". Mi interessa molto capire l'errore perchè non riesco a capire come funzionano gli array, ed ho bisogno di un pò di correzione di questo codice oppure di inviarmi il codice già fatto da voi. Aiutatemi.

Dim Var As String
    Dim Bool As Boolean
    Dim I, J As String
    
    Bool = True
    I = 1
    
    lstOrdine.Clear
    
    Do While Bool = True
    J = 1
    Bool = False
        Do While I < lstOrdine
        If lstOrdine(I) < lstOrdine(I + 1) Then
            Var = lstOrdine(I)
            lstOrdine(I) = lstOrdine(I + 1)
            lstOrdine(I + 1) = Var
            Bool = True
        End If
            I = I + 1
        Loop
    Loop

Grazie by Buchwald.

[Brainjar]

Scusa, ma non puoi utilizzare la proprietà Sorted = True della
ListBox ?

Ciao,

[buchwald]

Questa già la so ma non va bene perché già ha creato errore non mi ricordo quando. Per questo motivo vorrei fare l'array. Cosa posso fare???

Ciauzzzz

[Jupy64]

prova a vedere qui: http://forum.html.it/forum/showthrea...ighlight=array

[Joe Taras]

Originariamente inviato da buchwald
Ciao forumisti,

ho un problema molto grosso e non ci riesco a risolverlo. Visual Basic mi dà sempre errore ogni volta quando clicco sul pulsante "Ordina". Mi interessa molto capire l'errore perchè non riesco a capire come funzionano gli array, ed ho bisogno di un pò di correzione di questo codice oppure di inviarmi il codice già fatto da voi. Aiutatemi.

Dim Var As String
    Dim Bool As Boolean
    Dim I, J As String
    
    Bool = True
    I = 1
    
    lstOrdine.Clear
    
    Do While Bool = True
    J = 1
    Bool = False
        Do While I < lstOrdine
        If lstOrdine(I) < lstOrdine(I + 1) Then
            Var = lstOrdine(I)
            lstOrdine(I) = lstOrdine(I + 1)
            lstOrdine(I + 1) = Var
            Bool = True
        End If
            I = I + 1
        Loop
    Loop

Grazie by Buchwald.

Scusa ma se fai lstOrdine.Clear cancelli tutti i dati dall'array, poi provi a confrontare I con tutto l'array??? Dovresti invece prendere il numero di elementi è quello che devi confrontare con I,e poi non c'è bisogno di svuotare l'array