کتابخانه TextLabelFitter (فیت کردن متن در لیبل)

[Salar82 919]

یکی از مشکلات اساسی برنامه‌نویسی اینه که موقعی که تو لیبل متنی رو می‌نویسیم، سایز متن لیبل در تمام گوشی‌ها یکسانه؛ این در حالیه که سایز لیبل بر اساس اندازه‌ی سایز گوشی کاربر تغییر می‌کنه و این باعث می‌شه که جلوه‌ی زیبای برنامه از بین بره.

با استفاده از این کتابخونه، میتونید به راحتی متنتون رو زیبا در لیبل نشون بدین.

روش کار با کتابخونه، خیلی سادست. فقط کافیه که اسم لیبل رو وارد کنید:

Dim TLF As TextLabelFitter
TLF.FitText(Label1) 'سایز لیبل رو به حداکثر مقدار ممکن تنظیم می کنه

 

اگر هم میخواین که از حداکثر سایز ممکن، یکم کمتر باشه، از متد زیر استفاده کنید:

Dim TLF As TextLabelFitter
Label1.TextSize = TLF.TextSize(Label1) - 5

متد TextSize همون حداکثر مقدار رو بهتون برمیگردونه و خوبیش اینه که میتونید اونو مدیریت کنید.

 

TextLabelFitter_V2.zip

[Appstar 10]

مرسی از کتابخونه خوبت اما لینک خرابه عزیز . 

[Salar82 919]

در در 9 اسفند 1398 در 05:57، Appstar گفته است :

مرسی از کتابخونه خوبت اما لینک خرابه عزیز . 

خیلی ببخشید

https://answercenter.ir/applications/core/interface/file/attachment.php?id=6453

لینک رو عوض کردم.

[ilan 1]

سلام
میشه بفرمائید چطوری از این کتابخانه استفاده کنم؟

[mahdi tahan 723]

کتابخونه رو تیک بزن

Dim texl As TextLabelFitter
		texl.FitText(اسم لیبلت)

 

[Salar82 919]

TextLabelFitter_V2.zip

این کتابخونه جدید هست. یه امکان جدید بهش اضاف شده.

خیلی از مواقع متد FitText ، متن رو خیلی بزرگ نشون میده؛ تو این نسخه یه متد جدید هم بهش اضاف شده که میتونید به اندازه دلخواه، سایز رو تنظیم کنید:

Dim TLF As TextLabelFitter
Label1.TextSize = TLF.TextSize(Label1) - 5

متد TextSize همون حداکثر مقدار رو بهتون برمیگردونه و خوبیش اینه که میتونید سایزش رو کم و زیاد کنید.

[ilan 1]

در 57 دقیقه قبل، mahdi tahan گفته است :

کتابخونه رو تیک بزن

Dim texl As TextLabelFitter
		texl.FitText(اسم لیبلت)

 

متشکرم برادر عزیز