مشکل در سورس تگ و سندر

[mahdig502 27]

سلام 

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

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

Sub Button1_Click
Dim iz As Button
iz = Sender
If iz.Tag = 1 Then
Msgbox("1","1")


Else If iz.Tag = 2 Then
Msgbox("2","2")


Else If iz.Tag = 3 Then
Msgbox("3","3")
End If


End Sub

این کد را هر کاری میکنم اجرا نمیکنه یعنی وقتی روی باتن با تگ 1 کلیک میکنم مسیج باکس نمیاد 

ولی اگه به جای = از علامت های < > استفاده کنم جواب میده 

اما من = را میخوام تا بتونم بگم برای هر تگ چه کار کنه 

لطفا کمک کنید

 

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

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("scroll")
If File.Exists(File.DirInternal,"multipanel.db") = False Then
File.Copy(File.DirAssets,"multipanel.db",File.DirInternal,"multipanel.db")
    End If
sql1.Initialize(File.DirInternal,"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")
ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
stop = stop+20%y
p.LoadLayout("frmfehrest")
Label1.Text = cur1.GetString("txt")
Button1.Tag = cur1.GetString("id")


ScrollView1.Panel.Height = stop
Next
End Sub

 

[porya 959]

سلام اول از همه این کد اشتباهه

Button1.Tag = cur1.GetString("id") 

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

Button1.Tag = cur1.Getint("id") یا Button1.Tag = i

[mahdig502 27]

دستت طلا حل شد

فقط ی چیزی الان من یعنی تگ و سندر را بلدم؟

یا هنوز بحث داره این تگ و سندر؟