تغییر فونت لیست ویو

[ghmasoud 14]

سلام

لطفا کمکم کنین

کد تغییر فونت زیر مشکلش چیه من قبلا (پارسال یا شایدم بیشتر) با ورژن 3.2 این کد رو بدون خطا اجرا میکردم ولی حالا نمیشه؟؟

Sub Globals
Dim font1 As Typeface
font1.LoadFromAssets("bmitra_0.ttf")
End Sub


Sub Activity_Create(FirstTime As Boolean)
   Dim p As Phone
   p.SetScreenOrientation(1)
   lsvlist.Initialize("lsvlist")
   Activity.AddView(lsvlist,0,0,100%x,100%y)
   lsvlist.Color=Colors.Magenta
  
   lsvlist.AddTwoLines("آیتم یک","آیتم دو")
   lsvlist.AddTwoLines("آیتم یک","آیتم دو")
   lsvlist.TwoLinesLayout.Label.Typeface=Main.font1

End Sub

[Alireza.Ghafari 2,104]

درود اصلا MAIN رو نباید قرار میدادید دوست عزیز در ضمن فونت رو هم اشتباه فراخانی کردید به این صورت میشه : 

Dim tp As Typeface
tp = tp.LoadFromAssets("Your Font.TTF")
listview1.SingleLineLayout.Label.Typeface = tp

موفق باشید

[beny81 28]

دوست عزیز شما میتونید به جای تعریف کردن فون این کد رو بنویسید

listview1.singlelinelayout.label.typeface = typeface.loadfromassets("your font.ttf")

[beny81 28]

ببخشید به جای تعریف کردن فونت

دوست عزیز شما میتونید به جای تعریف کردن فون این کد رو بنویسید

listview1.singlelinelayout.label.typeface = typeface.loadfromassets("your font.ttf")

ببخشید به جای تعریف کردن فونت