منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : استدعاء حدث click
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
سلام عليكم
عندي كود استدعي به حدث معين وهو
PHP كود :
Button1_Click(Button1, New System.EventArgs

كل ما اريده هو تحويل هذه كود الى  public subبحيث اقدر اغير
اسم Button1 كما اشاء
هل هذا ممكن
بارك الله فيكم
PHP كود :
Public Sub btn(sender As ObjectAs MouseEventArgs)

 
   End Sub 
 الحدث هذا [MouseEventArgs]
غيره مثل ماتريد لكن عدل ما يلزم من اكواد داخل هذا الـ sub
(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)
(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)
(06-02-22, 03:49 AM)سعود كتب : [ -> ]
PHP كود :
Public Sub btn(sender As ObjectAs MouseEventArgs)

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

كتبت هذا قبل ان اعرف انك تستخدم ادوات اخرى لكن انظر وجرب لاني لم اجرب هذه الادوات.
(06-02-22, 08:36 AM)سعود كتب : [ -> ]
(06-02-22, 03:49 AM)سعود كتب : [ -> ]
PHP كود :
Public Sub btn(sender As ObjectAs MouseEventArgs)

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

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

PHP كود :
  Private Sub DGV3_CellDoubleClick(sender As ObjectAs DataGridViewCellEventArgsHandles 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
جرب يكون الكود كذا

bb = dt4.Rows(0).Item(0).tostring
(06-02-22, 10:43 AM)سيف الشمال كتب : [ -> ]جرب يكون الكود كذا

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

نفس المشكلة
لم توضح ما هي الاداه التي يوجد فيها button

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