رفتن به مطلب
  • 0

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


pooriya

سوال

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

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

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

 

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

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 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 رو واسه هر کدوم بزارم اینجوری خیلی تعداد کدا زیاد میشه ..ایا راه دیگه ای نیست که کد کمتری ببره؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در هم اکنون، 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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در در 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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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