Visual Basic - BUSQUEDA EN MSFLEXGRID

Private Sub Text1_Change()

‘Damos al FlexiGrid el color de fondo por defecto

FG.BackColor = &H80000005

‘Si la caja de texto está vacía eliminamos el contenido del label y salimos

If Text1.Text = "" Then

Label1.Caption = ""

Exit Sub

End If

I = 1

J = 2

‘Recorremos todas la filas del FlexiGrid columna a columna

For I = 1 To FG.Rows - 1

For J = 1 To FG.Cols – 1

‘comprobamos si coincide el contenido del Text1 con la celda

If LCase(Text1.Text) = LCase(Mid(FG.TextMatrix(I, J), 1, Len(Text1.Text))) Then

‘En caso afirmativo mostramos su contenido en un Label1

Label1.Caption = FG.TextMatrix(I, J)

‘Seleccionamos la celda para darle color de fondo

FG.Row = I

FG.Col = J - 1

FG.ColSel = J

FG.BackColorSel = QBColor(1)

‘Damos unos valores a I y J para que salga de nol dos For y no continue buscando. Si no hiciéramos esto el label mostraría la última celda que coincida con el contenido del Text1

I = FG.Rows + 1

J = FG.Cols + 1

End If

Next J

Next I

End Sub