Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1423
  • Last Modified:

MSFlexGrid Double-Click Column Resize

Hi.  Could you please tell me how to make an MSFlexGrid control resize a column to display the longest text in that column when the user double clicks when the double-arrowed mouse cursor appears between column boundaries?  Thank you.
0
deatc
Asked:
deatc
  • 2
1 Solution
 
JR2003Commented:
You could do it by adding an invisible autosizing label to your form. If you populate it with every value in the flexgrid column and take the largest width this will be the width of the largest column. Also make sure that the fonts in both controls match.

Have you thought of using a listView control instead? It is default behaviour in a listView control.
0
 
vb_elmarCommented:
Try this (click the column header) :
========================

Needs:
1 Form
1 Flexgrid  (Hit Ctrl-T ---> Microsoft Flexgrid Control 6.0)



Private Sub Form_Activate()
WindowState = 2: MSFlexGrid1.Move 0, 0, 15 * 400, 15 * 150
   
    MSFlexGrid1.Cols = 5
    MSFlexGrid1.Rows = 1
   
Me.MSFlexGrid1.TextMatrix(0, 1) = "col_1"
Me.MSFlexGrid1.TextMatrix(0, 2) = "col_2"

Call newRow("Bill")
Call newRow("Gates")
Call newRow("Windows")
Call newRow("XP")
End Sub




Sub newRow(ByVal ns As String)
    Me.MSFlexGrid1.AddItem ns
    Me.MSFlexGrid1.Row = MSFlexGrid1.Rows - 1

For r = 1 To Me.MSFlexGrid1.Cols - 1
    Me.MSFlexGrid1.Col = r
    Me.MSFlexGrid1.Text = String(8 * Rnd, 65)
Next

End Sub



 
Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim MaxTextWidth As Long, M
For r = 1 To Me.MSFlexGrid1.Rows - 1
    MSFlexGrid1.Row = r
    M = (MSFlexGrid1.Text)
    If TextWidth(M) > MaxTextWidth Then MaxTextWidth = TextWidth(M)
Next
    MSFlexGrid1.ColWidth(MSFlexGrid1.Col) = MaxTextWidth
End Sub
0
 
vb_elmarCommented:
correction :
=======

instead ...

Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim MaxTextWidth As Long, M
For r = 1 To Me.MSFlexGrid1.Rows - 1
    MSFlexGrid1.Row = r
    M = (MSFlexGrid1.Text)
    If TextWidth(M) > MaxTextWidth Then MaxTextWidth = TextWidth(M)
Next
    MSFlexGrid1.ColWidth(MSFlexGrid1.Col) = MaxTextWidth
End Sub

use this :
=======

Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If y > MSFlexGrid1.RowHeight(0) Then Exit Sub
Dim MaxTextWidth As Long, M
For r = 1 To Me.MSFlexGrid1.Rows - 1
    MSFlexGrid1.Row = r
    M = (MSFlexGrid1.Text)
    If TextWidth(M) > MaxTextWidth Then MaxTextWidth = TextWidth(M)
Next
    MSFlexGrid1.ColWidth(MSFlexGrid1.Col) = MaxTextWidth
End Sub
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now