【CSDN】【如何根据MSFlexGrid控件中内容的字符长度自动调整列宽，保证所有字符可见】

Dim   Max   As   Integer  
          Dim   i   As   Integer  
          Dim   j   As   Integer  
          For   j   =   0   To   MSFlexGrid1.Cols   -   1  
          Max   =   0  
          For   i   =   0   To   MSFlexGrid1.Rows   -   1  
                  If   Len(Trim(MSFlexGrid1.TextMatrix(i,   j)))   >   Max   Then   Max   =   Len(Trim(MSFlexGrid1.TextMatrix(i,   j)))  
          Next   i  
          MSFlexGrid1.ColWidth(j)   =   Max   *   300  
          Next   j 问题点数：100、回复次数：2Top

1 楼callzjy2（）回复于 2003-11-02 14:15:19 得分 99

Dim   i,   j   As   Integer  
          Dim   Max   As   Double  
          With   MSFlexGrid1  
                  For   i   =   0   To   .Cols   -   1  
                          Max   =   0  
                          If   .ColWidth(i)   <>   0   Then  
                                  For   j   =   0   To   .Rows   -   1  
                                          If   Me.TextWidth(.TextMatrix(j,   i))   >   Max   Then  
                                                  Max   =   Me.TextWidth(.TextMatrix(j,   i))  
                                          End   If  
                                  Next  
                                  .ColWidth(i)   =   Max   +   110  
                          End   If  
                  Next  
          End   WithTop

2 楼since1990（level）回复于 2003-11-02 15:00:11 得分 1

upTop

相关问题

• 字符
• me
• msflexgrid
• textmatrix
• colwidth
• max
• textwidth
• dim
• trim
• next

• 帖主：drillmaster11
• callzjy2
• since1990

• Visual Basic类图书
• Visual Basic类源码下载