Galera

 

desculpem-me postar novamente sobre a mesma coisa . . . mas o desespero bateu . . . preciso que no KeyPress de um FlexGrid preenchido (com muitos dados) e ordenado alfabéticamente, ao se pressionar uma tecla (uma letra qualquer) automaticamente o foco seja jogado para o primeiro registro com aquela letra . . . por exemplo . . . ao se pressionar D, automaticamente o foco será jogado para o primeiro registro com D . . . e assim suscetivamente . . .

 

Por favor . . . salvem-me ! ! ! !

Olá, desenhe um textbox

 

Private Sub Text1_Change()
Dim Search$
Dim I%
Dim SearchLem As Integer
On Error Resume Next
Search$ = UCase$(Text1.Text)
SearchLem = Len(Search$)
G.SelectionMode = flexSelectionByRow
If SearchLem Then
    Screen.MousePointer = 11
    For I% = 1 To G.Rows - 1
        If UCase$(Left$(G.TextMatrix(I%, 1), SearchLem)) = Search$ Then
            G.Row = I%
            G.col = 1
            G.RowSel = I%
            G.ColSel = 1
            G.TopRow = I%
            Exit For
        End If
    Next
    Screen.MousePointer = 0
End If
End Sub

 

Private Sub MSFlex_KeyUp(KeyCode As Integer, Shift As Integer)
    Text1.Text = CHr$(KeyCode)
End Sub