[alims]

السلام عليكم شباب عندى سؤال و هو
عندى فروم فيها حاولى 10 Button
عايز عن طريق الكلاس اعرف اسم ال Button لى تم الضغط عليها 
و شكر ليكم

[سعود]

الان جربت كم كود بالكلاس وما ضبط لكن ضبط بنفس الفورم ياليت لو مجرب اشياء لم تضبط تقول عليها عشان نجرب غيرها حتى يجي واحد خبير
اللي ضبط بنفس الفورم من غير كلاس:




ان كنت تعرف هذا ..فالمعذرة

[alims]

دى محاولتى و لكن فشلت

كود :

Public Class Alyspicy
   Public Sub doit(ByVal NameForm As System.Windows.Forms.Form)
       For Each h As System.Windows.Forms.Button In NameForm.Controls
           AddHandler h.Click, AddressOf hclick
           On Error Resume Next
       Next
   End Sub
   Private Sub hclick(ByVal sender As Object, ByVal e As EventArgs)
       MsgBox(sender.text)
   End Sub
End Class

و هنا كانت المشكلة

كود :

Imports Alyspicy

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim s As Alyspicy.Alyspicy
       s.doit(Me)
   End Sub
End Class

Warning 1 Variable 's' is used before it has been assigned a value. A null reference exception could result at runtime

ايه الحل ياريت لو حد يعرف

[سعود]

طريقتك نجحت معي لكن لا ادري هل السبب اني في اكس بي الان ام لا
في الكلاس كتبت

كود :

Public Class Class1
   Public Sub doit()
       For Each h As Control In Form1.Controls
           If TypeOf h Is Button Then
               AddHandler h.Click, AddressOf hclick
           End If
       Next
   End Sub
   Public Sub hclick(ByVal sender As Object, ByVal e As EventArgs)
       MsgBox(sender.text)
   End Sub

End Class

وفي حدث في الفورم كتبت

كود :

       Dim c As New Class1
       c.doit()

[alims]

شكرا ليك كتير اخى سعود تعبتك معايا النهاردها

[سعود]

(04-09-17, 10:44 PM)alims كتب : شكرا ليك كتير اخى سعود تعبتك معايا النهاردها

العفو ياطيب
يعني هو اشتغل؟

[alims]

نعم اخى سعود  الكود يعمل بطريقة جيدة جدا
       

[سعود]

هذي مثل فكرة عمل تقرير لاستخدام البرنامج... لو مطلوب مني افكر لتطبيقها لن اتوصل لهذه الفكرة الرائعة.

[alims]

شكر ليك اخى سعود هى ممكن تستخدام فى عمل تقرير و اشياء اخرى كثير
لكن استخدمها علشان بعمل تعديل جديد فى مكتبة alyspicydata و سوف يتم اصدرها ان شاء الله قريب