اضافه کردن رویداد ویوها در حلقه for

[pooriya 0]

سلام دوستان خسته نباشید ..چجوری باید وقتی که مثلا با حلقه for میاییم 20 تا button میسازیم.... حالا بیایم برای هر کدوم یه رویداد تعریف کنیم مثلا هر کدوم از button ها که کلیک شد یه کار متفاوت انجام بده؟!

 

[amir54 138]

در 32 دقیقه قبل، pooriya گفته است :

سلام دوستان خسته نباشید ..چجوری باید وقتی که مثلا با حلقه for میاییم 20 تا button میسازیم.... حالا بیایم برای هر کدوم یه رویداد تعریف کنیم مثلا هر کدوم از button ها که کلیک شد یه کار متفاوت انجام بده؟!

 

سلام با تگ و سندر و سویچ آموزش ها در انجمن هست ولی یه مثال بزنم بد نیست

for i to 100
	dim btn as button
	btn.initialize("btn")
	btn.tag = i
	p.addview(btn,0,0,10,10)
next

sub btn_click
	dim b as button = sender

	select b.tag
		case "0"
			toastmessageshow("Hello",false)
		case "1"
			toastmessageshow("Hi",false)
	end select
end sub

 

[pooriya 0]

در 4 دقیقه قبل، amir54 گفته است :

سلام با تگ و سندر و سویچ آموزش ها در انجمن هست ولی یه مثال بزنم بد نیست

for i to 100
	dim btn as button
	btn.initialize("btn")
	btn.tag = i
	p.addview(btn,0,0,10,10)
next

sub btn_click
	dim b as button = sender

	select b.tag
		case "0"
			toastmessageshow("Hello",false)
		case "1"
			toastmessageshow("Hi",false)
	end select
end sub

 

سلام..ممنون بابت پاسخ...  من اگه بخوام واسه 20 تا button رویداد بزارم باید دستور select رو واسه هر کدوم بزارم اینجوری خیلی تعداد کدا زیاد میشه ..ایا راه دیگه ای نیست که کد کمتری ببره؟

[amir54 138]

در هم اکنون، pooriya گفته است :

سلام..ممنون بابت پاسخ...  من اگه بخوام واسه 20 تا button رویداد بزارم باید دستور select رو واسه هر کدوم بزارم اینجوری خیلی تعداد کدا زیاد میشه ..ایا راه دیگه ای نیست که کد کمتری ببره؟

خیر اینطوری میشه

for i to 100
	dim btn as button
	btn.initialize("btn")
	btn.tag = i
	p.addview(btn,0,0,10,10)
next

sub btn_click
	dim b as button = sender

	select b.tag
		case "0"
			toastmessageshow("Hello",false)
		case "1"
			toastmessageshow("Hi",false)
		case "2"
			toastmessageshow("Hi",false)
		case "3"
			toastmessageshow("Hi",false)
		case "4"
			toastmessageshow("Hi",false)
		case "5"
			toastmessageshow("Hi",false)
		.
		.
		.

		case "20"
			toastmessageshow("Hi",false)
	end select
end sub

 جور دیگه فکر نکنم بشه اصلش همینه

[softir 459]

در در 1397/01/06, 10:22:56، amir54 گفته است :

خیر اینطوری میشه

 جور دیگه فکر نکنم بشه اصلش همینه

 

در در 1397/01/06, 10:19:51، pooriya گفته است :

سلام..ممنون بابت پاسخ...  من اگه بخوام واسه 20 تا button رویداد بزارم باید دستور select رو واسه هر کدوم بزارم اینجوری خیلی تعداد کدا زیاد میشه ..ایا راه دیگه ای نیست که کد کمتری ببره؟

راه دیگه هم هست

مثلا 1000 تا button داری

01 - یه لیست درست می کنی از پیام هات و تو یه فایل در برنامت ذخیره می کنی

-------- مثلا >

علی

حسن

حسین

......

تا هزار تا پیام

--------------------------------

بعد این لیست رو می گیری و میریزی تو یه متغییر لیست

	Dim list As List
	list.Initialize
	list = File.ReadList(File.DirAssets,"List.txt")

حالا و قتی رو باتون هات که کلیک کردی و تگش.ن گرفتی فقط می گی از لیست مورد نظر شماره فلان تگ نشون بده

Sub btn_click
	Dim b As Button = Sender
	ToastMessageShow(List.get(b.tag),False)
End Sub