[scluay]

(29-10-13, 05:37 PM)mohammed moh كتب : السلام عليكم و رحمة الله
أولا قم بإضافة كلاس جديد و أعد تسميته كما يلي: Buttondoubleclick
2 ضع هذا الكود في الكلاس الجديد الذي اضفته ليكون بالشكل التالي :

PHP كود :

Public Class Buttondoubleclick
    Inherits Button
    Public Sub New()
        SetStyle(ControlStyles.StandardClick Or ControlStyles.StandardDoubleClick, True)

    End Sub
End Class 


ثالثا قم بتشغيل التطبيق ثم أوفقه بعده إذهب للقائمة تول بوكس فتجد أنه ظهر زر جديد تحت اسم Buttondoubleclick قم بوضعه على الفورم ثم أضف زر آخر كما تريد النوع الموجود من قبل أو Buttondoubleclick
الآن في حدث الكليك للزر الموجود افتراضيا في القائمة أكتب الكود التالي ليكون على الشكل الموالي :

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox("i am btn1")
        Buttondoubleclick1_DoubleClick(sender, e)
    End Sub 


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

PHP كود :

Private Sub Buttondoubleclick1_DoubleClick(sender As Object, e As EventArgs) Handles Buttondoubleclick1.DoubleClick
        MsgBox("i am btn2")
    End Sub 


بالتوفيق إن شاء الله

وعليكم السلام اولا انا اشكرك جدا جدا على اهتمامك وعلى مساعدتي
ولكن هذا الكود لا يتطبق في الفجول بيسك 2010