Le explico mi duda tengo un list box con varias rutas de archivos en el, y lo que quiero hacer que me selecione una ruta del list en forma aleatoria ( con repeticion ), realmente no se como hacerlo xD haber si me pueden dar una mano.
Bye. :-[
Haces un numero Random y lo comparas con el Index del ListBox :D (Del item obvio xD)
Bueno esta seria una forma Usando un command espero que sea de tu ayuda!
Private Sub Command1_Click()
Dim n As Integer
Randomize
n = Int(Rnd * 5) ' El numero depende de la cantidad de datos del list
List1.ListIndex = n '
End Sub
Private Sub Form_Load()
List1.AddItem ("c:\State Of Trances"), 0
List1.AddItem ("c:\Dj Tiesto"), 1
List1.AddItem ("c:\Sven Vah"), 2
List1.AddItem ("c:\David Guetta"), 3
List1.AddItem ("c:\Roger Sanchez"), 4
End Sub
:rolleyes:
Listo aca este el code bastante simple y tonto :P
Citar
Option Explicit
Private Sub Command1_Click()
Dim n As Integer
Randomize
n = Int(Rnd * List1.ListCount)
Text1.Text = List1.List(n)
End Sub
Private Sub Form_Load()
List1.AddItem ("c:\State Of Trances"), 0
List1.AddItem ("c:\Dj Tiesto"), 1
List1.AddItem ("c:\Sven Vah"), 2
List1.AddItem ("c:\David Guetta"), 3
List1.AddItem ("c:\Roger Sanchez"), 4
End Sub
Bye y gracias