دستور دادن به باتون در پنل

[Mohsen27 199]

سلام و درود به همه

من این کد رو نوشتم.

Sub Globals
   Private sv1 As ScrollView
   Private lblfrom As Label
   Private ImageView1 As ImageView
   Private btnnumber As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("frmmain")
   Dim stop As Int
   stop = 0
   Dim a1(4) As String
   sv1.Panel.Color = Colors.Transparent
   a1 = Array As String("لیست ها","توابع","آموزشی","نمایش","فیلم")
       For i = 0 To 4
            Dim p1 As Panel
            p1.Initialize("")
            sv1.Panel.AddView(p1,0,stop,100%x,100dip)
            stop = stop + 100dip
            p1.LoadLayout("frmitem")
            btnnumber.Tag = a1(i)
            btnnumber.Text = i + 1
            lblfrom.Text = a1(i)

       Next

End Sub

البته اینو از یه سورس کد ک داخل انجمن بود برداشتم .

حالا میخوام یه دستوری بنویسم که مثلا رو باتون در پنل اولی کلیک شد بره تو یه صفحه

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

ممنون میشم جواب بدین

[مهدی ایزدی 9,203]

درود

باید از Sender استفاده کنید برای Button Click

[مجید آرتا 5,874]

[/b][b]Sub btnnumber_Click[/b]
[b]    Dim p1 As Button[/b]
[b]    p1 = Sender[/b]
[b]    If p1.Tag = "توابع"  Then [/b]
[b]     Msgbox("Ehem","")[/b]
[b]    End If[/b]

[b]End Sub[/b][b]

این واسه یک حالتش بود.واسه حالت های دیگه میتونی از Else If و یا از Select Case استفاده کنی.