[RESOLVED] problem with msflexgrid

[Bruto]

HI
I have a flexgrid populated with 3000 records Is it possible to move to the line indicated by a number inserted in a textbox?

[2kaud]

[You'll probably get more responses if you post this question on this site's sister site
https://www.vbforums.com/forumdispla...-6-and-Earlier ]

[Bruto]

I found the solution.
I post the code that can be useful to some old guy like me who still uses, and with great satisfaction, the old VB6.0

Dim RifId As Integer

Private Sub dcButton1_Click()
Dim i As Integer

With MSFlexGrid1
    .Redraw = False
    
    For i = 1 To .Rows - 1    'scroll the rows
        If InStr(.TextMatrix(i, 2), txtResearch.Text) > 0 Then  'In the 2 col of the flex there is the field to search for
            RifId = i         'Find the position of the row within the flexgrid
            Exit For          'If it finds the position it exits 
        End If
    Next i
      
    For i = 0 To .Cols - 1
          .TopRow = RifId       'moves in the row
          .Row = RifId
          .Col = i
          .CellBackColor = &H99FFCC    'highlight the row
          .CellForeColor = vbBlack
     Next i 
      
    .Redraw = True
End With

End Sub