SELECAO NO MSFLEXGRID

Private Sub Form_Load()
    Form_Activate
End Sub

Private Sub Form_Activate()
    MSFlexGrid1.SetFocus
End Sub

Private Sub MSFlexGrid1_GotFocus()
    For i = 0 To MSFlexGrid1.Cols - 1
        MSFlexGrid1.Col = i
        MSFlexGrid1.CellBackColor = vbWhite
    Next
End Sub

Private Sub MSFlexGrid1_LostFocus()
    For i = 0 To MSFlexGrid1.Cols - 1
        MSFlexGrid1.Col = i
        MSFlexGrid1.CellBackColor = vbBlue
    Next

End Sub

Private Sub Form_Load()
Call CabecalhoGrid
Call Preenchegrid
UltimaLinha = 1
AtualLinha = 1
End Sub

Private Sub CabecalhoGrid()
    ' configuar o grid
    With Grid
        .GridLines = flexGridFlat
        .FixedRows = 1
        .FixedCols = 0
        .ScrollBars = flexScrollBarBoth
        .AllowUserResizing = flexResizeColumns
        .Cols = 4                   ' Número de colunas(incluindo o cabecalho)
        .Rows = 1                   ' Número de linhas(com cabecalho)
        .ColWidth(0) = 285          ' Largura da coluna 0
        
        .TextArray(1) = "Nr. Linha"
         .ColWidth(1) = 1200
          .ColAlignment(1) = 2
        '
        .TextArray(2) = "Secunda Coluna"
         .ColWidth(2) = 5275
          .ColAlignment(2) = 2
        '
        .TextArray(3) = "Terceira Coluna"
         .ColWidth(3) = 5275
          .ColAlignment(3) = 2
        '
    End With
End Sub

Private Sub Preenchegrid()
Dim Row As Integer
For Row = 1 To 15
    Grid.Rows = 16
    Grid.Col = 0
    Grid.Row = Row
    Set Grid.CellPicture = LoadPicture("C:\Documents and Settings\Daniel de Moura\Meus documentos\Meus Programas\Visual Básic 6.0\Programas Comerciais\SGA - System\Pictures\Bol-Ativo.bmp")
    Grid.TextMatrix(Row, 1) = Format(Row, "00")
Next
Grid.Row = 1
Grid.Col = 0
End Sub

Private Sub Grid_Click()
AtualLinha = Grid.Row
Clicked = True
txt_Verifica.SetFocus
End Sub

Private Sub Grid_GotFocus()
For I = 0 To Grid.Cols - 1
    Grid.Col = I
    Grid.Row = Grid.Row
    Grid.CellBackColor = &H8000000D ' Linha Azul
    Grid.CellForeColor = &H80000005 ' Letras em Branco
Next
    Grid.Col = 0
    UltimaLinha = Grid.Row

'reset the key states
    Call GetAsyncKeyState(0)
    Call GetAsyncKeyState(Press_UP)
    Call GetAsyncKeyState(Press_DOWN)
'    Call GetAsyncKeyState(Press_RIGHT)
'    Call GetAsyncKeyState(Press_LEFT)
    tmr_1.Enabled = True
End Sub

Private Sub Grid_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
    FRM_Form.Show 1
End If
End Sub

Private Sub Grid_LostFocus()
tmr_1.Enabled = False
If CimaPressed = False And BaixoPressed = False And Clicked = False Then
    For I = 0 To Grid.Cols - 1
        Grid.Col = I
        Grid.Row = Grid.Row
        Grid.CellBackColor = &H8000000F    'Linha na cor ButtonFace
        Grid.CellForeColor = &H0&          'Letras Preto
    Next I
End If
End Sub

Private Sub tmr_1_Timer()
    If GetAsyncKeyState(Press_UP) Then
        'UltimaLinha = Grid.Row + 1
        CimaPressed = True
        txt_Verifica.SetFocus

    ElseIf GetAsyncKeyState(Press_DOWN) Then
        'UltimaLinha = Grid.Row - 1
        BaixoPressed = True
        txt_Verifica.SetFocus

    ElseIf GetAsyncKeyState(Press_RIGHT) Or GetAsyncKeyState(Press_LEFT) Then
        'as Setas para direita e para esquerda não serão usadas
    End If
End Sub

Private Sub txt_Verifica_GotFocus()
If CimaPressed = True Then
    If UltimaLinha - 1 <> 0 Then
        Grid.Col = 0
        Grid.Row = UltimaLinha
        If Grid.CellBackColor = &H8000000D Then
            For I = 0 To Grid.Cols - 1
                Grid.Col = I
                Grid.Row = UltimaLinha
                Grid.CellBackColor = vbWhite ' Branco
                Grid.CellForeColor = vbBlack ' Preto
            Next
        End If
        Grid.Col = 0
        Grid.Row = UltimaLinha - 1
        If Grid.CellBackColor = vbWhite Or Grid.CellBackColor = 0 Then
            For I = 0 To Grid.Cols - 1
                Grid.Col = I
                Grid.Row = Grid.Row
                Grid.CellBackColor = &H8000000D ' Branco
                Grid.CellForeColor = vbWhite    ' Preto
            Next
        End If
    End If
    CimaPressed = False

    Grid.Col = 0
    Grid.Row = Grid.Row
    Grid.SetFocus

ElseIf BaixoPressed = True Then
    If UltimaLinha + 1 <> Grid.Rows Then
        Grid.Col = 0
        Grid.Row = UltimaLinha
        If Grid.CellBackColor = &H8000000D Then
            For I = 0 To Grid.Cols - 1
                Grid.Col = I
                Grid.Row = UltimaLinha
                Grid.CellBackColor = vbWhite ' Branco
                Grid.CellForeColor = vbBlack  ' Preto
            Next
        End If
        Grid.Col = 0
        Grid.Row = UltimaLinha + 1
        If Grid.CellBackColor = vbWhite Or Grid.CellBackColor = 0 Then
            For I = 0 To Grid.Cols - 1
                Grid.Col = I
                Grid.Row = Grid.Row
                Grid.CellBackColor = &H8000000D ' Azul
                Grid.CellForeColor = &H80000005 ' Branco
            Next
        End If
    End If
    BaixoPressed = False
    
    Grid.Col = 0
    Grid.Row = Grid.Row
    Grid.SetFocus
ElseIf Clicked = True Then
    'MsgBox "OK" & vbNewLine & _
           "UltimaLinha:  " & UltimaLinha & _
           "LinhaAtual:   " & Grid.Row
           
    For I = 0 To Grid.Cols - 1
        Grid.Col = I
        Grid.Row = UltimaLinha
        Grid.CellBackColor = vbWhite ' Branco
        Grid.CellForeColor = vbBlack  ' Preto
    Next

    Grid.Col = 0
    Grid.SetFocus
    Grid.Row = AtualLinha
    Clicked = False
End If
End Sub

Private Sub Form_Click()
Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox FRM_GridList.Grid.Row
End Sub