Es una boludez lo que no puedo hacer, el problema estara en como creo el random, ya que no se si sale el 0 y tambien me confundo con .net lo que pasa porque hacia mucho que no tocaba vb6 y digo esto porque talvez tengo problemas con los bucles con los valores posibles de i
Esto que dejo crea un bucle infinito dentro del do-loop while y la idea es que tome los items del listbox y los meta al azar en el array nombre()
Esto que dejo crea un bucle infinito dentro del do-loop while y la idea es que tome los items del listbox y los meta al azar en el array nombre()
Código (vb) [Seleccionar]
Private Sub Form_Load()
Dim i As Integer
Dim j As Integer
Dim sigue As Boolean
Dim ran As Integer
ReDim Equipo(frmChampion.ListNombre.ListCount)
ReDim Nombre(frmChampion.ListNombre.ListCount)
Cant = frmChampion.ListNombre.ListCount
For i = 0 To UBound(Nombre)
Do
Randomize
ran = Int(Rnd() * Cant + 1)
Loop While Nombre(ran) <> vbNullString
Nombre(ran) = frmChampion.ListNombre.List(i)
For j = 0 To Cant
If Nombre(j) = vbNullString Then
sigue = True
End If
Next
If sigue = False Then
Exit For
End If
Next
For j = 0 To UBound(Nombre)
Debug.Print Nombre(j)
Next
End Sub