Autosize Flexgrid Columns

[nookta]

I'd like a large pepperoni pizza... oh wait, no flexgrid. I've got one, just started learning how to use the buggers, they're kinda neat. I'd like to have some code that will make the widths all fit to text. Like when you double click on the resizing bar in most microsoft programs. Any thoughts? Thanks!

[Si_the_geek]

** EDIT - this is very old and dubious code, see here for a much better version! **

Here's the code you need (you can just chuck it into a module or form). I've forgotten which programs actually use it, so you'll have to work out for yourself when the mouse is clicked in the right place!

Sub flxAutoSizeColumns(gridName, owner_hwnd, _
                       Optional ByVal include_headers As Boolean = True, _
                       Optional ByVal min_col = 0, Optional max_col)
'Set flexgrid column widths to the minimum for viewing all text
 
  With gridName
    If include_headers Then       'set top row to check
      first_row = 0
    Else
      first_row = .fixed_rows
    End If
    If IsMissing(max_col) Then max_col = .Cols - 1
    
    For tmp_col = min_col To max_col      'for each column...
      curr_max = 0
      For tmp_row = first_row To .Rows - 1        '...find widest text
        tmp_max = GetVisualLength(.TextMatrix(tmp_row, tmp_col), owner_hwnd)
        If curr_max < tmp_max Then curr_max = tmp_max
      Next tmp_row
      .ColWidth(tmp_col) = 50 + (curr_max * 16.5) '...and resize the column
    Next tmp_col
  End With
 
End Sub

[Si_the_geek]

oops.. just realised you need this module too!

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDC As Long) As Long
Private Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" _
    (ByVal hDC As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As SIZE) As Long
Private Type SIZE
  cx As Long
  cy As Long
End Type
 
 
Function GetVisualLength(ByVal Text, ByVal form_hWnd) As Long
'sjg:  not needed in VB6, can use  <form/printer>.TextHeight
 
Dim hDC As Long
Dim sz As SIZE
 
   hDC = GetDC(form_hWnd)
   Call GetTextExtentPoint32(hDC, Text, Len(Text), sz)
   GetVisualLength = sz.cx
   Call ReleaseDC(form_hWnd, hDC)
 
End Function

[nookta]

Thanks for the code!
That changed the sizes, but most of the columns aren't tightly fitted. Some are about 1/3 too long.
Any ideas?

[Si_the_geek]

yep, if you have vb6 you can drop the "GetVisualLength" stuff, replace the line in the first module with <formname>.TextWidth, and change the last line to: .ColWidth(tmp_col) = 50 + curr_max

(or you could just change the multiplier in the last bit!)

[Serge]

Here is a Generic routine I've put together a while back:

Public Sub ResizeGrid(pGrid As MSFlexGrid, pForm As Form)
    Dim intRow As Integer
    Dim intCol As Integer
    
    With pGrid
        For intCol = 0 To .Cols - 1
            For intRow = 0 To .Rows - 1
                If .ColWidth(intCol) < pForm.TextWidth(.TextMatrix(intRow, intCol)) + 100 Then
                   .ColWidth(intCol) = pForm.TextWidth(.TextMatrix(intRow, intCol)) + 100
                End If
            Next
        Next
    End With
End Sub

Then just call this routine like this:


ResizeGrid MSFlexGrid1, Form1

[WelshPunk]

Here is a Generic routine I've put together a while back:

Public Sub ResizeGrid(pGrid As MSFlexGrid, pForm As Form)
    Dim intRow As Integer
    Dim intCol As Integer
    
    With pGrid
        For intCol = 0 To .Cols - 1
            For intRow = 0 To .Rows - 1
                If .ColWidth(intCol) < pForm.TextWidth(.TextMatrix(intRow, intCol)) + 100 Then
                   .ColWidth(intCol) = pForm.TextWidth(.TextMatrix(intRow, intCol)) + 100
                End If
            Next
        Next
    End With
End Sub

Then just call this routine like this:


ResizeGrid MSFlexGrid1, Form1

For some reason the procedure doesnt seem to recognise my flexigrid. Stepping thru the code it lists my flexigrid as ""

[Nightwalker83]

There is no reason to ressurrect the dead! This thread is 9 years old. Try the solution linked to in post #2.