Clearing grids [RESOLVED]

[krtxmrtz]

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?

[si_the_geek]

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:

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).

[krtxmrtz]

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

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.

[si_the_geek]

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:

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

And here's a working solution:

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

[krtxmrtz]

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