سلام من با استفاده از پنل لیست موضوعی درست کردم که اطلاعات رو از دیتابیس میگیره، حالا مشکل اینجاس که بیشتر از 7 تا موضوع رو نشون نمیده! لطفا راهنماییم کنین.
اینم کد :
File.Copy(File.DirAssets,"dbase.db",File.DirInternal,"dbase.db")
sql1.Initialize(File.DirInternal,"dbase.db",True)
cur1 = sql1.ExecQuery("SELECT * FROM tbl1")
Dim stop As Int = 0
ScrollView1.Panel.Color = Colors.Transparent
For i=0 To cur1.RowCount-1
cur1.Position = i
Dim p1 As Panel
p1.Initialize("")
ScrollView1.Panel.AddView(p1,0,stop,100%x,200dip)
stop = stop + 70dip
p1.LoadLayout("frmlist")
btnnumber.Tag = i
btnnumber.Text = i + 1
lblfrom.Text = cur1.GetString("subject")
Next
سوال
MoniSoft 14
سلام من با استفاده از پنل لیست موضوعی درست کردم که اطلاعات رو از دیتابیس میگیره، حالا مشکل اینجاس که بیشتر از 7 تا موضوع رو نشون نمیده! لطفا راهنماییم کنین.
اینم کد :
File.Copy(File.DirAssets,"dbase.db",File.DirInternal,"dbase.db") sql1.Initialize(File.DirInternal,"dbase.db",True) cur1 = sql1.ExecQuery("SELECT * FROM tbl1") Dim stop As Int = 0 ScrollView1.Panel.Color = Colors.Transparent For i=0 To cur1.RowCount-1 cur1.Position = i Dim p1 As Panel p1.Initialize("") ScrollView1.Panel.AddView(p1,0,stop,100%x,200dip) stop = stop + 70dip p1.LoadLayout("frmlist") btnnumber.Tag = i btnnumber.Text = i + 1 lblfrom.Text = cur1.GetString("subject") Nextلینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.