[بلدي]

(09-08-20, 12:36 AM)عبد الهادي بهاب كتب : لقد قمت  بتكرار الامر في كل مرة
 AddHandler NovoN.Click, Sub(s, ev) Rep = s.name
               AddHandler NovoN.Click, Sub(s, ev) correction()
و نجح

ممتاز

[Anas Mahmoud]

(09-08-20, 12:36 AM)عبد الهادي بهاب كتب : لقد قمت  بتكرار الامر في كل مرة
 AddHandler NovoN.Click, Sub(s, ev) Rep = s.name
               AddHandler NovoN.Click, Sub(s, ev) correction()
و نجح

الطريقة الأصح :

كود :

               AddHandler NovoN.Click, Sub(s, ev)
                                           Label1.Text = s.Location.ToString
                                           Mysub()
                                       End Sub

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

(09-08-20, 11:43 AM)Anas Mahmoud كتب : الطريقة الأصح :

كود :

               AddHandler NovoN.Click, Sub(s, ev)
                                           Label1.Text = s.Location.ToString
                                           Mysub()
                                       End Sub

شكرا على الكود
نستعمله ان شاء الله