[عبد الهادي بهاب]

(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 


هذا الكود ينشء مربعات صغيرة و كل ما اضع الماووس عليها يظهر شكل يد 
الان كلما اضغط على اي منها يظهر نفس النتيجة 

كيف التعديل ؟

شكرا مسبقا