clear MSFLEGRID

[luca90]

The code clear all in msflexgrid from column o to the and .

Now i need to clear all from column 1...

How to change code?

Private Sub ClearFlex(pFlex As MSFlexGrid)

    With pFlex
        .Redraw = False
        .Row = .FixedRows
        .Col = .FixedCols
        .RowSel = .Rows - 1
        .ColSel = .Cols - 1
        .FillStyle = flexFillRepeat
        Set .CellPicture = Nothing
        .CellForeColor = False
        .Text = vbNullString
        .FillStyle = flexFillSingle
        .Col = 0
        .Redraw = True
    End With

End Sub

[SamOscarBrown]

This is all you need to clear the entire MSFlexgrid:

MSFlexGrid1.Clear

To clear column 1 (the second column), this is all you need:

        Dim i As Integer
        For i = 0 To MSFlexGrid1.Cols - 1
                MSFlexGrid1.TextMatrix(i, 1) = ""
        Next i

[Eduardo-]

Try with:

Private Sub ClearFlex(pFlex As MSFlexGrid)

    With pFlex
        .Redraw = False
        .Row = .FixedRows + 1
        .Col = .FixedCols
        .RowSel = .Rows - 1
        .ColSel = .Cols - 1
        .FillStyle = flexFillRepeat
        Set .CellPicture = Nothing
        .CellForeColor = False
        .Text = vbNullString
        .FillStyle = flexFillSingle
        .Col = 0
        .Redraw = True
    End With

End Sub

[luca90]

Try with:

Tks bro!

[SamOscarBrown]

Why all that code?

[luca90]

Why all that code?

Not mine code...
Have a new TIPS!

[SamOscarBrown]

Just sayin'----not necessary..... .Clear does it all for you...one line (to 'empty' the entire grid).
Then just four lines to do the second thing you asked. So simple.