Ayudita visual basic

[muny]

toy haciendo un programa que tire 6 numero al azar al mismo tiempo cuando oprimo el boton, pero kiero que a medida q van salienndo los guarde cada uno en una lista.
Mi problema es q no tengo ni idea de como mostrar los valores en listas :S

x si les sirve dejo el codigo


Dim x As Byte
Dim a(5) As Byte
Dim y As Byte

Private Sub cmdgenerar_Click()
y = y + 1
a(0) = Int(45 - 1) * Rnd + 0
a(1) = Int(45 - 1) * Rnd + 0
a(2) = Int(45 - 1) * Rnd + 0
a(3) = Int(45 - 1) * Rnd + 0
a(4) = Int(45 - 1) * Rnd + 0
a(5) = Int(45 - 1) * Rnd + 0

If a(0) = a(1) Then
Do Until a(1) <> a(0)
a(1) = Int(45 - 1) * Rnd + 0
Loop
Else
End If

If a(2) = a(1) Or a(2) = a(0) Then
Do Until a(2) <> a(0) And a(2) <> a(1)
a(2) = Int(45 - 1) * Rnd + 0
Loop
Else
End If

If a(3) = a(1) Or a(3) = a(0) Or a(3) = a(2) Then
Do Until a(3) <> a(0) And a(3) <> a(1) And a(3) <> a(2)
a(3) = Int(45 - 1) * Rnd + 0
Loop
Else
End If

If a(4) = a(1) Or a(4) = a(0) Or a(4) = a(2) Or a(4) = a(3) Then
Do Until a(4) <> a(0) And a(4) <> a(1) And a(4) <> a(2) And a(4) <> a(3)
a(4) = Int(45 - 1) * Rnd + 0
Loop
Else
End If

If a(5) = a(1) Or a(5) = a(0) Or a(5) = a(2) Or a(5) = a(3) Or a(5) = a(4) Then
Do Until a(5) <> a(0) And a(5) <> a(1) And a(5) <> a(2) And a(5) <> a(3) And a(5) <> a(4)
a(5) = Int(45 - 1) * Rnd + 0
Loop
Else
End If


Label1.Caption = a(0)
Label2.Caption = a(1)
Label3.Caption = a(2)
Label4.Caption = a(3)
Label5.Caption = a(4)
Label6.Caption = a(5)

'Aca devería mostrarlos cada uno en su lista, pero no se como

End Sub

Private Sub cmdsalir_Click()
MsgBox "¿Seguro que quiere salir?", vbQuestion, "Salir"
End
End Sub



P.D.: Uso el 6.0

Desde ya muchas grax

[devilc]

ponele un hoja de calculo (exel) al system =)

[devilc]

sino sua la metodologia de un CyberControl 4.0 q es el ams facil de utilizar pa...


saludos

[muny]

sino sua la metodologia de un CyberControl 4.0 q es el ams facil de utilizar pa...


saludos

emmm cual se supone q es esa?

este año enmpece con vb, asi se poco y nada

[vofijatee]

hmm, ArrayList? creo que VB6 no tiene. Veo que estás trabajando con formularios por ende podrías usar el control ListBox.

Hace tiempo que no toco VB pero creo q era algo así:





' Para agregar un item

Lista.AddItem valor

' Para deletear un item

Lista.Remove(0) ' Esto sacaría el primero


'Y para recorrerla:

For i = 0 To Lista.ListCount
Debug.Print Lista.List(i) 'Acá imprime en el debug ("Ventana de inmediato" los valores de la lista
Next i




Saludos.