سلام خسته نباشید.من یه برنامه انلاین با اموزش های اقای شهاب الدین اسکندری زدم(دستشون درد نکنه).این کد های کریت من هست برای مولتی پنل که تمام ویو از کد اضافه شدن.
Activity.LoadLayout("skr")
If File.Exists(File.DirInternal,"dbon.db") = False Then
File.Copy(File.DirAssets,"dbon.db",File.DirInternal,"dbon.db")
End If
sql2.Initialize(File.DirInternal,"dbon.db",False)
cur2 = sql2.ExecQuery("SELECT * FROM tbl")
For i = 0 To cur2.RowCount-1
cur2.Position=i
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,stop2,100%x,100%y)
cas.Initialize("")
Label1.Initialize("")
Label2.Initialize("")
p.AddView(cas,1%x,8%y,99%x,30%y)
p.AddView(Label1,2%x,7%y,32%x,17%y)
p.AddView(Label2,2%x,18%y,32%x,28%y)
card.Initialize("")
card.MaxElevation = 10dip
card.Elevation = 4dip
stop2 = stop2 + 35%y
Label2.Text= cur2.GetString("fname")
Label1.Text=cur2.GetString("lname")
ScrollView1.Panel.Height = stop2
Next
ht.Initialize("job1",Me)
ht2.Initialize("job2",Me)
خب این در قسمت کریت هست که وقتی رو دکمه اپدیت کلیک میشه بقیه ساب ها کار خودشون رو انجام میدن و سطر و متن رو از دیتابیس انلاین میگیرن و تو افلاین میارن.ولی مشکل من با این کد هست
Sub showlist
ScrollView1.RemoveView
For i = 0 To cur2.RowCount-1
cur2.Position=i
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,stop2,100%x,100%y)
p.AddView(cas,1%x,8%y,99%x,30%y)
p.AddView(Label1,2%x,7%y,32%x,17%y)
p.AddView(Label2,2%x,18%y,32%x,28%y)
cas.Initialize("")
Label1.Initialize("")
Label2.Initialize("")
card.MaxElevation = 10dip
card.Elevation = 4dip
stop2 = stop2 + 35%y
Label2.Text= cur2.GetString("fname")
Label1.Text=cur2.GetString("lname")
ScrollView1.Panel.Height = stop2
Next
End Sub
این کد برای رفرش کردن مولتی پنل هست که وقتی سطر و .... از دیتابیس انلاین گرفته شد با این کد مولتی پنل رفرش شود.ولی وقتی این کد اجرا میشه اسکرول ویو سیاه میشه انگار هیچی توش نیست.
ولی وقتی از برنامه میرم بیرون میام تو سطر های دیتابیس انلاین گرفته شده و مایش داده میشن.
سوال
amirmahdi3744 5
سلام خسته نباشید.من یه برنامه انلاین با اموزش های اقای شهاب الدین اسکندری زدم(دستشون درد نکنه).این کد های کریت من هست برای مولتی پنل که تمام ویو از کد اضافه شدن.
Activity.LoadLayout("skr") If File.Exists(File.DirInternal,"dbon.db") = False Then File.Copy(File.DirAssets,"dbon.db",File.DirInternal,"dbon.db") End If sql2.Initialize(File.DirInternal,"dbon.db",False) cur2 = sql2.ExecQuery("SELECT * FROM tbl") For i = 0 To cur2.RowCount-1 cur2.Position=i p.Initialize("p") ScrollView1.Panel.AddView(p,0,stop2,100%x,100%y) cas.Initialize("") Label1.Initialize("") Label2.Initialize("") p.AddView(cas,1%x,8%y,99%x,30%y) p.AddView(Label1,2%x,7%y,32%x,17%y) p.AddView(Label2,2%x,18%y,32%x,28%y) card.Initialize("") card.MaxElevation = 10dip card.Elevation = 4dip stop2 = stop2 + 35%y Label2.Text= cur2.GetString("fname") Label1.Text=cur2.GetString("lname") ScrollView1.Panel.Height = stop2 Next ht.Initialize("job1",Me) ht2.Initialize("job2",Me)خب این در قسمت کریت هست که وقتی رو دکمه اپدیت کلیک میشه بقیه ساب ها کار خودشون رو انجام میدن و سطر و متن رو از دیتابیس انلاین میگیرن و تو افلاین میارن.ولی مشکل من با این کد هست
Sub showlist ScrollView1.RemoveView For i = 0 To cur2.RowCount-1 cur2.Position=i p.Initialize("p") ScrollView1.Panel.AddView(p,0,stop2,100%x,100%y) p.AddView(cas,1%x,8%y,99%x,30%y) p.AddView(Label1,2%x,7%y,32%x,17%y) p.AddView(Label2,2%x,18%y,32%x,28%y) cas.Initialize("") Label1.Initialize("") Label2.Initialize("") card.MaxElevation = 10dip card.Elevation = 4dip stop2 = stop2 + 35%y Label2.Text= cur2.GetString("fname") Label1.Text=cur2.GetString("lname") ScrollView1.Panel.Height = stop2 Next End Subاین کد برای رفرش کردن مولتی پنل هست که وقتی سطر و .... از دیتابیس انلاین گرفته شد با این کد مولتی پنل رفرش شود.ولی وقتی این کد اجرا میشه اسکرول ویو سیاه میشه انگار هیچی توش نیست.
ولی وقتی از برنامه میرم بیرون میام تو سطر های دیتابیس انلاین گرفته شده و مایش داده میشن.
مشکلم با کد رفرش هست
خواهش می کنم کمک کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.