[MC-MeDo]

(13-09-16, 07:35 PM)أبو عمر كتب :

PHP كود :

   Private Sub Form1_MouseDown(sender As Object, ميدو As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If ميدو.Button = Windows.Forms.MouseButtons.Right Then
            ContextMenuStrip1.Show(Cursor.Position)
        End If
    End Sub 


ولا تزعل ركز ف الكود كود عادي نسمية حدث  زرار الماوس وهو مضغوط لاسفل سواء اليمين او اليسار
e حرف عادي ولا يسوى اي حاجة لكن عندما تجعله ككائن او متغير تصبح له قيمة كبيرة جدا
انا استبدلت e ب ميدو زي ما انت شايف
انما مطورون بيئة الدوت نت اخذو هذا الحرف وخلوه يتم انشاؤه بشكل تلقائي عند انشاء اي حدث لاي كائن
الكائن مثلا  Form1
والحدث بتاعنا Mouse Down
والمتغيير اللي تدخل في الكود "e" أو ميدو اصبح ككائن ثاني مستقل يحمل خصائص
كائن من كائنات النظام في حالة الماوس داون او الكي اب
e as System.Windows.Forms.MouseEventArg
e as System.Windows.Forms.Keyup
وتقدر تستغني عن e.button ب Mouse.Button
مثلاً
if e.Button= Windows.Forms.MouseButtons.Right then
msgbox""
end if
أو
if mouse Button= Windows.Forms.MouseButtons.Right then
msgbox""
end if
وتقدر تختصر  Windows.Forms.MouseButtons.Right  مثلا
if MouseButton=MouseButton.Right then
msgbox("")
end if

PHP كود :

Public Class Form1



    Private Sub Form1_KeyPress(sender As Object, ميدو As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        If ميدو.KeyChar = "c" Then
            ContextMenuStrip1.Show(Me.Width, Me.Height)
        End If

    End Sub
    Private Sub Form1_MouseDown(sender As Object, ميدو As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If ميدو.Button = Windows.Forms.MouseButtons.Right Then
            ContextMenuStrip1.Show(Cursor.Position)
        End If
    End Sub

    
End Class 


بالتوفيق

 اسف اخوي بس والله مافهمت وش اسوي للاسف