vb2010 怎么使label里的字在后续输入时自动调整大小
当label里的内容显示满了的时候,能够自动将字体变小,使他能够显示全部内容label的大小是固定的,要调整字号来填满label...
当label里的内容显示满了的时候,能够自动将字体变小,使他能够显示全部内容
label的大小是固定的,要调整字号来填满label 展开
label的大小是固定的,要调整字号来填满label 展开
1个回答
2018-04-08 · 知道合伙人互联网行家
关注
展开全部
下面是我为你写的一个函数,我用的名字是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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询