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

[mrezag 1]

میخام اندازه متن نسبت به صفحه گوشی بزرگ یا کوچک شه ، در حالت عادی که الان هست تو بعضی گوشیا متن تو صفحه جا نمیشه تو بعضیا هم کوچک تره

[alirezafc 0]

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

لینک : http://s8.picofile.com/file/8366787950/autoScal.rar.html

نحوه استفاده :

sub Globals
Dim auto As AutoScaleFont
Dim Label1 as Label
End Sub


Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Main")
	auto.Initialize
	Label1.TextSize=auto.ReturnScaledSize(20)
End Sub

 

[محمدی 95]

در در 20 تیر 1398 در 09:45، mrezag گفته است :

میخام اندازه متن نسبت به صفحه گوشی بزرگ یا کوچک شه ، در حالت عادی که الان هست تو بعضی گوشیا متن تو صفحه جا نمیشه تو بعضیا هم کوچک تره

 

 (GetDeviceLayoutValues.ApproximateScreenSize*2.8))
  به این شکل هم مبتونید

[mrezag 1]

در 9 ساعت قبل، alirezafc گفته است :

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

لینک : http://s8.picofile.com/file/8366787950/autoScal.rar.html

نحوه استفاده :

sub Globals
Dim auto As AutoScaleFont
Dim Label1 as Label
End Sub


Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Main")
	auto.Initialize
	Label1.TextSize=auto.ReturnScaledSize(20)
End Sub

 

اون بیست داخل پرانتز چیه؟

 

[alirezafc 0]

در 53 دقیقه قبل، mrezag گفته است :

اون بیست داخل پرانتز چیه؟

 

یه اندازه متن هست.

Label1.TextSize=auto.ReturnScaledSize(fontsize)