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

todaynew

　　上世纪六七十年代，阿尔巴亚是我们的同志加兄弟，那个时候南斯拉夫还是修正主义。《第八个是铜像》是阿尔巴亚一部反映二战时期的电影，这个电影都是在很大的一个操场上露天放映的。近十多年来，别说你想看阿尔巴亚的电影，就是朝鲜电影你都看不上了。可能有很多同志都不知道本题的渊源，呵呵。

　　前日，Office中国版友sxb2007同志指名要求在下写一个字段宽度自适应文本框的实例，应该说这不是太难的问题，许多版友都可以做出来，而且方法也应该有很多。本来想在第100个【Access小品】写出一个像样的东西，为自己做一个标志性文章。可是等了几天也没有等到合适的问题，算球！就以这个题目写第100个小品罢了。

　　前天Access技术论坛的版友yinyt同志发了一贴《如何才能让自己的access水平更上一层楼？》，我的观点是更上一层楼或者想速成的办法只有一个，就是大量的练习和实作。可能有同志可以总结出各种好的学习方法和过程，其实我是不以为然的，最终的方法总是不能按照教科书和别人做出的实例来学习的，所谓知其然和知其所以然的道理也就在于此。说到底Access只是一个应用层面的知识，你按部就班的学习也好，不按部就班的学习也好，只要你不断的实践，就会有所收获。我所提倡的是高效而胡乱的学习，不要循规蹈矩，不要按部就班，搞明白一个问题是一个问题。依我观察掌握到Access中5%到10%左右的知识，就可以解决日常工作中的问题了。如果你具有Access10%以上的知识，在现有的专业论坛中，你就已经是专家了。

　　【Access小品】大约写了100个，因为在几个论坛发贴，统计不是很精确，只能是一个概数，只能说明本人在这个过程中有数量比较大的积累。这个系列似乎得到了许多版友的喜欢，但是我要告诉同志们，别迷恋老汉，老汉只是一个传说。因为你看了100个，并不意味着你正真学学会了100实例中的技巧和思路。你要想真正学习和形成自己独特的思路，还是需要你自己动手。我是不大看别人写的实例，当然除了问题以外。我比较关注问题，而不是解法，在我看来问题的有趣，比解法的精巧重要许多。

　　《第八个是铜像》寓意一种怀念和纪念，《第１００个是铜像》寓意一种标志，这个标志给自己是纪念，给版友是一种示范。这种示范或许可以理解为一种夸耀，或许可以理解为一种一厢情愿。无论如何多少能产生一些效果，呵呵。

xxk8077

又来学习了

andliu

强大,学习了.

李力军2

学习

AnlexanderZhang

是的，请问如何在报表里实现此功能！请大家指教。

Charline

请问能不能在报表中也实现字体大小的调整？

我把下面一段代码加到了report_load事件里，运行到读取控件值的时候错误提示参数不正确。

'--------------------------- font size --------------------------
    Dim w As Single
    Dim i As Long
    Dim b As Boolean
   
    Dim n
   
    n = Texte8.FontSize
    w = Texte8.Width / 1440
    Texte8.Enabled = True
    For i = n To 1 Step -1
        b = (Len(Texte8.Value) + 1) * i / 72 - w <= 0
        If b = True Then
            Texte8.FontSize = i
            Exit For
        End If
    Next


谢谢各位前辈的提点呐~~

tang211

太厉害了，，，，，

wuheng

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

huxinhua

收藏学习

xuwenning

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

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