• Home
 · 
• Miscellaneous
 · 
• Function to Move current Row to Grid According to key Pressed - This function will check what the k

Function to Move current Row to Grid According to key Pressed - This function will check what the k

Function to Move current Row to Grid According to key Pressed - This function will check what the key user pressed and find in the Grid, If

Rate Function to Move current Row to Grid According to key Pressed - This function will check what the k

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'This is pocedurce for to navigate in the list whent the user press any key
    On Error GoTo LOCALERRORHANDLER
    Dim intRow      As Integer
    Dim intStartRow As Integer
    Dim blnFlag     As Boolean
    '-----------------------------
    If Obj.Rows = 1 Then Exit Function
    If Obj.Row <> Obj.Rows - 1 Then
       intStartRow = Obj.Row + 1
    Else
       intStartRow = 1
    End If
    '-----------------------------
    For intRow = intStartRow To Obj.Rows - 1
       If UCase(Chr(KeyAscii)) = UCase(Left(Trim(Obj.TextMatrix(intRow, intCol)), 1)) Then
          Obj.TopRow = intRow
          Obj.Row = intRow
          Obj.ColSel = Obj.Cols - 1
          Exit Function
       Else
          blnFlag = True
       End If
    Next intRow
    '-----------------------------
    If blnFlag = False Then
        Exit Function
    End If
    '-----------------------------
    For intRow = 1 To intStartRow - 1
       If UCase(Chr(KeyAscii)) = UCase(Left(Trim(Obj.TextMatrix(intRow, intCol)), 1)) Then
          Obj.TopRow = intRow
          Obj.Row = intRow
          Obj.ColSel = Obj.Cols - 1
          Exit For
       End If
    Next intRow
LOCALERRORHANDLER:
End Function