کلیک راست

[sehm67]

سلام

می خوام تو برنامه از کلیک راست بر روی تکست باکس ها جلوگیری کنم.


Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then MsgBox "کليک راست ممنوع"
End Sub

من نمی خوام از کد بالا استفاده کنم می خوام وقتی کاربر روی تکست باکس کلیک راست می کنه گزینه های Paste , Copy , Cute و ... غیر فعال بشن .

ممنون از دوستان.

[محسن واژدی]

سلام
راههای مختلفی وجود دارد، که مطمئن ترین آنها sub-classing است
برای اینکار یک ماژول به برنامه اضافه و کدهای زیر را در آن کپی کنید:

Option Explicit
Private 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
Private 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)
Private lPProc&
Public Sub OldWindowProc(tTextBox As TextBox)
lPProc& = SetWindowLong(tTextBox.hWnd, GWL_WNDPROC, AddressOf NoPopupWindowProc)
End Sub

Private Function NoPopupWindowProc(ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const WM_CONTEXTMENU = &H7B
Const WM_DESTROY = &H2

If msg = WM_CONTEXTMENU Then
Exit Function
ElseIf msg = WM_DESTROY Then
SetWindowLong hWnd, GWL_WNDPROC, lPProc&
Else
NoPopupWindowProc = CallWindowProc(lPProc&, hWnd, msg, wParam, lParam)
End If

End Function



استفاده:
Private Sub Form_Load()
Call OldWindowProc(Text1)
End Sub


البته توجه داشته باشین که در استفاده از توابع هوک احتمال بسته شدن ناگهانی وی بی وجود دارد، پس برای جلوگیری از این اتفاق حتما از دستور unload یا فشردن کلید Close برای بستن برنامه استفاده کنید تا دستور یا دکمه End

موفق باشید

[IamOverlord]

اگر بخوایم این کارو برای Web Browser بکنیم چی؟

[محسن واژدی]

سلام
کامپوننتی است بنام EventVB.dll حاوی قابلیت های بسیار مفید، از جمله غیرفعال کردن منوی راست کلیک webbrowser
در انجمن جستجو کنید، قبلا برای یکی از عزیزان قرار دادم

موفق باشید

[ROSTAM2]

سلام
راههای مختلفی وجود دارد، که مطمئن ترین آنها sub-classing است
برای اینکار یک ماژول به برنامه اضافه و کدهای زیر را در آن کپی کنید:

Option Explicit
Private 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
Private 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)
Private lPProc&
Public Sub OldWindowProc(tTextBox As TextBox)
lPProc& = SetWindowLong(tTextBox.hWnd, GWL_WNDPROC, AddressOf NoPopupWindowProc)
End Sub

Private Function NoPopupWindowProc(ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const WM_CONTEXTMENU = &H7B
Const WM_DESTROY = &H2

If msg = WM_CONTEXTMENU Then
Exit Function
ElseIf msg = WM_DESTROY Then
SetWindowLong hWnd, GWL_WNDPROC, lPProc&
Else
NoPopupWindowProc = CallWindowProc(lPProc&, hWnd, msg, wParam, lParam)
End If

End Function



استفاده:
Private Sub Form_Load()
Call OldWindowProc(Text1)
End Sub


البته توجه داشته باشین که در استفاده از توابع هوک احتمال بسته شدن ناگهانی وی بی وجود دارد، پس برای جلوگیری از این اتفاق حتما از دستور unload یا فشردن کلید Close برای بستن برنامه استفاده کنید تا دستور یا دکمه End

موفق باشید

سلام ب همه.
من می خوام تابع SetWindowLong رو در VB.Net استفاده کنم اما مشکلی که هست برای ورودی dwNewLong AsLong دستور AddressOf رو پشتیبانی نمی کنه آیا نحوه استفاده از تابع در VB.Net تغییر کرده یا باید از تابع API دیگه ای استفاده بشه؟