VB实现屏蔽文本框右键菜单的复制、粘贴等功能的方法
通过子类化文本框窗口过程，拦截WM_CUT、WM_COPY、WM_PASTE、WM_CLEAR、EM_UNDO及WM_CONTEXTMENU消息，可禁用右键菜单及剪切、复制、粘贴等功能；再调用DisableAbility方法实现静默禁止，有效防止用户通过快捷键或菜单操作修改文本框内容。
在VB开发中，屏蔽文本框的右键菜单、复制、粘贴等功能，是个很常见的需求。说白了就是让鼠标右键在文本框里失效——点击后既不弹出菜单，也不响应任何剪切、复制、粘贴的操作。这种功能在很多商业软件、考试系统或数据录入界面中都能看到，实现起来其实并不复杂，关键是要理解Windows消息机制。
下面直接给出核心代码模块。思路是通过子类化（Subclassing）接管文本框的窗口过程，拦截掉那些与右键菜单和剪贴板操作相关的系统消息。代码中已经列出了需要屏蔽的消息常量，包括剪切（WM_CUT）、复制（WM_COPY）、粘贴（WM_PASTE）、删除（WM_CLEAR）、撤销（EM_UNDO）以及右键菜单本身（WM_CONTEXTMENU）。只要在消息处理函数中将这些消息“吃掉”，不做任何处理，就能实现禁用效果。
'==========================================================
'| 模 块 名 | TextBoxDisableAbility
'| 说 明 | 禁止文本框的功能
'==========================================================Option Explicit
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) 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 Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex 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
Private Const GWL_WNDPROC = (-4)
Private Const WM_CUT = &H300 '-------------剪切消息
Private Const WM_COPY As Long = &H301 '-------------复制消息
Private Const WM_PASTE As Long = &H302 '-------------粘贴消息
Private Const WM_CLEAR = &H303 '-------------删除消息[右键菜单的删除]
Private Const EM_UNDO = &HC7 '-------------撤销消息
Private Const WM_CONTEXTMENU = &H7B '-------------右键菜单
Private prevWndProc As Long
Private Function WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case Msg
Case WM_CUT, WM_COPY, WM_PASTE, WM_CLEAR, EM_UNDO, WM_CONTEXTMENU
'这里处理自定义的事件,最好为空
Case Else
'回调系统函数处理
WndProc = CallWindowProc(prevWndProc, hwnd, Msg, wParam, lParam)
End Select
End Function
Public Sub DisableAbility(TargetTextBox As TextBox)
'程序启动时调用这个
prevWndProc = GetWindowLong(TargetTextBox.hwnd, GWL_WNDPROC)
SetWindowLong TargetTextBox.hwnd, GWL_WNDPROC, AddressOf WndProc
End Sub
使用时只需在窗体加载或文本框初始化时，调用 DisableAbility Text1 即可生效。注意，所有被屏蔽的消息在WndProc里都留了空分支，如果你希望在拦截时做一些自定义操作（比如弹出提示），可以在这里添加代码。否则，直接留空就能达到“静默禁止”的效果。这个技巧在很多VB程序中都非常实用，需要的朋友可以直接拿过去用，稍微调整就能适配自己的项目。
火山引擎是字节跳动旗下企业级云与AI服务平台。聚焦大模型核心能力，依托字节自研豆包多模态大模型，凭借火山方舟一站式平台，提供模型精调、推理部署、智能应用搭建等全链路服务，结合高性能AI算力，助力各行业快速落地大模型数字化与智能化应用。
AirBuddy 3 是面向 macOS 的蓝牙外设增强工具，可集中查看 AirPods、Beats 与苹果设备电量，提供快速连接、播放控制、电量提醒、桌面小组件和多台 Mac 外设接力等功能。
AirServer macOS版可把 Mac 转换为无线投屏接收端，通过 AirPlay 或 Google Cast 接收手机、平板和电脑画面，并支持多设备同时连接、高清镜像及会话录制，适合家庭娱乐、课堂教学、会议演示和应用展示。
火山引擎是字节跳动旗下企业级云与AI服务平台。聚焦大模型核心能力，依托字节自研豆包多模态大模型，凭借火山方舟一站式平台，提供模型精调、推理部署、智能应用搭建等全链路服务，结合高性能AI算力，助力各行业快速落地大模型数字化与智能化应用。
PixTV 是一款在浏览器中使用的 AI 视觉内容创作平台，提供图片、视频、音频、文字生成、AI 分镜、局部重绘、提示词反推和无限画布等工具，适合短剧、漫剧、广告及社交媒体内容制作。
Autodesk Maya 是面向影视、电视、动画和游戏行业的专业三维制作软件，集多边形与 NURBS 建模、角色绑定、关键帧和动作捕捉动画、Bifrost 特效模拟、材质开发及 Arnold 渲染于一体，