cursor1 = sql1.ExecQuery("SELECT * FROM letter where cat='"&send.Tag&"' ")
PanelHeight=0
For i=0 To cursor1.RowCount-1
cursor1.Position=i
text= cursor1.GetString("onvan")
ScrollView1.Panel.Color = Colors.Transparent
Dim p1 As Panel
p1.Initialize("")
p1.LoadLayout("onvan2")
ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,50dip)
Label2.tag=text
Label2.text=text
p1.Height=ht+70dip
PanelHeight=PanelHeight+ht+70dip
Next
من با این روش میرم ، اما میخام مثلا روی یه گروه که کلیک کرد موضوع بندی حذف نشه
سوال
naeini89 30
سلام
یه دیتابیس داریم که گروه بندی شده
میخام اول گروهبندی رو نمایش بده
بعد روی گروه که کلیک میکنه بره روی عناوین
cursor1 = sql1.ExecQuery("SELECT * FROM letter where cat='"&send.Tag&"' ") PanelHeight=0 For i=0 To cursor1.RowCount-1 cursor1.Position=i text= cursor1.GetString("onvan") ScrollView1.Panel.Color = Colors.Transparent Dim p1 As Panel p1.Initialize("") p1.LoadLayout("onvan2") ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,50dip) Label2.tag=text Label2.text=text p1.Height=ht+70dip PanelHeight=PanelHeight+ht+70dip Nextمن با این روش میرم ، اما میخام مثلا روی یه گروه که کلیک کرد موضوع بندی حذف نشه
اینطوری باشه حالت بازشو
یعنی همه ی موضوعات اینطوری باشه
+ موضوع 1
+موضوع 2
+موضوع 3
حالا رو موضوع 2 کیک میکنیم
+ موضوع 1
+موضوع 2
-عنوان 1
-عنوان 2
+موضوع 3
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.