مشکل در تغییر فونت

[mahdikam 35]

سلام خدمت همه

من یه پروژه دارم که با مولتی پنل درست شده و همچنین دارای قسمت تنظیمات هم هست من میخام لیبل هایی که در مولتی پنل قرار دارن از طریق فراخانی دیتابیس  همشون فونتشون عوض بشه ولی متاسفانه این اتفاق نمیافته و فقط یکی از لیبل ها فونتش عوض میشه  اینم کد

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("1")
	Dim arc1 As ArcMenu
		sql1.Initialize(File.DirInternal,"viber.db",True)
		sql2.Initialize(File.DirInternal,"viber.db",True)
	cur1=sql1.ExecQuery("select * from telegram")
	For i=0 To cur1.RowCount-1
	cur1.Position=i
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,Stop,100%x,100%y)
	Stop=Stop+10%y
	p.LoadLayout("2")
	label1.Text=cur1.GetString("onvan")
	Panel1.Tag=i
	ScrollView1.Panel.Height =Stop+60%y
	Next 
        u = sql2.ExecQuery("SELECT * FROM setting")
For i = 0 To u.rowcount-1
			u.Position = i
			     label1.Typeface=Typeface.LoadFromAssets(u.GetString("font")&".ttf")
		Next 
End Sub

[shahab.es 5,429]

ارورت که میگه شما ستونی به اسم Setting نداری

اسم ستون خودت رو باید بذاری در خط زیر

dim str1 as string = u.getstring("setting")

u هم کورزورتون هست برای بانک sql2 درسته؟

ببین، کورزور همیشه یه پوزیشن احتایج داره که از اون خط بیاد بخونه اطلاعات رو 

از 0 تا بینهایت میتونه باشه(ما از 1 میشماریم، کورزور از 0 پس از 0 تا n-1 مقدار میگره)

از اونجایی که یه خط بیشتر نداریم توی تنظیمات(نمیدونم شما چند خط داری، فقط یه فونت رو باید ذخیره کنی دیگه، پس یه رکورد میشه) من گفتم بیا همون خطا اولی(که جایگاه 0 داره رو) رو انتخاب کن....

[shahab.es 5,429]

سلام

کد تغییر فونت رو هم تو حلقه بذارید دوستم

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("1")
	Dim arc1 As ArcMenu
		sql1.Initialize(File.DirInternal,"viber.db",True)
		sql2.Initialize(File.DirInternal,"viber.db",True)
	cur1=sql1.ExecQuery("select * from telegram")
	For i=0 To cur1.RowCount-1
	cur1.Position=i
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,Stop,100%x,100%y)
	Stop=Stop+10%y
	p.LoadLayout("2")
	label1.Text=cur1.GetString("onvan")
  u = sql2.ExecQuery("SELECT * FROM setting")

			
			     label1.Typeface=Typeface.LoadFromAssets(u.GetString("font")&".ttf")
		
	Panel1.Tag=i
	ScrollView1.Panel.Height =Stop+60%y
	Next 
      
End Sub

[mahdikam 35]

این کارم کردم ولی باز نشد

[shahab.es 5,429]

نشد یعنی چی دوست من؟

ارور داری؟

فایل پیدا نشده

به بانک وصل نشده

فونت عوض نمیشه

دقیق بگید مشکلتون رو عزیزم

[mahdikam 35]

این ارور میده

http://s6.picofile.com/file/8217951984/12.png

[shahab.es 5,429]

ببین

قبل از درست کردن حلقه، اسم فونت رو بریز توی یه متغیر رشته ای

 u = sql2.ExecQuery("SELECT * FROM setting")
u.positin = 0
dim str1 as string = u.getstring("setting")

حالا حلقه ات رو ایجاد کن

به شکل زیر

For i=0 To cur1.RowCount-1
	cur1.Position=i
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,Stop,100%x,100%y)
	Stop=Stop+10%y
	p.LoadLayout("2")
	label1.Text=cur1.GetString("onvan")
  
label1.Typeface=Typeface.LoadFromAssets(str1&".ttf")
		
	Panel1.Tag=i
	ScrollView1.Panel.Height =Stop+60%y
	Next 

یه تست بکن

اگه کدهارو متوجه نمیشی، بپرس جاهایی رو که یاد بگیری و صرفا کپی نکنید دوستم

[mahdikam 35]

کد هارو متوجه شدم فقط اون قسمتی که نوشتید u.position=0رو نفهمیدم چرا اینکارو کردید؟

درضمن بازم ارور میده

http://s3.picofile.com/file/8217953984/13.png

[mahdikam 35]

اقا خیلی گلی درست شد