ايران ويج

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

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

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

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

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

کد: 
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

siamak-s

Soheilvb

siamak-s

1120