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
----------------------------------------------------------