multipanel Visible

[moh3n 16]

سلام من یه دیتابیس ساختم که توی 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

[alireza_hsi 160]

توضیح تون شفاف نیست . خوب میخواهید visible بشه و میگید که میشه ! پس کدوم نمیشه؟ الان نسبت به کد خودتون بگید اسم اون پنل چیه

[پژمان نیکروان 6,055]

به قول آقا مهدی دورد. *wooy*

طبیعی هست که اخرین پنل رو ویزیبلشو فالس کنه.

شما مگه پنل هارو توی اسکرول ویو ادد نکردید.

برای ویزیبل کردن این کد رو کافیه بنویسید:

  scv1.Panel.Visible=False

اینجوری خودش دقیقا تشخیص میده که رو کدوم پنل از اسکرول ویو ها کلیک شده و تغییرات رو روی همون اعمال میکنه.

یا در کل بگم کد شما میشه این ، با نمونه کدی که دادید:

Sub b3_Click
Dim btn As Button
btn=Sender
For l=0 To taj
 If btn.Tag=l Then 
 ttaj=l
 scv1.Panel.Visible=False
 l3.Text=ttaj
 End If
 Next
End Sub