السلام عليكم شباب عندى سؤال و هو
عندى فروم فيها حاولى 10 Button
عايز عن طريق الكلاس اعرف اسم ال Button لى تم الضغط عليها
و شكر ليكم
الان جربت كم كود بالكلاس وما ضبط لكن ضبط بنفس الفورم ياليت لو مجرب اشياء لم تضبط تقول عليها عشان نجرب غيرها حتى يجي واحد خبير
اللي ضبط بنفس الفورم من غير كلاس:
ان كنت تعرف هذا ..فالمعذرة
دى محاولتى و لكن فشلت
كود :
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()
شكرا ليك كتير اخى سعود تعبتك معايا النهاردها
هذي مثل فكرة عمل تقرير لاستخدام البرنامج... لو مطلوب مني افكر لتطبيقها لن اتوصل لهذه الفكرة الرائعة.
شكر ليك اخى سعود هى ممكن تستخدام فى عمل تقرير و اشياء اخرى كثير
لكن استخدمها علشان بعمل تعديل جديد فى مكتبة alyspicydata و سوف يتم اصدرها ان شاء الله قريب