با استفاده از دیتابیس برای اسپینر اسم فونتهارو لود کردم
و میخوام رو هر ایتم کلیک شد فونت به لیبل اعمال شه ولی ارور میده
اینم کد لود از دیتابیس
If File.Exists(File.DirInternal,"itemlist.db") = False Then
File.Copy(File.DirAssets,"itemlist.db",File.DirInternal,"itemlist.db")
End If
SQL1.Initialize(File.DirInternal,"itemlist.db",False)
cur1= SQL1.ExecQuery ("SELECT * FROM info")
For i = 0 To cur1.RowCount-1
cur1.Position=i
Spinner1.Add(cur1.GetString("lblmusic"))
Label1.Gravity=Gravity.CENTER
Next
اینم کدی که گزاشتم برای اسپینر گزاشتم
Sub Spinner1_ItemClick (Position As Int, Value As Object)
Label1.Typeface = Typeface.LoadFromAssets (Value &".ttf")
End Sub
سوال
dostmobile 329
سلام دوستان گل
یه صفحه تنظیمات ساختم
با استفاده از دیتابیس برای اسپینر اسم فونتهارو لود کردم
و میخوام رو هر ایتم کلیک شد فونت به لیبل اعمال شه ولی ارور میده
اینم کد لود از دیتابیس
If File.Exists(File.DirInternal,"itemlist.db") = False Then File.Copy(File.DirAssets,"itemlist.db",File.DirInternal,"itemlist.db") End If SQL1.Initialize(File.DirInternal,"itemlist.db",False) cur1= SQL1.ExecQuery ("SELECT * FROM info") For i = 0 To cur1.RowCount-1 cur1.Position=i Spinner1.Add(cur1.GetString("lblmusic")) Label1.Gravity=Gravity.CENTER Nextاینم کدی که گزاشتم برای اسپینر گزاشتم
ممنون میشم راهنمایی کنید
شرمنده عکس ارور رو هم میزارم
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.