تغییر اندازه لیبل باتوجه به متن

[mkabir 186]

سلام با استفاده از این تابع میتوانید اندازه لیبل را با توجه به متن تغییر دهید یعنی ارتفاع لیبل دقیقا اندازه متن

کتابخانه مورد نیاز stringUtils در بیشتر بیسیک ها وجود داره اینم کد :

Sub Globals
Private Label1 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
Label1.TextSize =20
Dim s As StringUtils
Label1.Height=s.MeasureMultilineTextHeight(Label1,Label1.Text)
End Sub