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

نسخة كاملة : ممكن تنفيذ الكود عند الحدث المطلوب؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
سامي نت كتب :
وليه كل الكود أول كان في الفيجوال بيسك 6 فقط تختار نوع الحدث وبس
ما ممكن اقل من الكود ؟؟


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

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


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

PHP كود :
Private Sub Button2_MouseDown(sender As ObjectAs System.Windows.Forms.MouseEventArgsHandles Button2.MouseDown
        
If e.Clicks 2 Then
            End
        
ElseIf e.Button Windows.Forms.MouseButtons.Right Then
            End
        End 
If
    
End Sub 
تفضل الـ Class برمجي بحت من دون تصميم حتى xD
" هُنا "



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


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



PHP كود :
Private Sub Button1_MouseUp(ByVal sender As System.ObjectByVal e As System.Windows.Forms.MouseEventArgsHandles Button1.MouseUp
        
If e.Button Windows.Forms.MouseButtons.Right Then
            End
        End 
If 



Smile

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

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

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

[/COLOR]


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

PHP كود :
Private Sub Button2_MouseDown(sender As ObjectAs System.Windows.Forms.MouseEventArgsHandles 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]


Rolleyes

up
up
up
up
up
up
سامي نت كتب :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:
الصفحات : 1 2