Question

vb2010 怎么使label里的字在后续输入时自动调整大小

当label里的内容显示满了的时候，能够自动将字体变小，使他能够显示全部内容
label的大小是固定的,要调整字号来填满label

Answer 1

下面是我为你写的一个函数,我用的名字是label1 设其index=0(让它为一个数组控件)
Private Function CreateLable(nstr As String) As Integer
Dim i As Integer
Load Label1(Label1.Count)'这个是添加,如果重新排列 ,一个for 下面的改下!
With Label1(Label1.Count - 1)'如果要重新再排时,这里稍作修改就行!
.AutoSize = True
.Caption = nstr
.Move IIf(Me.ScaleWidth > .Width + Label1(Label1.Count - 2).Left + Label1(Label1.Count - 2).Width, Label1(Label1.Count - 2).Left + Label1(Label1.Count - 2).Width, 0), _
IIf(Me.ScaleWidth > Label1(Label1.Count - 2).Left + Label1(Label1.Count - 2).Width + .Width, Label1(Label1.Count - 2).Top, Label1(Label1.Count - 2).Top + Label1(Label1.Count - 2).Height)
.Visible = True
End With
CreateLable = Label1.Count - 1
End Function