+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف اضع حدث الضغط click عند انشاء عنصر (/showthread.php?tid=36043)
الصفحات:
1
2
كيف اضع حدث الضغط click عند انشاء عنصر - عبد الهادي بهاب - 08-08-20
السلام عليكم
من خلال كود لما اريد انشاء عنصر ا و ليكن صورة استعمل الكود التالي :
PHP كود :
Novo = New PictureBox
Controls.Add(NovoN)
NovoN.Size = New Size(50, 50)
NovoN.BackColor = Color.Red
NovoN.Location = New Point(200, 200)
NovoN.Name = "Pic"
السؤال هو التالي :
كيف اضيف له خاصية الحدث لما اضغط عليه click يظهر موقعه
تماما كهذا اكود الذي نضعه لصورة ما لا اضضغط عليها تحدد موقعها
PHP كود :
Private Sub PictureBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
Label1.Text = PictureBox1.Location.ToString
End Sub
ارجو ان السؤال مفهوم
RE: كيف اضع حدث الضغط click عند انشاء عنصر - بلدي - 08-08-20
اضف handle للمتغير novo مع انشا ميثود له
مثل
PHP كود :
addHandler novo.click, Addressof novo_Click
الميثود
PHP كود :
sub novo_click(sender as object,e as eventargs)
Label1.Text = sender.Location.ToString
end sub
RE: كيف اضع حدث الضغط click عند انشاء عنصر - Anas Mahmoud - 08-08-20
أضف السطر التالي :
كود :
AddHandler Novo.Click, Sub(s, ev) Label1.Text = Novo.Location.ToStringRE: كيف اضع حدث الضغط click عند انشاء عنصر - بلدي - 08-08-20
(08-08-20, 11:13 PM)Anas Mahmoud كتب : أضف السطر التالي :
كود :
AddHandler Novo.Click, Sub(s, ev) Label1.Text = Novo.Location.ToString
ممتاز اخي انس
طريقه مختصره
RE: كيف اضع حدث الضغط click عند انشاء عنصر - عبد الهادي بهاب - 08-08-20
(08-08-20, 11:13 PM)Anas Mahmoud كتب : أضف السطر التالي :
كود :
AddHandler Novo.Click, Sub(s, ev) Label1.Text = Novo.Location.ToString
(08-08-20, 11:20 PM)بلدي كتب :(08-08-20, 11:13 PM)Anas Mahmoud كتب : أضف السطر التالي :
كود :
AddHandler Novo.Click, Sub(s, ev) Label1.Text = Novo.Location.ToString
ممتاز اخي انس
طريقه مختصره
شكرا جزيلا .............
هل فيه لقطة من اجل انشاء مثلا 100 صورة و كلها تحمل كود الكليك
يعني مثلا
PHP كود :
For i = 0 To Mh Step 40
For p = 0 To Mw Step 40
NovoN = New PictureBox
Controls.Add(NovoN)
NovoN.Size = New Size(5, 5)
NovoN.BackColor = Color.Red
NovoN.Location = New Point(p - 2, i - 2)
NovoN.Name = "Pic" & gh
NovoN.Cursor = Cursors.Hand
AddHandler NovoN.Click, Sub(s, ev) Label1.Text = NovoN.Location.ToString
gh += 1
Next
Next
الان كلما اضغط على اي منها يظهر نفس النتيجة
كيف التعديل ؟
شكرا مسبقا
RE: كيف اضع حدث الضغط click عند انشاء عنصر - بلدي - 08-08-20
كود اخى انس ممتاز
لكن لم تجرب مشاركتى
اذا اردت كود الاخ انس فعدل s.Location.ToString
RE: كيف اضع حدث الضغط click عند انشاء عنصر - عبد الهادي بهاب - 08-08-20
(08-08-20, 11:33 PM)بلدي كتب : كود اخى انس ممتاز
لكن لم تجرب مشاركتى
اذا اردت كود الاخ انس فعدل s.Location.ToString
جميل جدا ............كله تمام ربي يحفظك استاذ بلدي
حفظك الله و الاخ انس من كل سوء
RE: كيف اضع حدث الضغط click عند انشاء عنصر - بلدي - 08-08-20
العفو اخ عبد الهادي
RE: كيف اضع حدث الضغط click عند انشاء عنصر - عبد الهادي بهاب - 09-08-20
(08-08-20, 11:48 PM)بلدي كتب : العفو اخ عبد الهادي
السلام عليكم
في نفس السياق كيف اجعل الحدث فيه اكثر من مطلب
يعني في المثال السابق
لما يضغط يظهر مكانه في الليبال
كيف اضيف له امر اخر يفعل وظيفة function
يعني يظهر مكانه و يشغل وظيفة و لتكن Mysub()
شكرا
RE: كيف اضع حدث الضغط click عند انشاء عنصر - عبد الهادي بهاب - 09-08-20
لقد قمت بتكرار الامر في كل مرة
AddHandler NovoN.Click, Sub(s, ev) Rep = s.name
AddHandler NovoN.Click, Sub(s, ev) correction()
و نجح