【Access小品】第100个是铜像---文本框字号自适应列宽

xuwenning

确有此问题。
todaynew 发表于 2010-8-13 14:41

版主敬业
向您学习

xuwenning

我修改了一下请老汉指正
‘＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Function ctlFontSize(ctl As Control)
Dim w As Single, c As Single, d As Single
Dim i As Long
Dim b As Boolean
ctl.FontSize = Nz(n) '1 磅等于1/72 英寸
'1440 缇等于一英寸
w = ctl.Width / 1440

For i = n To 1 Step -1
'使用vbFromUnicode判断中文字符有几个
'注意unicode编码的字串（如中文、日文、韩文等）
c = LenB(StrConv(Nz(ctl.Value, ""), vbFromUnicode)) - Len(Nz(ctl.Value, ""))
d = Len(Nz(ctl.Value, "")) - c
b = ((2 * c + d + 1) * i) / (2 * 72) - w <= 0
'b = ((Len(ctl.Value) + 1) * i) / (2 * 72) - w <= 0
    If b = True Then
        ctl.FontSize = i
        Exit For
    End If
Next
End Function

todaynew

谢谢xuwenning 同志的批评指正，并赞赏直言不讳的精神。对其中的StrConv函数还没用过，需要进一步学习一下。

li08hua

todaynew 同志，以我看，站主还有大家应该对网站有贡献的学友们搞个仪式，在您的第100个作品发表之日就该为您搞个庆祝活动，并记录在案。鼓励大家向您学习。不知如何？

xuwenning

todaynew 同志，以我看，站主还有大家应该对网站有贡献的学友们搞个仪式，在您的第100个作品发表之日就该为 ...
li08hua 发表于 2010-8-13 22:11

赞同楼上的
特别是老汉令我汗颜
现在下决心努力向他学习

真主

还有一个问题，就是修改此行数据后，自动适应列宽功能不失效了，直到下次打开才又好了

xuwenning

还有一个问题，就是修改此行数据后，自动适应列宽功能不失效了，直到下次打开才又好了
真主 发表于 2010-8-14 19:59

可以统一使用n＝10的字体
跟新后再次调用

huxinhua

收藏学习

wuheng

谢谢，学习中~~~~~~~~~~

tang211

太厉害了，，，，，