میخام برا چنتا لیبل که 7تا هستن تو اسکرول ویو متنشا اونجا بزارم
اینم کدام اما خطا میده برنامه و فورس کلوز میده!
Activity.LoadLayout("S")
File.Copy(File.DirAssets,"hamd.db",File.DirInternal,"hamd.db")
sql1.Initialize(File.DirInternal,"hamd.db",False)
cur=sql1.ExecQuery("SELECT name FROM tbl1")
Dim dis As Int=0
For i=0 To 7
l(i).Initialize("")
cur.Position=i
l(i).Text=cur.GetString("name")
l(i).Gravity=Gravity.CENTER
l(i).TextSize=17
l(i).TextColor=Colors.White
ScrollView1.Panel.AddView(l(i),0,dis,100%x,70dip)
dis=dis+70dip
Next
ScrollView1.Panel.Height=1200dip
سوال
siroos12 14
سلام دوستان من ی دیتابیس دارم به اسم hamd.db
میخام برا چنتا لیبل که 7تا هستن تو اسکرول ویو متنشا اونجا بزارم
اینم کدام اما خطا میده برنامه و فورس کلوز میده!
Activity.LoadLayout("S") File.Copy(File.DirAssets,"hamd.db",File.DirInternal,"hamd.db") sql1.Initialize(File.DirInternal,"hamd.db",False) cur=sql1.ExecQuery("SELECT name FROM tbl1") Dim dis As Int=0 For i=0 To 7 l(i).Initialize("") cur.Position=i l(i).Text=cur.GetString("name") l(i).Gravity=Gravity.CENTER l(i).TextSize=17 l(i).TextColor=Colors.White ScrollView1.Panel.AddView(l(i),0,dis,100%x,70dip) dis=dis+70dip Next ScrollView1.Panel.Height=1200dip
مشگل کجاست؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.