VB6.0查询显示出来的数据，如何显示自动调整列宽？

#2

wangyiaihu2020-05-03 16:31

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

网上找到了一个代码，说是放在模块中，但是怎么调用呢？请教，

#3

ZHRXJR2020-05-03 20:10

非常简单：

.ColWidth(X) = Y 'X是需要调整列宽的列数，Y是调整该列宽的宽度数
例如 .ColWidth(2) = 2100 '将第二列的宽度调整为 2100

#4

wangyiaihu2020-05-04 14:38

回复 3楼 ZHRXJR

这是手动预设的方法，管用，但是还有一种自动调整的方法，如我上面发的那个代码，就是放在模块后，不会调用，

#5

风吹过b2020-05-04 21:33

AdjustColWidth(frmCur As Form, gridCur As Object, Optional bNullRow As Boolean = True, Optional dblIncWidth As Double = 0)

frmCur As Form, gridCur As Object
这个参数不解释了，已有说明

bNullRow 这个参数没找到使用的地方，所以无从解释
dblIncWidth 这个参数是留空宽度，计算出最长的长度后，然后再再加留空宽度
代码里 100 ，这里觉得不妥，在标准分辨率应该是 90 或 120 ，而不应该是100 。所以不知道代码里那个固定值 100 是怎么来的。

调用很简单
载入数据后，在本窗口里调用就下面这样的
1、最少参数：call AdjustColWidth( me , 控件名 )
2、完整参数：call AdjustColWidth( me , 控件名 , true , 0 )
注意，第三个参数到第四个参数可以省略，第四个参数有值时，那第三个参数如果省略的话，但逗号不能省。

#6

wangyiaihu2020-05-05 05:24

回复 5楼风吹过b

自动调整列宽，你可以按照你的写法，把代码写给我吗？

VB6.0查询显示出来的数据，如何显示 自动调整列宽？