请教各位英雄：如何在文本框不要那个右击菜单?

Question

HOWTO: Suppress a TextBox Control's Popup Menu
http://support.microsoft.com/support/kb/articles/Q224/3/02.aspHOWTO: Suppress Default Pop-up Menu When Using Custom Menu
http://support.microsoft.com/support/kb/articles/Q191/6/70.asp 

Answer 1

vbFly(CSDN是垃圾)　：详细一点行吗？

Answer 2

Setwindowlong好像不是对文本框的菜单的，用了它会影响我其它的文体输入的哦

Answer 3

HOWTO: Suppress a TextBox Control's Popup Menu
http://support.microsoft.com/support/kb/articles/Q224/3/02.aspHOWTO: Suppress Default Pop-up Menu When Using Custom Menu
http://support.microsoft.com/support/kb/articles/Q191/6/70.asp 这里说得清清楚楚,你为什么不看,含代码,步骤!

Answer 4

模块：
Public Const GWL_WNDPROC = (-4)
Public Const WM_RBUTTONDOWN = &H204Declare 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
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPublic prevWndProc As LongFunction WndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If Msg = WM_RBUTTONDOWN Then
    Else
        WndProc = CallWindowProc(prevWndProc, hWnd, Msg, wParam, lParam)
    End If
End Function窗体：
Private Sub Command1_Click()
    prevWndProc = GetWindowLong(Text1.hWnd, GWL_WNDPROC)
    SetWindowLong Text1.hWnd, GWL_WNDPROC, AddressOf WndProc
    Command1.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
    If prevWndProc <> 0 Then
        SetWindowLong Text1.hWnd, GWL_WNDPROC, prevWndProc
        prevWndProc = 0
    End If
End Sub

Answer 5

playyuer(女㊣爱)：谢谢你，我看过了。不要认为我不爱学习才行的！我稍后时间会给你加分。