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

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

الصفحات: 1 2

ممكن تنفيذ الكود عند الحدث المطلوب؟ - Easy4ever - 26-03-13

سامي نت كتب :
وليه كل الكود أول كان في الفيجوال بيسك 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 - 26-03-13

تفضل الـ 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 



Smile

ممكن تنفيذ الكود عند الحدث المطلوب؟ - سامي نت - 27-03-13


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



ممكن تنفيذ الكود عند الحدث المطلوب؟ - سامي نت - 27-03-13

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

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

[/COLOR]

Rolleyes


ممكن تنفيذ الكود عند الحدث المطلوب؟ - ali.alfoly - 27-03-13

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 

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

ممكن تنفيذ الكود عند الحدث المطلوب؟ - سامي نت - 28-03-13

سامي نت كتب :

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


up
up
up
up
up
up

ممكن تنفيذ الكود عند الحدث المطلوب؟ - سامي نت - 28-03-13

سامي نت كتب :[COLOR="#FF0000"]
أخي APP جربت الكود الذي وضعت جزاك الله خير
وعندالضغط بزر الماوس الايمن يعمل الكود
ولا تطلع اي قائمة بس الزر الايسر من الماوس لا ينفذ اي كود ؟
هل تستطيع تطوير الكود بحيث يعمل على تنفيذ أمر ما عند الضغط على الزر الايسر من الماوس وعند الضغط
على الزر الايمن من الماوس يقوم بتنفيذ أمر ما ثاني ؟

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

[/COLOR]

Rolleyes

up
up
up
up
up
up

ممكن تنفيذ الكود عند الحدث المطلوب؟ - tariq2812 - 28-03-13

سامي نت كتب :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


ممكن تنفيذ الكود عند الحدث المطلوب؟ - سامي نت - 29-03-13

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