منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيفية معرف اسماء كل Button الموجودة فى الفروم عن طريق كلاس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيفية معرف اسماء كل Button الموجودة فى الفروم عن طريق كلاس (/showthread.php?tid=21571)



كيفية معرف اسماء كل Button الموجودة فى الفروم عن طريق كلاس - alims - 04-09-17

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


RE: كيفية معرف اسماء كل Button الموجودة فى الفروم عن طريق كلاس - سعود - 04-09-17

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




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


RE: كيفية معرف اسماء كل Button الموجودة فى الفروم عن طريق كلاس - alims - 04-09-17

دى محاولتى و لكن فشلت
كود :
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

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


RE: كيفية معرف اسماء كل Button الموجودة فى الفروم عن طريق كلاس - سعود - 04-09-17

طريقتك نجحت معي لكن لا ادري هل السبب اني في اكس بي الان ام لا
في الكلاس كتبت
كود :
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()



RE: كيفية معرف اسماء كل Button الموجودة فى الفروم عن طريق كلاس - alims - 04-09-17

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


RE: كيفية معرف اسماء كل Button الموجودة فى الفروم عن طريق كلاس - سعود - 04-09-17

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

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


RE: كيفية معرف اسماء كل Button الموجودة فى الفروم عن طريق كلاس - alims - 04-09-17

نعم اخى سعود  الكود يعمل بطريقة جيدة جدا
[attachment=15320][attachment=15321]


RE: كيفية معرف اسماء كل Button الموجودة فى الفروم عن طريق كلاس - سعود - 04-09-17

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


RE: كيفية معرف اسماء كل Button الموجودة فى الفروم عن طريق كلاس - alims - 04-09-17

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