ادرس دهی و اجرای فونت با کد نویسی

[yasin011 285]

سلام و عرض ادب خدمت همه ی دوستان . 

 

میخوام مثلا پنجاه تا فوت رو تو لیبل های برنامم نشون بدم. اگه بیام دونه دونه لیبل هامو دستی بهشون بگم فونتشون چطوری باشه خب با عقل جور در نمیاد .

 

	For i=1 To 10
	Dim font As Typeface = Typeface.LoadFromAssets(i & ".ttf)
	Next 

خاستم با این روش برم اما نشد . ینی میگه حتما باید رشته باشه توش !  

 

دوستان روشی چیزی دارین بگید. تشکر 

 

[امین شاهدی 5,777]

خب پش یه چیزی تو این مایه ها میشه ، تست نکردمش فقط نوشتم ببین همونجوریه که میخوای ؟

	Dim top As Int
	For i=0 To 10
		Dim ll As Label
		ll.Initialize("ll")
		Activity.addview(ll,10,top,40,20)
		ll.Text=i
		ll.Typeface=Typeface.LoadFromAssets(i & ".ttf")
top=top+20
	Next

[امین شاهدی 5,777]

شما به این صورت میتونین همه ی لیبل هارو بگیرین و روش کاریو که میخواین رو انجام بدین 

For Each v As View  In Activity.GetAllViewsRecursive
If v Is Label Then
'kari ke mikhain ru hameye label hae barname anjam sheo inja benevisin
End If
Next

[yasin011 285]

همه ی لیبل هارو بگیرین و روش کاریو که میخواین رو انجام بدین

سلام امین جان .

 

من میخوام هرلیبلم یه فونت مجزا نشون بده ! نمیخوام تو دیزاینر لیبل بسازم و بهش بگم اینطور نشون بده . چون تعدادش زیاده. میخوام با کد بگم .  

[yasin011 285]

ببین همونجوریه که میخوای ؟

 

 

[امین شاهدی 5,777]

شما فونت هارو کپی نکن توی  پوشه فایل، همیشه برای ادد کردن فونت از توی خود b4a و از تب Files از اونجا ادد کن تا مشکلی پیش نیاد

شما فونت هارو پاک کن و از توی B4a ادد کن