إضهار منيو عند الضغط بالفارة اليمين

هذا المثال يقوم بإلغاء النافذة المنبثقة التي تظهر عن النقر بالزر الأيمن على أداة النص ، ثم تظهر قائمة منبثقة محلية .

Private Const WM_RBUTTONDOWN = &H204
Private Declare Function SendMessage Lib "user32" Alias _
    "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, lParam As Any) As Long


Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
        SendMessage hwnd, WM_RBUTTONDOWN, 0, 0&
        Me.PopupMenu Newmenu
    End If
End Sub

في الفورم في الحدث Form_MouseDown اكتب الكود التالي مع تغييره بما يتناسب مع اسم المنيو لديك

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

if Button = 2 then PopupMenu MainMenuName

End Sub

حيث الـMainMenuName هي اسم المنيو الرئيسية التي تريد اظهارها عند النقر بالزر الايمن.

وفي نفس الحدث للاداة Grid قم بوضع الكود السابق ولكن غير اسم المنيو لتظهر الاخري

تحياتي لك

الموضوع مفيد جدا