المشاركات : 219
المواضيع 53
الإنتساب : Jul 2020
السمعة :
104
الشكر: 260
تم شكره 635 مرات في 218 مشاركات
السلام عليكم
من خلال كود لما اريد انشاء عنصر ا و ليكن صورة استعمل الكود التالي :
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
ارجو ان السؤال مفهوم
لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
المشاركات : 53
المواضيع 0
الإنتساب : Aug 2020
السمعة :
14
الشكر: 233
تم شكره 233 مرات في 90 مشاركات
اضف 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
المشاركات : 476
المواضيع 33
الإنتساب : Mar 2014
السمعة :
175
الشكر: 366
تم شكره 1393 مرات في 471 مشاركات
أضف السطر التالي :
كود :
AddHandler Novo.Click, Sub(s, ev) Label1.Text = Novo.Location.ToString
المشاركات : 53
المواضيع 0
الإنتساب : Aug 2020
السمعة :
14
الشكر: 233
تم شكره 233 مرات في 90 مشاركات
(08-08-20, 11:13 PM)Anas Mahmoud كتب : أضف السطر التالي :
كود :
AddHandler Novo.Click, Sub(s, ev) Label1.Text = Novo.Location.ToString
ممتاز اخي انس
طريقه مختصره
المشاركات : 219
المواضيع 53
الإنتساب : Jul 2020
السمعة :
104
الشكر: 260
تم شكره 635 مرات في 218 مشاركات
(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
هذا الكود ينشء مربعات صغيرة و كل ما اضع الماووس عليها يظهر شكل يد
الان كلما اضغط على اي منها يظهر نفس النتيجة
كيف التعديل ؟
شكرا مسبقا
لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
المشاركات : 53
المواضيع 0
الإنتساب : Aug 2020
السمعة :
14
الشكر: 233
تم شكره 233 مرات في 90 مشاركات
كود اخى انس ممتاز
لكن لم تجرب مشاركتى
اذا اردت كود الاخ انس فعدل s.Location.ToString
المشاركات : 219
المواضيع 53
الإنتساب : Jul 2020
السمعة :
104
الشكر: 260
تم شكره 635 مرات في 218 مشاركات
(08-08-20, 11:33 PM)بلدي كتب : كود اخى انس ممتاز
لكن لم تجرب مشاركتى
اذا اردت كود الاخ انس فعدل s.Location.ToString
جميل جدا ............كله تمام ربي يحفظك استاذ بلدي
حفظك الله و الاخ انس من كل سوء
لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
المشاركات : 53
المواضيع 0
الإنتساب : Aug 2020
السمعة :
14
الشكر: 233
تم شكره 233 مرات في 90 مشاركات
المشاركات : 219
المواضيع 53
الإنتساب : Jul 2020
السمعة :
104
الشكر: 260
تم شكره 635 مرات في 218 مشاركات
(08-08-20, 11:48 PM)بلدي كتب : العفو اخ عبد الهادي
السلام عليكم
في نفس السياق كيف اجعل الحدث فيه اكثر من مطلب
يعني في المثال السابق
لما يضغط يظهر مكانه في الليبال
كيف اضيف له امر اخر يفعل وظيفة function
يعني يظهر مكانه و يشغل وظيفة و لتكن Mysub()
شكرا
لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
المشاركات : 219
المواضيع 53
الإنتساب : Jul 2020
السمعة :
104
الشكر: 260
تم شكره 635 مرات في 218 مشاركات
لقد قمت بتكرار الامر في كل مرة
AddHandler NovoN.Click, Sub(s, ev) Rep = s.name
AddHandler NovoN.Click, Sub(s, ev) correction()
و نجح
لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
|