Clearing grids [RESOLVED]

Is it possible to use MSFlexGrid1.Clear to clear JUST the text in all the cells without changing the values of CellAlignment? Otherwise I have to delete the text of each cell individually looping over all the rows and columns. I mean is there any API trick or something?

I'm not sure if it will work, but have you tried setting the .Clip property to an empty string? I'm think it only affects the text, not any formatting.

eg:

VB Code:

With MSFlexGrid1
  .Row = 0
  .Col = 0
  .RowSel = .Rows - 1
  .ColSel = .Cols - 1
  .Clip = ""
End With

if an empty string only clears the first cell (but in the way you want), you will need to set up a string with tabs/CR's for each cell (which you can use the String function to create).

Well, it works but I can't figure out how to build that string. I've tried something like

VB Code:

Dim s As String
    With MSFlexGrid1
        s = String(.Cols - 1, vbTab)
        s = s & vbCr
        s = String(.Rows - 2, s)
        s = s & String(.Cols - 1, vbTab)
        .Row = 0
        .Col = 0
        .RowSel = .Rows - 1
        .ColSel = .Cols - 1
        .Clip = s
    End With

but this just clears the first row. Looks like the vbCr character is ignored.

I've had a little play, but I forgot that the String function can only work with one character. What I originally thought of (doesnt work!) was this:

VB Code:

s = String(.Rows - 1, String(.Cols - 1, vbTab) & vbCr)

And here's a working solution:

VB Code:

Dim i As Long
        s = ""
        For i = 1 To .Rows
          s = s & String(.Cols - 1, vbTab) & vbCr
        Next i

...so that's why!? Thank you.