VB实现屏蔽文本框右键菜单的复制、粘贴等功能的方法
2014-07-31 11:35
1171 查看
本文实例讲述了VB屏蔽文本框中的右键菜单、复制、粘贴等功能的实现方法。该功能就是禁止文本框的右键功能,造成点击鼠标右键无效。是非常常见的一类实用功能。
具体的功能模块代码如下:
'========================================================== '| 模 块 名 | 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
本代码的功能屏蔽文本框的右键菜单、复制、粘贴等,在不少的程序中都可以见到这些功能。共享给各位VB爱好者,希望能对大家有所帮助!
您可能感兴趣的文章:
相关文章推荐
- java多文本框使用右键弹出菜单复制粘贴剪切功能实现
- Java右键菜单实现文本组件内容的的复制、粘贴、剪切功能
- Java右键菜单实现文本组件内容的的复制、粘贴、剪切功能
- silverlight:向TextBox添加右键菜单,菜单包括复制、粘贴、剪切、选择全部等四项功能!
- 终极屏蔽右键 / 禁止复制 / 禁止另存 / 禁止选取 / 禁止粘贴的方法
- 【JAVA】实现JTextfield 的右键 复制、剪切、粘贴功能
- 在StringGrid中用右键菜单实现复制粘贴
- 屏蔽FLEX右键菜单以及实现自定义的FLEX右键功能
- richedit中加右键菜单:复制、粘贴、剪切等基本功能,代码如何写?
- 实现JTextfield 的右键 复制、剪切、粘贴功能。
- js 右键菜单、禁止剪切、复制、粘贴的文本框代码
- 常用的JS屏蔽功能(右键、查看源文件、复制、剪切、粘贴、后退、F1、F5、Ctrl+N、Shift+F10、Alt+F4)
- 禁止页面复制功能 js禁止复制 禁用页面右键菜单 屏蔽 F5 刷新键
- 终极屏蔽右键 / 禁止复制 / 禁止另存 / 禁止选取 / 禁止粘贴的方法
- c#+Winform实现自定义的“复制、粘贴”右键快捷菜单,多个控件共享使用一个右键菜单
- javascript终极屏蔽右键/禁止复制/禁止另存/禁止右键/禁止选取/禁止粘贴的方法
- Adobe AIR右键菜单和系统托盘(Tray)功能以及实现方法
- JTextArea实现右键复制,粘贴,删除等功能!
- 屏蔽FLEX右键菜单以及实现自定义的FLEX右键功能
- 屏蔽选中、粘贴、复制、剪切、右键菜单