سلام من یه دیتابیس ساختم که توی multipanel نمایش داده میشه و توی هر کدوم از این پنل ها یه دکمه گذاشتم تا اون پنل رو Visible کنم.
حالا وقتی دکمه کلیک میشه آخرین پنل Visible میشه. چیکار کنم فقط همون پنل Visible بشه ؟
اینم کدی که من نوشتم.
Sub Globals
Private scv1 As ScrollView
Private b3 As Button
Private pan2 As Panel
Dim cur1 As Cursor
Dim sql1 As SQL
Dim Path As String
Dim taj,ttaj As Int
Dim stop As Int=1%y
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("cam2")
Path=File.DirRootExternal&"/kalerykhaf"
sql1.Initialize(Path,"multipanel.db",False)
cur1=sql1.ExecQuery("SELECT * FROM tbl")
For i=0 To cur1.RowCount-1
cur1.Position=i
Dim p As Panel
p.Initialize("p")
scv1.Panel.AddView(p,0,stop,100%x,100%y)
stop=stop+15%y
p.LoadLayout("cam1")
l1.Text=cur1.GetString("txt1")
l2.Text=cur1.GetString("txt2")
l3.Text=cur1.GetString("txt")
l4.Text=cur1.GetString("date")
scv1.Panel.Height=stop
b3.Tag=i
taj=i
Next
End Sub
Sub b3_Click
Dim btn As Button
btn=Sender
For l=0 To taj
If btn.Tag=l Then
ttaj=l
pan2.Visible=False
l3.Text=ttaj
End If
Next
End Sub
سوال
moh3n 16
سلام من یه دیتابیس ساختم که توی multipanel نمایش داده میشه و توی هر کدوم از این پنل ها یه دکمه گذاشتم تا اون پنل رو Visible کنم.
حالا وقتی دکمه کلیک میشه آخرین پنل Visible میشه. چیکار کنم فقط همون پنل Visible بشه ؟
اینم کدی که من نوشتم.
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.