Al azar

[servantsoftware]

Hola, de nuevo mis hermanos:

Bueno tengo 100 palabras en un listbox1.list y quiero que una de ellas se seleccione al azar, cada vez que le de a un command, esto para ejemplo: y que luego de que seleccione, muestre el mensaje con la palabra, por favor si me podrían ayudar con un código.

[servantsoftware]

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/71.htm

Con esto, me llegaron ideas para hacerlo, que les sirva de aporte... bendiciones...

[culd]

Código vb:

Private Sub Command1_Click()
List1.ListIndex = Int(List1.ListCount * Rnd + 0)
End Sub
 

Espero que te sirva

[servantsoftware]

Hermanito, buenisimo!, ahora bien trate de hacer un metodo pero no pude.

podrias decirme, como poner ese codigo o darme un ejemplo mas con ese mismo para que cada vez que caiga en uno salga un mensaje box:

Por ejemplo

Case0:

Msgbox (), vbinformation

Case1:

Msgbox (), infomation
,

de esto me encargo yo, pero como hacer para que cada vez que caiga se active el case de cada elemento. muchisimas gracias amigo...

[culd]

Código vb:

Private Sub Command1_Click()
Dim Numero as Integer
Numero = Int(List1.ListCount * Rnd + 0)
List1.ListIndex = Numero
Select Case Numero
   Case 0:
        MsgBox ""
   Case 1:
        MsgBox ""
End Select
End Sub
 

[sitiom]

Primero, por si acaso, con la función replace, puedes quitar todos los espacios para dejar sólo uno entre cada palabra, es decir, si por ejemplo entre palabra y palabra tienes dos espacios, con la función replace lo transformas en uno.
Una vez hecho esto, con la función split, almacenas todas las palabras que hay entre los espacios a un array, y usas la función random para elegir un número al azar y que éste sea el elemento del array que busque.
Un saludo

[servantsoftware]

Buenísimo, muchísimas gracias me funciono!, Dios los bendiga!