رفتن به مطلب
  • 0

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


mahdig502

سوال

سلام 

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

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

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

 

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

2 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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

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

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

Button1.Tag = cur1.Getint("id") یا Button1.Tag = i
لینک ارسال
به اشتراک گذاری در سایت های دیگر

دستت طلا حل شد

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

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

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

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...