راهنمایی در مولتی پنل

[alihack 52]

سلام

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

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

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

[مجید آرتا 5,874]

خب از تگ استفاده کنید

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

Sub Button_Click
	Dim btn As Button
	btn = Sender
	For Each v As View In Activity.GetAllViewsRecursive
		If v Is Label Then
		 If v.Tag = btn.Tag Then
			Dim lbl As Label = v
			lbl.Text = "Clicked"
		 End If
		End If
	Next
End Sub

ببنید یک شرط دیگه اضافه کردم که اگر تگ این ویو برابر بود با تگ دکمه کلیک شده بیا متنشو تغییر بده.

[alihack 52]

up

[seyyedali 77]

سلام

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

مثلا بیاد یکی به مقدار عددی لیبیل اضافه کنه، مثل شمارنده

[مهدی ایزدی 9,203]

درود

به این آموزش رجوع کنید :

 

[alihack 52]

سلام

ممنون اقای ایزدی من این اموزش رو دیدم ولی نمی دونم چجوری باید با تگ و سندر کلیک رو باتن متن جلوییشو تغییر بدم

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

ممنون

[مجید آرتا 5,874]

سلام

تگ مربوط به ایمیج ویوی که میخوایید عگسش رو اشتراک بزارید یه چی دیگه بزارید و شرط رو اینجور تغییر بدید »

If v.Tag = "example" Then

 

[alihack 52]

در در 1395/06/10, 19:33:11، seyyedali گفته است :

سلام

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

مثلا بیاد یکی به مقدار عددی لیبیل اضافه کنه، مثل شمارنده

سلام

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

Sub btn_Click
	Dim btn As button
	btn = Sender
	Label1.Text = "yes"
End Sub

 

 

[مهدی ایزدی 9,203]

در 15 ساعت قبل، alihack گفته است :

سلام

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

Sub btn_Click
	Dim btn As button
	btn = Sender
	Label1.Text = "yes"
End Sub

 

 

بله کدتون نباید جواب بده

آموزش متنی استاد آرتا مکمل آموزش کار با Tag و Sender هستش و 100% کارتون راه میوفته !

اخطار: تا کمتر از 24 ساعت توی تاپیک اسپم ندید چون امتیاز منفی میگیرید و امتیازها که زیاد بشه از انجمن اخراج خواهید شد.

موفق باشید

 

[مجید آرتا 5,874]

سلام

ماشاءالله استاد ایزدی عزیز تمامی راه و روش هارو بهتون گفتن دیگه، نباید مشکلی داشته باشید.

 

Sub Button_Click
	Dim btn As Button
	btn = Sender
	For Each v As View In Activity.GetAllViewsRecursive
		If v Is Label Then
			Dim lbl As Label = v
			lbl.Text = "Clicked"
		End If
	Next
End Sub

 

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

[alihack 52]

در 13 ساعت قبل، مجید آرتا گفته است :

سلام

ماشاءالله استاد ایزدی عزیز تمامی راه و روش هارو بهتون گفتن دیگه، نباید مشکلی داشته باشید.

 

Sub Button_Click
	Dim btn As Button
	btn = Sender
	For Each v As View In Activity.GetAllViewsRecursive
		If v Is Label Then
			Dim lbl As Label = v
			lbl.Text = "Clicked"
		End If
	Next
End Sub

 

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

سلام 

نمی دونم این تاپیک اسپم محسوب میشه یا نه چون  من قبل از شما پست فرستادم اگه اسپم شد ببخشید

ممنون به خاطر کد ولی این میاد هر چی لیبل هست رو برابر Clicked میکنه من میخوام رو هر کدوم از باتن کلیک شد متن جلویش تغییر کنه نه همه ی پنل ها

بصورت عکس اینجوری میشه

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

ممنون

[mehrabmmp 528]

در 14 ساعت قبل، مجید آرتا گفته است :

خب از تگ استفاده کنید

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

Sub Button_Click
	Dim btn As Button
	btn = Sender
	For Each v As View In Activity.GetAllViewsRecursive
		If v Is Label Then
		 If v.Tag = btn.Tag Then
			Dim lbl As Label = v
			lbl.Text = "Clicked"
		 End If
		End If
	Next
End Sub

ببنید یک شرط دیگه اضافه کردم که اگر تگ این ویو برابر بود با تگ دکمه کلیک شده بیا متنشو تغییر بده.

سلام

ببخشید اقای ارتا چجوری میشه روی دو تا لیبل یا بیشتر استفاده کرد؟ و مقداری های متفاوت داد؟

[مجید آرتا 5,874]

آره خب میشه روی چندین لیبل کنترل داشت

و این رو باید خودتون روش فکر کنید، خط مشی رو بهتون دادم و ادامش رو برید.

ببنید خصوصیت Tag  هر چیزی رو شامل میشه، میتونید یک ویو رو به عنوان Tag  مشخص کنید، اینو باید نسبت به کاری میخوایید انجام بدید تگی رو مشخص کنید و کنترل داشته باشید.

[alihack 52]

در 22 ساعت قبل، مجید آرتا گفته است :

خب از تگ استفاده کنید

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

Sub Button_Click
	Dim btn As Button
	btn = Sender
	For Each v As View In Activity.GetAllViewsRecursive
		If v Is Label Then
		 If v.Tag = btn.Tag Then
			Dim lbl As Label = v
			lbl.Text = "Clicked"
		 End If
		End If
	Next
End Sub

ببنید یک شرط دیگه اضافه کردم که اگر تگ این ویو برابر بود با تگ دکمه کلیک شده بیا متنشو تغییر بده.

سلام دوباره

میشه اینو رو دو تا ایمیج وییو انجام داد مثلا میخوام وقتی رو ایمیج اولی کلیک شد عکس ایمیج دومی ارسال شه

من این کدارو نوشتم ولی موقع ران ارور میده

کدام

Sub imgshare_Click
	Dim img As ImageView
	img = Sender
	For Each v As View In Activity.GetAllViewsRecursive
		If v Is ImageView Then
			If v.Tag = img.Tag Then
				Dim i As ImageView = v
				StartActivity(aria.ShareBitmap(i.Bitmap,"اشتراک گذاری با : "))
			End If
		End If
	Next
End Sub

و تگ هردوشون رو این قرار دادم

imgshare.Tag = cur.GetString("Text")
Image.Tag = cur.GetString("Text")

و ارور