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

[vistamobile 1,700]

راحت ترین روش برای اینکه تو یه لی اوت به چندین باتون یه دستور بدیم چیه؟ یعنی مثلا رو هر کدوم که کلیک شد بره اکتیوتی بعدی؟

[coco 1,746]

شما بیا یه ساب تعریف من مثل این :

Sub click

Startactivity(sssss)

End Sub

بعد برای هر باتن بنویس

Sub btbtn_Click

click

End Sub

به همین سادگی!

به همین خوشمزگی!

[vistamobile 1,700]

داداش شایان خوبه من فقط میخوام رویداد باتونها رو ننویسم!! اونجوری حدودا 100 خط بیشتر میشه میخوام تاجایی که امکان داره کدها کمتر بشه. راهی نیست مثلا بگی :

 

b1,b2,b3,....,b30 click 

Startactivity(sssss)

end if

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

شما یه ساب بزار برای مثال : 

Sub Button1_Click
	Log("s")
End Sub

بعد توی initialize باتون ها ایونت همه رو button1 بزار :

	Dim Button1 As Button
	Dim Button2 As Button
	Dim Button3 As Button
Button1.Initialize("Button1")
Button2.Initialize("Button1")
Button3.Initialize("Button1")

، روی هرکدوم کلیک کنی این ساب اجرا میشه

[coco 1,746]

همونطور که آقا امین گفتن این شکلیه!

حالا اگه از designer اد کردی از منوی پروپرتیز EventName رو برابر button1 قرار بده!

[hosabd222 20]

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

Sent from my LG-D802 using Tapatalk