listas em vb

mickael

Power Member
pessoal tenho um problema em vb... eu mostro o codigo depois explico...
Código:
 Private Sub cmd_Click()
    Dim I As Integer
    Dim num As Integer
        
    Lst1.Clear
    Randomize
    For I = 1 To 20
       num = Int(50 * Rnd) + 1
       Lst1.AddItem num
    Next
    
    For I = 20 To 1 Step -1
   
       num = (50 * Rnd) + 1
       Lst2.AddItem num
    Next
End Sub

queria que a segunda lista mostrasse os mesmos numeros que na 1ª mx invertidos...
 
Hmmmmm como assim invertidos?
Se bem percebi, se a lista 1 tem 1, 2 e 3, a lista 2 teria 3, 2 e 1. Certo?
Caso esteja certo, não te digo como fazer. Digo-te O QUE fazer:

A lista 1 tem n items. A lista 2 terá o mesmo número de items que a lista 1.
Limpas a lista 2 (Lst2.Clear)

Fazes um ciclo INVERSO na lista 1 (listcount -> 1), e em vez de adicionares números aleatórios (que nada têm a ver com a lista 1), Lst2.AddItem Lst1.List(I)
(acho que disse demasiado...)

Se precisares de mais ajuda avisa ;)

Cumps [[[[[[[[]]]]]]]]
angelofwisdom
 
Back
Topo