برداشتن كليك راست

[siamak-s]

چه جوري ميشه كليك راست و از تمامي پروژه برداشت و وقتي دوباره به ويندوز بر مي گرديم كليك راست عمل كنه

[Soheilvb]

با دستورات رجيستري مي شه اين كارو كرد وقتي مي خواي ست كني يك ثابت انتخاب مي كني كه وقتي خاموش بشه حذف شه.
پيدا كردم بهت مي گم
باي

[siamak-s]

سهيل جان پيدا نكردي
ما منتظريما !!!

[1120]

غیر فعال کردن راست کلیک در تکست باکس

کد های زیر رو تو یک ماژول قرار بده

کد:

Public OldWindowProc As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_WNDPROC = (-4)
Public Const WM_USER = &H400

Public Function NoPopupWindowProc(ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const WM_CONTEXTMENU = &H7B
    If msg <> WM_CONTEXTMENU Then _
        NoPopupWindowProc = CallWindowProc( _
            OldWindowProc, hwnd, msg, wParam, _
            lParam)
End Function

این هم برای فرم

کد:

Private Sub Form_Load()
OldWindowProc = SetWindowLong(Text1.hwnd, GWL_WNDPROC, AddressOf NoPopupWindowProc)
End Sub

Private Sub Form_Unload(Cancel As Integer)
SetWindowLong Text1.hwnd, GWL_WNDPROC, OldWindowProc
End Sub