رفتن به مطلب
  • 0

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


مسعود دلفان آذری

سوال

سلام دوستان

من ده تا لیبل دارم و در داخل هر لیبل چند کلمه نوشته شده، من میخوام اندازه متن درون لیبل ها با اندازه لیبل متناسب شه (نمیخوام اندازه لیبل تغییر کنه و تنها متن اندازش عوض شه) و متن از لیبل بیرون نزنه و متن درست در وسط لیبل قرار بگیره!

لطفا راهنمایی فرمایید:sorry:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

2 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

دوستان روششو پیدا کردم، تشکر

Sub SetLabelTextSize(lbl As Label, txt As String, MaxFontSize As Float, MinFontSize As Float)
	Dim FontSize = MaxFontSize As Float
	Dim Height As Int
	Dim stu As StringUtils
    
	lbl.TextSize = FontSize
	Height = stu.MeasureMultilineTextHeight(lbl, txt)
	Do While Height > lbl.Height And FontSize > MinFontSize
		FontSize = FontSize - 1
		lbl.TextSize = FontSize
		Height = stu.MeasureMultilineTextHeight(lbl, txt)
	Loop
End Sub

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...