View Full Version : listas em vb


mickael
07-11-2006, 09:26
pessoal tenho um problema em vb... eu mostro o codigo depois explico...
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...

Kayvlim
08-11-2006, 20:25
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