اضافه شدن به شماره لیبل با کلیک

[coco 1,746]

سلام

میخوام با کلیک روی یه باتن یکی به متن لیبلم اضافه شه.

مثلا اگه متن داخل لیبل = 0

با کلیک روی یه باتن بشه 1

و با کلیک بعدی بشه 2

لطفا راهنمایی کنید.

[امین شاهدی 5,765]

Sub Globals
Dim l As Label
Dim b As Button
End Sub


Sub Activity_Create(FirstTime As Boolean)
l.Text=0
End Sub


Sub b_Click
   l.Text=l.Text+1
End Sub

[Farzad Musavi 576]

تو رویداد کلیک بنویس

label1.text=label1.text +1

[abbas2142 557]

Sub Globals
Dim a As Int
End Sub

Sub Btn1_Clicka = a+1Label1.text =a
End sub

[coco 1,746]

دست همتون درد نکنه.

ولی یه مشکل هست.

اونم اینه که یه .0 به تهش اضافه میشه

مثلا 5 رو مینویسه 5.0