متن لیبل در مولتی پنل

[Mr Silence 137]

سلام دوستان

میخوام زمانی روی باتون کلیک میکنم به متن لیبل که int هست یکی اضافه بشه

ولی مشکل اینجاس زمانی که روی هر باتون کلیک میکنم فقط متن لیبل اخرین پنل تغییر میکنه

ممنون میشم کمک کنید.

Sub Process_Globals
Dim sql As SQL
Dim cur As Cursor
End Sub

Sub Globals

	Dim s As Int
	Private Button1 As Button
	Private Label1 As Label
	Private Label2 As Label
	Private ScrollView1 As ScrollView
	Dim num As Int = 1
	Dim offset As Int = 0
	Private Label3 As Label  
End Sub

Sub Activity_Create(FirstTime As Boolean
	Activity.LoadLayout("scroll")

If File.Exists(File.DirInternal,"db.db") = False Then
File.Copy(File.DirAssets,"db.db",File.DirInternal,"db.db")
End If

If sql.IsInitialized = False Then
sql.Initialize(File.DirInternal,"db.db",False)
End If


show("SELECT * FROM tbl LIMIT 10 OFFSET "&offset&"")




Sub show(query As String)
	cur = sql.ExecQuery(query)

For i = 0 To cur.RowCount-1
cur.Position = i
Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,s,96%x,100%y)
s = s + 27%y
p.LoadLayout("main")
Label1.text = cur.GetString("name")
Label2.Text = cur.GetString("famil")
Button1.Tag = cur.GetString("id")
Label3.Tag = cur.GetString("id")
ScrollView1.Panel.Height = s
ScrollView1.Panel.Color = Colors.Transparent
Next
End Sub

Sub Button1_Click
	
	
   num = num +1
	Dim b As Button
	b = Sender
	Label3.Text = num

ToastMessageShow("clicked id : " & b.Tag,False)
End Sub


Sub ScrollView1_ScrollChanged(Position As Int)
				If ScrollView1.ScrollPosition + ScrollView1.Height = ScrollView1.Panel.Height Then
			offset = offset + 10
			show("SELECT * FROM tbl LIMIT 10 OFFSET "&offset&"")
		End If
End Sub

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

[msd313 62]

چاره کار شما استفاده از Tag و sender هستش

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

باید توی باتن یه لیبل هم برای لیبل 3 تعریف کنی و sender هم براش تعریف کنی حالا اونو مقدار دهی کن

[Mr Silence 137]

اگه کدارو نگاه کنید از tag و sender استفاده کردم 

مشکلم اینه رویداد تمام باتون ها فقط متن لیبل اخرین پنلو تغییر میده 

[msd313 62]

متن بالا رو ویراش کردم
برای لیبل 3 هم از tag و sender استفاده کن

[Mr Silence 137]

در 15 دقیقه قبل، msd313 گفته است :

متن بالا رو ویراش کردم
برای لیبل 3 هم از tag و sender استفاده کن

امکانش هست کد های منو اصلاح کنید که کار کنه 

هرکاری میکنم نمیشه 

mpproblem

[محمدرضا شاهپیری 5,491]

در 10 دقیقه قبل، godping گفته است :

امکانش هست کد های منو اصلاح کنید که کار کنه 

هرکاری میکنم نمیشه 

mpproblem

دیتابیس رو توی سورس نزاشتید عزیز.

[msd313 62]

فقط اینجا رو اصلاح کن

Sub Button1_Click	
   num = num +1
	Dim b As Button
	b = Sender
	Dim l3 as lable
	l3.Initialize("")
	l3=sender
	l3.tag=num	
	ToastMessageShow("clicked id : " & b.Tag,False)
End Sub

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

[Mr Silence 137]

در 19 دقیقه قبل، محمدرضا شاهپیری گفته است :

دیتابیس رو توی سورس نزاشتید عزیز.

ببخشید اکسپورت کردم پاک شد 

db

 

در 7 دقیقه قبل، msd313 گفته است :

فقط اینجا رو اصلاح کن

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

اینم تست کردم جواب نداد 

[محمدرضا شاهپیری 5,491]

خدمت شما. فقط کافیه به شکل زیر عمل کنید توی کلیک.

Sub Button1_Click
	num = num +1
	Dim b As Button
	b = Sender
	For Each v As View In Activity.GetAllViewsRecursive
		If v Is Label Then
			Dim lbl As Label = v
			If lbl.Tag = b.Tag Then
				lbl.Text=num
			End If
		End If
	Next
	ToastMessageShow("clicked id : " & b.Tag,False)
End Sub

البته توصیه اکید میکنم که به جای استفاده از مولتی پنل از ریسایکلر استفاده کنید که به راحتی بتونید ویوها رو مدیریت کنید.