Sub show(query As String)
cur = sql.ExecQuery(query)
For i = 0 To cur.RowCount-1
cur.Position = i
Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,Stopint,96%x,100%y)
Stopint = Stopint + 27%y
p.LoadLayout("main")
Label1.text = cur.GetString("id")
Label2.Text = cur.GetString("lname")
ImageView3.Tag=cur.GetString("lname")
Button1.Tag = cur.GetString("name")
ScrollView1.Panel.Height = Stopint
ScrollView1.Panel.Color = Colors.Transparent
Next
End Sub
سوال
میلاد 441
سلام
چطور مولتی پنل رو لود کنم توی تب ahviewpager ؟؟؟
میخوام کد زیر اجرا بشه توی تب
Sub show(query As String) cur = sql.ExecQuery(query) For i = 0 To cur.RowCount-1 cur.Position = i Dim p As Panel p.Initialize("p") ScrollView1.Panel.AddView(p,0,Stopint,96%x,100%y) Stopint = Stopint + 27%y p.LoadLayout("main") Label1.text = cur.GetString("id") Label2.Text = cur.GetString("lname") ImageView3.Tag=cur.GetString("lname") Button1.Tag = cur.GetString("name") ScrollView1.Panel.Height = Stopint ScrollView1.Panel.Color = Colors.Transparent Next End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.