在VB6.0中,有label 、command 标签,怎么设置使其上面的文字大小随着控件大小的调整而改变。

2025-01-09 16:50:56
推荐回答(2个)
回答1:

在运行状态下,设置控件的 Font中的Name 及Size 属性就可以设置其字体名称及大小.
如:
Command1.Font.Name="宋体"
Command1.Font.Size="30"

Label.Font.Name = "楷体_GB2312"
Label1.Font.Size = "30"

回答2:

获取当前控件大小,获取修改后控件大小
算出比值,字体大小乘以比值

Object.Font.Szie = Object.Font.Szie * 比值