[VB6]: Spostarsi tra le righe di una Flex

[vr-claudio]

Ciao ragazzi, tempo fa un collega del forum (html.it) mi aiuto' a cercare i record all'interno di una listbox, quello che dovrei cercare di fare ora è la stessa cosa ma all'interno di una flexgrid tramite una textbox...qui sotto vi posto il codice che riguarda listbox:

Private Sub TrovaContatto_Change()
Static Changing As Boolean
Static Found As Boolean
Static PartialText As String
If Changing Then Exit Sub Else Changing = True
If TrovaContatto.Text = "" Then
List1.ListIndex = -1
GoTo ESCI
End If
PartialText = TrovaContatto.Text
If Canceling Then GoTo ESCI
If PartialText = "" Then GoTo ESCI
L = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal PartialText)
List1.ListIndex = L
If L > -1 Then
TrovaContatto.Text = PartialText & Mid(List1.List(L), Len(PartialText) + 1)
If Not Deleting Then
TrovaContatto.SelStart = Len(PartialText)
Else
TrovaContatto.SelStart = Len(PartialText) - IIf(Found, 1, 0)
End If
TrovaContatto.SelLength = Len(TrovaContatto.Text)
PartialText = Mid(TrovaContatto.Text, 1, TrovaContatto.SelStart)
If PartialText = "" Then TrovaContatto.Text = ""
Deleting = False
Found = True
Else
Found = False
List1.ListIndex = -1
End If

ESCI:
Changing = False
Deleting = False
Canceling = False
End Sub

...come potrebbe essere con una FlexGrid
grazie, vrclaudio

[gibra]

te lo scrivo in pseudo-codice:

Per ogni riga
    per ogni colonna
        leggi il valore della cella
        se è uguale o contiene il valore cercato allora
            fine-ciclo
        altrimenti continua
    prossima colonna
prossima riga

utilizzando For/Next, Row, Col ci metti poco ad implementarla

Ciao

[vr-claudio]

Grazie Gibra
ho letto solo ora il tuo messaggio, adesso sono le 03.00 di notte e sono stanchissimo, ma appena posso (...domani) gli do' un'occhiata e poi ti faccio sapere immeditamente!
In tanto grazie mille
vrc