منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
استدعاء حدث click - نسخة قابلة للطباعة

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

الصفحات: 1 2

استدعاء حدث click - محمود صالح - 06-02-22

سلام عليكم
عندي كود استدعي به حدث معين وهو
PHP كود :
Button1_Click(Button1, New System.EventArgs) 

كل ما اريده هو تحويل هذه كود الى  public subبحيث اقدر اغير
اسم Button1 كما اشاء
هل هذا ممكن
بارك الله فيكم

RE: استدعاء حدث click - سعود - 06-02-22

PHP كود :
Public Sub btn(sender As Object, e As MouseEventArgs)

    End Sub 
 الحدث هذا [MouseEventArgs]
غيره مثل ماتريد لكن عدل ما يلزم من اكواد داخل هذا الـ sub

RE: استدعاء حدث click - trakktour - 06-02-22

(06-02-22, 01:01 AM)محمود صالح كتب : سلام عليكم
عندي كود استدعي به حدث معين وهو
PHP كود :
Button1_Click(Button1, New System.EventArgs) 

كل ما اريده هو تحويل هذه كود الى  public subبحيث اقدر اغير
اسم Button1 كما اشاء
هل هذا ممكن
بارك الله فيكم

و عليكم السلام
تفضل

كود :
   Public Sub on_click(btn As Button)
       btn.PerformClick()
   End Sub

كود :
on_click(Button3)


RE: استدعاء حدث click - محمود صالح - 06-02-22

(06-02-22, 03:49 AM)trakktour كتب :
(06-02-22, 01:01 AM)محمود صالح كتب : سلام عليكم
عندي كود استدعي به حدث معين وهو
PHP كود :
Button1_Click(Button1, New System.EventArgs) 

كل ما اريده هو تحويل هذه كود الى  public subبحيث اقدر اغير
اسم Button1 كما اشاء
هل هذا ممكن
بارك الله فيكم

و عليكم السلام
تفضل

كود :
   Public Sub on_click(btn As Button)
       btn.PerformClick()
   End Sub

كود :
on_click(Button3)
اولا جزاءك الله خيرا على مرورك
ولكن كنت اريد طريقة الاستدعاء المذكورة في سؤالي فقط
لاني استخدم ادوات خارجية dotnetbar 
وطريقة PerformClick لا تعمل معها
كنت قد جربتها سابقا ولم تعمل معها
لانها ليس جزء من الخصائص (error)
وتعمل مع هذه الطريقة فقط
Button1_Click(Button1, New System.EventArgs)

RE: استدعاء حدث click - سعود - 06-02-22

(06-02-22, 03:49 AM)سعود كتب :
PHP كود :
Public Sub btn(sender As Object, e As MouseEventArgs)

    End Sub 
 الحدث هذا [MouseEventArgs]
غيره مثل ماتريد لكن عدل ما يلزم من اكواد داخل هذا الـ sub

كتبت هذا قبل ان اعرف انك تستخدم ادوات اخرى لكن انظر وجرب لاني لم اجرب هذه الادوات.

RE: استدعاء حدث click - محمود صالح - 06-02-22

(06-02-22, 08:36 AM)سعود كتب :
(06-02-22, 03:49 AM)سعود كتب :
PHP كود :
Public Sub btn(sender As Object, e As MouseEventArgs)

    End Sub 
 الحدث هذا [MouseEventArgs]
غيره مثل ماتريد لكن عدل ما يلزم من اكواد داخل هذا الـ sub

كتبت هذا قبل ان اعرف انك تستخدم ادوات اخرى لكن انظر وجرب لاني لم اجرب هذه الادوات.
جزاءك الله خيرا استاذ سعود
ولكن المشكلة في الجزء الاول من الكود Button1_Click
كيف ساستبدله بمتغير واي نوع من المتغير مش نافع معاه اي حاجة لانه sub اساسا لا ادري كيف افعل

RE: استدعاء حدث click - محمود صالح - 06-02-22

سلام عليكم 
الحمد الله توصلت الى مقابل الامر PerformClick() وهي RaiseClick() في ادوات dotnetbar 
لكن الكود ما اشتغل مع تغير اسم Button
الكود هو

PHP كود :
  Private Sub DGV3_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV3.CellDoubleClick
        Dim I As Integer = DGV3.CurrentCell.RowIndex
        Dim J As Integer = DGV3.CurrentCell.ColumnIndex
        Dim bb As DevComponents.DotNetBar.ButtonItem
        If J = 1 Then
            bb.Name = DGV3.Rows(I).Cells(1).Value.ToString
            bb.RaiseClick()
        End If
    End Sub 


الكود  ببساطة هو جلب اسماء كل Button في  DataGridView
عند الضغط على خلية في DataGridView
يقود باعطاء اسم Button للحدث ()RaiseClick
يعطي الخطا  {"Object reference not set to an instance of an object."} عند السطر bb.Name = DGV3.Rows(I).Cells(1).Value.ToString

RE: استدعاء حدث click - سيف الشمال - 06-02-22

جرب يكون الكود كذا

bb = dt4.Rows(0).Item(0).tostring

RE: استدعاء حدث click - محمود صالح - 06-02-22

(06-02-22, 10:43 AM)سيف الشمال كتب : جرب يكون الكود كذا

bb = dt4.Rows(0).Item(0).tostring

نفس المشكلة

RE: استدعاء حدث click - E100 - 06-02-22

لم توضح ما هي الاداه التي يوجد فيها button

ضع السطر التالي بعد If J = 1 Then
bb = xxxxxxxx.Items(DGV3.CurrentRow.Cells(1).Value.ToString)
بدل xxxxxxx ضع اسم panel او الاداه الموجوده داخله button