ばかりしている:MSHFlexGrid控件列宽自动调整

来源：百度文库编辑：偶看新闻时间：2024/05/04 16:55:16

MSHFlexGrid控件列宽自动调整

今天在单位里没事帮朋友做了个建议通讯录，呵呵，没什么技术含量，不过里面有个控件还是值得介绍的。那就是MSHFlexGrid控件。

我写了个能自动调整列宽的模块，在这里介绍给大家：

Public Sub AdjustColWidth(frmCur As Form, gridCur As Object, Optional bNullRow As Boolean = True, Optional dblIncWidth As Double = 0)
'--------------------------------------------------------------------
'功能:
'       自动调整Grid各列列宽为最合适的宽度
'参数:
'       [frmCur].........................................当前工作窗体
'       [gridCur]........................................当前要调整的Grid
'--------------------------------------------------------------------
Dim i, j As Integer
Dim dblWidth As Double
    With gridCur
        For i = 0 To .Cols - 1
            dblWidth = 0
            If .ColWidth(i) <> 0 Then
                For j = 0 To .Rows - 1
                    If frmCur.TextWidth(.TextMatrix(j, i)) > dblWidth Then
                        dblWidth = frmCur.TextWidth(.TextMatrix(j, i))
                    End If
                Next
                .ColWidth(i) = dblWidth + dblIncWidth + 100
            End If
        Next
    End With

End Sub

把这段代码单独写到模块中，在在窗体中调用既可。还请大家多提点意见。

VB控件mshflexgrid 关于VB mshflexgrid控件,查询表时0列不写入的问题 vb的MSHFlexGrid控件表格大小问题急！！Eclipse中使用tableviewer，如何自动调整表中各列的列宽？？如何在VB的picturebox控件中让图形适应控件自动调整大小关于VB MSHFlexGrid控件的使用.我头都大了. 关于修改MSHFlexGrid控件中内容的问题 VB6 listview 控件怎么样动态改变其列宽？？在Excel中如何使一个单元格自动调整列高以完全显示？请问VB6.0中添加的表格控件(MSHFlexgrid)在哪呀?找不到. 我的MSHFlexGrid已与adodc控件相连，但是如何通过他向数据库导入数据？ vb中的MSHFlexGrid控件的选中一行或一列的事件是什么？如何调整PPT中绘制表格的列宽 excel中怎样整体调整行高或列宽 vb 中对象关闭，不允许操作，还有怎么解决“MSHFlexgrid中出现的无效列值” VB中mshflexgrid控件的不同行的单元格之间如何连线?希望大哥大姐们给予帮助!谢谢!急 GridView控件如何控制列的宽度。 ASP.NET DataGrid控件链接列问题关于DATAGIRD控件列排序的问题如何自动调整自动调整请稍候电脑分辨率自动调整取消显示器自动调整为什么dreamweaver的表格总是会自动改变列宽?