[Easy4ever]

سامي نت كتب :

وليه كل الكود أول كان في الفيجوال بيسك 6 فقط تختار نوع الحدث وبس
ما ممكن اقل من الكود ؟؟


وبارك الله فيك وتسلم

وشاهد يوم نجمع الكودين بنفس الوقت يظهر خطأ بالكود شوف الصوره

في طريقه أخي الكريم وطريقه سهله جدا إلا وهي جمع الكودين في الحدث عن طريق إضافة ElseIF أنظر لكودك بعد التعديل

PHP كود :

Private Sub Button2_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button2.MouseDown
        If e.Clicks = 2 Then
            End
        ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
            End
        End If
    End Sub 


[APP]

تفضل الـ Class برمجي بحت من دون تصميم حتى xD
" هُنا "



توقعت ان تواجه مشاكل .. حسنا ستواجه كثيراً ؛ مثل هذه الخدع بها
كثير من الثغرات ؛ لكن يسهل حل الثغرات ..


الآن كـ حل مبدئي قُم بالتبديل بن MouseDown إلى MouseUp
في كود الـ Right Click فقط ؛ ليصبح الشكل كالتالي //

PHP كود :

Private Sub Button1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
        If e.Button = Windows.Forms.MouseButtons.Right Then
            End
        End If 


[سامي نت]

أخي Easy-4ever اشكرك على وضع الكود الذي بالصوره اسفل الآن
بس يوجد ظهور لقائمة بعد الضغط على الزر الايمن للماوس
كيف اتجنب ظهور هذه القائمة عند الضغط بزر الماوس الايمن

[سامي نت]

[COLOR="#FF0000"]

أخي APP جربت الكود الذي وضعت جزاك الله خير
وعندالضغط بزر الماوس الايمن يعمل الكود
ولا تطلع اي قائمة بس الزر الايسر من الماوس لا ينفذ اي كود ؟
هل تستطيع تطوير الكود بحيث يعمل على تنفيذ أمر ما عند الضغط على الزر الايسر من الماوس وعند الضغط
على الزر الايمن من الماوس يقوم بتنفيذ أمر ما ثاني ؟

هذه الصورة للكود الذي جربته

[/COLOR]

[ali.alfoly]

Easy 4ever كتب :في طريقه أخي الكريم وطريقه سهله جدا إلا وهي جمع الكودين في الحدث عن طريق إضافة ElseIF أنظر لكودك بعد التعديل

PHP كود :

Private Sub Button2_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button2.MouseDown
        If e.Clicks = 2 Then
            End
        ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
            End
        End If
    End Sub 


هوه ده الكلام ولا بلاش ههههه
جزاك الله خير فكرة ممتازه جدا جدا

[سامي نت]

سامي نت كتب :

أخي Easy-4ever اشكرك على وضع الكود الذي بالصوره اسفل الآن
بس يوجد ظهور لقائمة بعد الضغط على الزر الايمن للماوس
كيف اتجنب ظهور هذه القائمة عند الضغط بزر الماوس الايمن

up
up
up
up
up
up

[سامي نت]

سامي نت كتب :[COLOR="#FF0000"]

أخي APP جربت الكود الذي وضعت جزاك الله خير
وعندالضغط بزر الماوس الايمن يعمل الكود
ولا تطلع اي قائمة بس الزر الايسر من الماوس لا ينفذ اي كود ؟
هل تستطيع تطوير الكود بحيث يعمل على تنفيذ أمر ما عند الضغط على الزر الايسر من الماوس وعند الضغط
على الزر الايمن من الماوس يقوم بتنفيذ أمر ما ثاني ؟

هذه الصورة للكود الذي جربته

[/COLOR]

up
up
up
up
up
up

[tariq2812]

سامي نت كتب :up
up
up
up
up
up

كود :

Private Sub Button2_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button2.MouseDown
        If e.Clicks = 2 Then
            End
        ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
            System.Threading.Thread.Sleep(200)
            End
        End If
    End Sub

[سامي نت]

بارك الله فيك tariq2812
وبعد تجربة الكود للحين تظهر القائمة
استغرب هل للدرجة لغة البرمجة فيجوال بيسك 2010 محدوده الامكانيات كنت اعمل اي حدث اريد في فيجوال بيسك 6
:confused: