如何使文本框按右键而不弹出右键菜单??

2004-12-23 01:58:19 151 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

java多文本框使用右键弹出菜单复制粘贴剪切功能实现在学习JPopupMenud的过程中，做了一个小软件。实现了多个文本框，同时使用右键弹出菜单，并实现复制、粘贴、剪切功能。实际上在网上查的时候，网上有一个很普遍的右键复制、粘贴、剪切的功能（http://blog.csdn.net/xinem/article/details/3866904）。我抄过来发现可以实现功能，但不是很懂怎么实现复制、粘贴、和剪切功能。于是自己摸索了，写了一个。这个阅读详情

如何使文本框按右键而不弹出右键菜单??

...全文

2025华东杯A/B/C题解题思路+可运行代码参考这些因素包括但不限于：助滑坡的坡度、运动员的质量、滑雪板的接触面与雪地的摩擦力、空气阻力系数、运动员的体型和衣物形态等。助滑坡是运动员滑行至起跳台前的最后一段坡道，这一段坡道的坡度、长度和运动员的姿势会直接影响到起跳时的初始速度。运动员的滑行速度不仅受助滑坡的坡度影响，还受到摩擦力、空气阻力和重力等多方面因素的影响。通过合理的姿势调整，运动员能够有效减少空气阻力，增加身体的重力加速度，进而提升滑行速度。助滑坡的角度通常介于10°到12°之间，而运动员的滑行速度将受到重力、摩擦力和空气阻力的共同作用。阅读详情

hcyzs

控件 1,453 成员 41,351 内容

+ 关注 + 加入社区

切换为时间正序

laviewpbt 2004-12-23

打赏
举报

先建一模块：

Option Explicit
Public OldWindowProc As Long ' 保存默认的窗口函数的地址
Public Const WM_CONTEXTMENU = &H7B ' 当右击文本框时，产生这条消息
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd _
As Long, ByVal nIndex 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
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
Public Function SubClass_WndMessage(ByVal hWnd As Long, ByVal Msg As Long, ByVal wp _
As Long, ByVal lp As Long) As Long
' 如果消息不是WM_CONTEXTMENU，就调用默认的窗口函数处理
If Msg <> WM_CONTEXTMENU Then
SubClass_WndMessage = CallWindowProc(OldWindowProc, hWnd, Msg, wp, lp)
Exit Function
End If
SubClass_WndMessage = True
End Function
窗体
Private Const GWL_WNDPROC = (-4)

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
As Single)
If Button = 1 Then Exit Sub
OldWindowProc = GetWindowLong(Text1.hWnd, GWL_WNDPROC) ' 取得窗口函数的地址
' 用SubClass_WndMessage代替窗口函数处理消息
Call SetWindowLong(Text1.hWnd, GWL_WNDPROC, AddressOf SubClass_WndMessage)
End Sub
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Exit Sub
' 恢复窗口的默认函数
Call SetWindowLong(Text1.hWnd, GWL_WNDPROC, OldWindowProc)
'PopupMenu mymenu 如果要调用自己的菜单,在此设置
End Sub

wwqna 2004-12-23

打赏
举报

回复人： mndsoft(枕善居主) ( ) 信誉：100 2002-09-23 12:15:00 得分:0

此法很灵：
先建一模块：
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
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 Const GWL_WNDPROC = (-4)
Private Const WM_RBUTTONDOWN = &H204

Private m_lpPrevDisableRButtonDownWindowProc As Long

Function DisableRButtonDownWindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If uMsg = WM_RBUTTONDOWN Then
Exit Function
End If
DisableRButtonDownWindowProc = CallWindowProc(m_lpPrevDisableRButtonDownWindowProc, hwnd, uMsg, wParam, lParam)
End Function

Public Function HookText(ByVal hwnd As Long) As Boolean
m_lpPrevDisableRButtonDownWindowProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf DisableRButtonDownWindowProc)
End Function

Public Function UnHookText(ByVal hwnd As Long) As Boolean
Call SetWindowLong(hwnd, GWL_WNDPROC, m_lpPrevDisableRButtonDownWindowProc)
End Function

在：
Private Sub Form_Load()
HookText Text1.hwnd
End sub

Private Sub Form_UnLoad()
UnHookText Text1.hwnd
End sub

AprilSong 2004-12-23

打赏
举报

屏蔽右键菜单～

http://support.microsoft.com/?kbid=224302

如何使文本框按右键而不弹出右键菜单??

相关推荐