【Access小品】列表框宽度自适应

todaynew · 发表于 2010-7-22 11:11:15

　　昨天根据版友石三少同志的问题编写了一个导入导出的实例，在这个实例中用到了列表框来显示不同表的数据，这样的处理有个好处可以不必考虑子窗体增减控件的问题。但是昨天的实例留下来一个小问题，就是不同的数据表列宽都是一致的，数据要么显示不全，要么留白太多，实在不美观。根据这样一个遗留问题，今日写就本实例，解决列表框列宽自适应记录宽度问题。
Function GetcomWidths(ctl As Control, ftSize As Long)
'功能：列表框字段框度自适应
'参数：ctl--列表框控件,ftSize--字号
'示例：GetcomWidths me.记录,10
Dim rs As New ADODB.Recordset
Dim i As Long, j As Long
Dim comWidths As String
Dim w As Single
rs.Open ctl.RowSource, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
ctl.FontSize = ftSize
For i = 0 To rs.Fields.Count - 1
rs.MoveFirst
w = 0
For j = 1 To rs.RecordCount
If Len(Nz(rs(i).Value, "")) > w Then w = Len(Nz(rs(i).Value, ""))
rs.MoveNext
Next
If w > 20 Then w = 20
w = 0.0353 * (w + 1) * ctl.FontSize
comWidths = comWidths & w & " cm;"
Next
ctl.ColumnWidths = comWidths
rs.Close
End Function

5988143 · 发表于 2010-7-22 11:53:27

非常不錯的技巧~

asklove · 发表于 2010-7-22 15:38:24

学习

ZHENGLIAN · 发表于 2010-8-22 11:03:41

非常不錯的技巧~

mrd_wxqs · 发表于 2010-12-10 15:07:07

很虔诚地向前辈大师学习，谢谢！

wufeng980114 · 发表于 2011-1-16 22:07:44

路过，学习

鱼儿游游 · 发表于 2011-1-16 22:09:38

这个实例太好了，多谢楼主！

鱼儿游游 · 发表于 2011-1-16 22:43:16

能有 LISTVIEW 宽度自适应就更好了，呵呵

miracle-y · 发表于 2011-1-16 23:00:16

学习了

yzt880 · 发表于 2013-1-17 22:40:08

有两个问题1是不能超过28列否则报错不能自适应，2是输入数字的时候一个数字多出一个空白格，就这样11111 ，无法解决。

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 【Access小品】列表框宽度自适应

本帖子中包含更多资源

评分

本帖被以下淘专辑推荐:

群介绍
主题无相 (随机显示版	同地区群块其他地区)