让VB控件大小随窗体改变而改变
文字面积和窗体面积的比值不变，即故Controls（i）.Font.Size'=Controls（i）.Font.Size=Controls（i）.Font.Size=ap（i）.sp其中，Controls（i）.Font.Size是控件i上的文字最初的高度[3]，Controls.（i）.Font.Size'是它在窗体改变后的高度，Form1.Width是窗体最初的宽度，Form1.Width'是窗体改变后的宽度，Form1.Height是窗体最初的高度，Form1.Height'是窗体改变后的高度，a是文字宽度、高度的比值，ap（i）.sp是控件上的文字高度和窗体最初面积的平方根的比值。这样只要窗体大小改变，文字大小就会随之改变，窗体可以小到只剩标题栏，而且原来的布局不变（见图3）。图1 原来的窗体图2 缩小的窗体（文字大小不变）图3 缩小的窗体（文字大小随之改变）具体地说，窗体高度包括上、下边框、标题栏的高度，它们不与窗体高度成比例改变（与窗体类型有关，对于某一类型的窗体其实是固定值），因此为保证布局不变，应用窗体内部高度（除去上、下边框、标题栏的高度）而不是窗体高度，那么它的值是多少呢？幸运的是，属性ScaleHeigh
<<上一页 下一页>>
广州市越秀区图书馆版权所有。
联系电话：020-87673002
本站访问人数： 242514