اندازه متن در اسکرین های متفاوت

[myoyo 10]

سلام...

ما برای اینکه مثلا یک ویو تو گوشی های مختلف سرجاش باشه از %y و %x استفاده میکنیم...

اما برای سایز متن (font) چیکار کنیم؟؟؟

من یه برنامه نوشتم که تو گوشی خودم که 5اینچیه اندازه فونتش مناسبه ولی تو گوشی های با صفحه کوچکتر که امتحان کردم فونتش خیلی بزرگ میشه (نسبت به اندازه صفحه گوشی)

آیا برای حل این مشکل راه حلی هست؟

ممنون.

[myoyo 10]

ممنون فرزاد

خیلی بدردم خورد...

[ارمین رمضانی دلیجانی 381]

دوست عزیز myoyo ما خیلی خوش حالیم که شما مشکلتون رو تو این انجمن حل میکنید

اما خواهش میکنم برای تشکر از اون کلید پایین پست استفاده کنید شما با دادن متن خیلی ممنون یه کاری میکنید دوستانی که در مورد جواب دادن تلاش میکنن هی بیان تو این تاپیک تا جواب بدن و میبینن که شما تشکر کردی!

موفق باشید دوست من *ناز*

[myoyo 10]

کسی نمیدونه جوابشو؟!

[Farzad Musavi 576]

سرچ میکردی پیدا میکردی

این کد مجیدو ببین

خوبه پس

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

Sub Globals
Dim stu As StringUtils
End Sub

Sub SetTextSize(lbl As Label, txt As String)
 Dim dt As Float
 Dim limit = 0.5 As Float
 Dim h As Int

 lbl.Text = txt
 lbl.TextSize = 72
 dt = lbl.TextSize
 h = stu.MeasureMultilineTextHeight(lbl, txt)
 Do While dt > limit OR h > lbl.Height
   dt = dt / 2
   h = stu.MeasureMultilineTextHeight(lbl, txt)
   If h > lbl.Height Then
     lbl.TextSize = lbl.TextSize - dt
   Else
     lbl.TextSize = lbl.TextSize + dt
   End If
 Loop
End Sub

مثال از متد :

Sub Button1_Click
Dim txt = "Salam bebinid In Matn Tolaniye va Man Mikham Vaqti Toye Label Mizaram Label Dar Har Sizei Ke Hast In Matno Ja BEde To Khudesh" As String
SetTextSize(Label1, txt)
End Sub

مشکلی بود در خدمتم

سایزو مطابق اندازه لیبل تنظیم میکنه