PDA

View Full Version : اضافه کردن رویداد به button به صورت runtime



هادی123
سه شنبه 24 مرداد 1385, 08:03 صبح
با سلام
من به بن بست رسیدم نمی دونم باید چه کارکنم

انتهای برنامه ام
فرض کنید یک حلقه داریم از دکمه که مثلا چهار دکمه ( به تعداد نا مشخص ) ایجاد می کند

for i=0 to 4
Dim b As New Button
b.Name = "b" +i.ToString
b.Text = "b" +i.ToString
e.Controls.Add(b
next
حالا چگونه تشخصی بدهم که روی کدام دکمه کلیک می کنم؟

ghafoori
سه شنبه 24 مرداد 1385, 08:40 صبح
دوست عزیز این سوال چندین بار تکرار شده اگه یه سرچ میزدید کارتون حل میشد
باید رویداد این دکمه ها را اضافه کنید برای همین این کد را اضافه کنید


addhandler b.click,addressof yoursub
sub yoursub(sender as object,e as eventargs)
endsub
حالا رویداد کلیک این دکمه ها به تابع yoursub پاس داده می شود و پارامتر sender نماینده دکمه است و با کد زیر می توانید به نام ان دکمه پی ببرید


ctype(serder,button).name

حامد رضائی
سه شنبه 24 مرداد 1385, 08:51 صبح
سلام باید هندل بدی
این رو توی فرم لود بذار
Dim Btn As New Button
AddHandler btn.Click, AddressOf btn_click


Sub btn_click(ByVal sender As Object, ByVal e As EventArgs)'this function
MsgBox("Button click")'Button clicked
End Sub
این برای یک Button
این ررو برای همه تست کن امیدوارم که جواب بده

اَرژنگ
سه شنبه 24 مرداد 1385, 09:32 صبح
اضافه کردن رویداد به button به صورت runtime (http://lytopia.com/Articles/Article.aspx?id=13)