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

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

الصفحات: 1 2

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

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


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

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

[صورة مرفقة: 2892_01364291246.png]

في طريقه أخي الكريم وطريقه سهله جدا إلا وهي جمع الكودين في الحدث عن طريق إضافة 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 اشكرك على وضع الكود الذي بالصوره اسفل الآن
بس يوجد ظهور لقائمة بعد الضغط على الزر الايمن للماوس
كيف اتجنب ظهور هذه القائمة عند الضغط بزر الماوس الايمن

[صورة مرفقة: 2892_01364364519.png]


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

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

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

[صورة مرفقة: 2892_01364365216.png]
[/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 اشكرك على وضع الكود الذي بالصوره اسفل الآن
بس يوجد ظهور لقائمة بعد الضغط على الزر الايمن للماوس
كيف اتجنب ظهور هذه القائمة عند الضغط بزر الماوس الايمن

[صورة مرفقة: 2892_01364364519.png]

up
up
up
up
up
up

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

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

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

[صورة مرفقة: 2892_01364365216.png]
[/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: