sebastian
20 de Septiembre del 2004

Hola, en este caso se me presento el siguiente problema:
Nesecito buscar en forma aleatoria dentro de un msflexgrid el contenido de su celda, este contenido mostrarlo en un text.
el problema que tengo y no se como solucionarlo es que busque aleatoriamente y no vuelva a repetir una fila... Me explico ??

para poder buscar en forma aleatoria estoy utilizando esto :
Randomize Timer
Text1.Text = Int(Rnd * 20)

el problema es que esto me repite muchas veces el mismo numero !!!
Gracias a quien pueda ayudarme !!!

sdemingo
20 de Septiembre del 2004

Hola,

te he hecho un pequeño ejemplo de lo que quieres hacer. Necesitas un CommandButton, un MsflexGrid y un Text.
Al pulsar el botón, verás en la caja de texto el contenido de una celda al azar del flexGrid.

Private Sub Command1_Click()
Dim limiteSup As Integer
Dim limiteInf As Integer

' Estos son los límites porque el grid del ejemplo
' tan solo tiene 3 filas y 3 columnas
limiteSup = 2
limiteInf = 0

Randomize
Text1.Text = Me.MSFlexGrid1.TextMatrix(Int((limiteSup - limiteInf + 1) * Rnd + limiteInf), Int((limiteSup - limiteInf + 1) * Rnd + limiteInf))

End Sub

Private Sub Form_Load()

Me.MSFlexGrid1.Rows = 0
Me.MSFlexGrid1.Cols = 3
Me.MSFlexGrid1.AddItem "1" & vbTab & "2" & vbTab & "3"
Me.MSFlexGrid1.AddItem "4" & vbTab & "5" & vbTab & "6"
Me.MSFlexGrid1.AddItem "7" & vbTab & "8" & vbTab & "9"

End Sub


salu2
sdemingo