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

[mehran7880 33]

سلام . خسته نباشید

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

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

چطوری اینکارو بکنم؟چطور پیدا کنم هر باتون مربوط به کدوم لیبله؟ممنون

[mehran7880 33]

 

این لایوته منه که بصورت رانتایم ایجاد کردم. می خوام روی هر کدوم از فلش های بالا یا پایین زدم مقدار لیبل همون بالا و پایین بشه.

ممنون

[پژمان نیکروان 6,055]

در 33 دقیقه قبل، mehran7880 گفته است :

این لایوته منه که بصورت رانتایم ایجاد کردم. می خوام روی هر کدوم از فلش های بالا یا پایین زدم مقدار لیبل همون بالا و پایین بشه.

سلام موقع ایجاد این لیبل ها و باتن ها بهشون یک تگ بخصوص بدید.

مثلا:

یه متغیر بالا تعریف بشه
dim c as int

هرموقع داره یکی اضافه میشه، به متغیر یک واحد اضافه بشه و به تگ لیبل و باتن داده بشه
c=c+1
lbl.tag=c
btn.tag=c

بعدش وقتی روی باتن کلیک شد میتونید لیبل مورد نظر رو پیدا کنید و به خودش یک واحد اضافه کنید

Sub btn_click
	Dim b As Button
	Dim s1 As String=b.Tag
	Dim s2 As String
	For Each v As View In Activity.GetAllViewsRecursive
		If v Is Label Then
			s2=v.Tag
			If s1=s2 Then
				Dim lb As Label=v
				Dim counter As Int=lb.Text
				lb.Text=counter+1
				
				Exit 'خروج از حلقه'
			End If
		End If
	Next
End Sub

 

[mehran7880 33]

اقا دمت گرم خیلی ممنون