Resumen Colocarse en la fila del Msflexgrid según se escribe

Mensaje enviado por "German Ojeda" <ogerman@cybertech.com.ar>

Esto es para que se vaya ubicando a medida que vas tecleando, espero te sriva (especificamente lo que tu buscas esta en donde voy a poner *********************************)

Private Sub fxgCodigos_KeyPress(KeyAscii As Integer)
    Dim I As Long
    Dim Salir As Boolean
    tmrCodigos.Enabled = False
    tmrCodigos.Enabled = True
    With fxgCodigos
        If Len(StrBusqueda) = 0 Then
            I = 1
        Else
            I = .Row
        End If
        StrBusqueda = StrBusqueda + Chr(KeyAscii)
        Salir = (.Rows = 1)
        While Not Salir
            If UCase(Left(.TextArray(.Cols * I), Len(StrBusqueda))) = UCase(StrBusqueda) Then
                Salir = True
                .Row = I
                .RowSel = I
                .ColSel = 1
                If Not .RowIsVisible(I) Then ********************************* esto es lo que tu necesitas
                    If I > CInt(.Height / .RowHeight(0)) + 3 Then
                        .TopRow = I - CInt(.Height / .RowHeight(0)) + 3
                    Else
                        .TopRow = I
                    End If
                End If
            End If
            I = I + 1
            If I = .Rows Then
                Salir = True
            End If
        Wend
    End With
End Sub

----- Original Message -----
From: Vicente Verdejo
To: gruopo visual
Sent: Saturday, November 11, 2000 8:57 PM
Subject: (VB-ESP) Ubicarme en fila Msflexgrid

Hola amigos agradeceria información al siguiente problema:

Tengo un msflexgrid en la cual hago una búsqueda

For i=0 to flex-1
   if flex1.text = "juan" then

      flex1.row=i
      exit for
   endif
next

Lo encuentra, pero no se mueve hasta la fila indicada, es decir no hace el scroll que necesito, he estado probando y no hay caso

Les agradeceria si me ayudan

Saludos.
----------------------------------------------------------
Vicente Manuel Verdejo Fuenzalida
Santiago de Chile
vverdejo@terra.cl
----------------------------------------------------------



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com