تناسب سایز متن با لیبل

[امیرحسین قاسمی 610]

سلام،

دوستان یکی از مشکلاتی که وجود داره اینه که متن توی گوشی ها و تبلت های مختلف ممکنه از لیبل بیرون بزنه و یا اینکه خیلی کوچکتر بشه.(چون سایز صفحه نمایش تغییر می کنه و اگه لیبل بر اساس درصد تنظیم شده باشه اندازه اونم تغییر میکنه اما اندازه خود متن همونجوری میمونه.

توی انجمن آقای شجاعی کتابخونه اش رو گذاشتن اما صادقانه باید بگم که من استفاده کردم فورس کلوز داد.

از سایت مرجع قطعه کدی پیدا کردم اینجا هم میزارم شاید به دردتون بخوره:

#Region  Project Attributes
    #ApplicationLabel: text fitter
    #VersionCode: 1
    #VersionName: V1
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: False
#End Region

'اینو حتما بین دوتا ساب اضافه کنید
#AdditionalJar: com.android.support:support-compat

Sub Process_Globals
End Sub

Sub Globals
    'تعریف یک لیبل
    Private lblDesc As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'اینیشیالایز لیبل
    lblDesc.Initialize("")
    'افزودن لیبل به اکتویتی
    Activity.AddView(lblDesc,20%x,20%y,150dip,40dip)
    'تغییر رنگ متن لیبل
    lblDesc.TextColor=Colors.Red
    'دادن یک متن به لیبل
    lblDesc.Text="سلام، دوستان خوبید. این یک متن طولانی هم داشته باشه با سایز لیبل فیت میشه.باحاله؟"
    '(یک ورودی دارد که لیبل مورد نظر شما را میگیرد)صدا زدن تابع فیت کننده
    SetAutoSizeBasedOnText(lblDesc)
End Sub

'این تابع متن لیبل را فیت می کند
Sub SetAutoSizeBasedOnText(v As View)
    Dim jo As JavaObject
    jo.InitializeStatic("android.support.v4.widget.TextViewCompat")
    jo.RunMethod("setAutoSizeTextTypeWithDefaults", Array(v, 1))
End Sub

موفق باشید