Título: Duda - Randomize List Box ( SOLUCIONADO ) Publicado por: VirucKingX en 20 Febrero 2008, 19:06 pm 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. :-[ Título: Re: Duda - Randomize List Box Publicado por: Freeze. en 20 Febrero 2008, 19:21 pm Haces un numero Random y lo comparas con el Index del ListBox :D (Del item obvio xD)
Título: Re: Duda - Randomize List Box Publicado por: [{O_o}] en 20 Febrero 2008, 21:06 pm 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: Título: Re: Duda - Randomize List Box ( SOLUCIONADO ) Publicado por: VirucKingX en 21 Febrero 2008, 00:54 am 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 |