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

Question

如题所述

Answer 1

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

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

Answer 2

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

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

没有找到在哪儿啊？我的意思是用鼠标拖控件大小时，文字大小也跟着变化

追答

你指的是你在编辑时？
如果是在编辑的时候做到这一点，没有办法，只有一个Label的大小随字体的变化而变化
就是AutoSize属性。
运行时做的话，就是上面那样。