دوستان من برای فرخانی از دیتابیس تو یه بخش از برنامم از این سورس استفاده کردم
If File.Exists(File.DirInternal,"lori.db")=False Then
File.Copy(File.DirAssets,"lori.db",File.DirInternal,"lori.db")
End If
If SQL1.IsInitialized = False Then
SQL1.Initialize(File.DirInternal,"lori.db",True)
End If
cursur1 = SQL1.ExecQuery("SELECT lori FROM loritb")
myfont = Typeface.LoadFromAssets("byekan1.ttf")
Activity.LoadLayout("sv1")
PanelHeight=0
For i=0 To cursur1.RowCount-1
cursur1.Position=i
text= cursur1.GetString("lori")
sv1.Panel.Color = Colors.RGB(108,122,137)
Dim p1 As Panel
p1.Initialize("")
p1.LoadLayout("masalha")
sv1.Panel.AddView(p1,0,PanelHeight,100%x,80dip)
Label1.Typeface=Typeface.LoadFromAssets("byekan1.ttf")
button1.Tag = i
button1.text = i + 1
ht=art(text,Label1,myfont,20)
p1.Height=ht+70dip
PanelHeight=PanelHeight+ht+70dip
Next
sv1.Panel.Height=PanelHeight
مشکلی نداره و بانک موردنظر وتیبلشو میاره
اما همینو تو یه اکتیویتی دیگه میزارم نام بانک وتیبل رو هم که عوض میکنم نمیاره و اکتیویتی مورد نظر یه صفحه سیاه میاد
سوال
aloneboy7617 155
سلام
دوستان من برای فرخانی از دیتابیس تو یه بخش از برنامم از این سورس استفاده کردم
مشکلی نداره و بانک موردنظر وتیبلشو میاره
اما همینو تو یه اکتیویتی دیگه میزارم نام بانک وتیبل رو هم که عوض میکنم نمیاره و اکتیویتی مورد نظر یه صفحه سیاه میاد
مشکل کجاست؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.