当前位置: 首页 > 编程笔记 >

VB实现屏蔽文本框右键菜单的复制、粘贴等功能的方法

长孙沈义
2023-03-14
本文向大家介绍VB实现屏蔽文本框右键菜单的复制、粘贴等功能的方法,包括了VB实现屏蔽文本框右键菜单的复制、粘贴等功能的方法的使用技巧和注意事项,需要的朋友参考一下

本文实例讲述了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爱好者,希望能对大家有所帮助!

 类似资料:
  • 本文向大家介绍JS实现屏蔽shift,Ctrl,alt等功能键的方法,包括了JS实现屏蔽shift,Ctrl,alt等功能键的方法的使用技巧和注意事项,需要的朋友参考一下 本文实例讲述了JS实现屏蔽shift,Ctrl,alt等功能键的方法。分享给大家供大家参考。具体实现方法如下: 希望本文所述对大家的javascript程序设计有所帮助。

  • 本文向大家介绍用js实现一个复制粘贴的功能相关面试题,主要包含被问及用js实现一个复制粘贴的功能时的应答技巧和注意事项,需要的朋友参考一下 把 @wwqin 的内容实践了一下 注意测试时不要focus在控制台,不然不生效

  • 本文向大家介绍JS实现屏蔽网页右键复制及ctrl+c复制的方法【2种方法】,包括了JS实现屏蔽网页右键复制及ctrl+c复制的方法【2种方法】的使用技巧和注意事项,需要的朋友参考一下 本文实例讲述了JS实现屏蔽网页右键复制及ctrl+c复制的方法。分享给大家供大家参考,具体如下: 老是有些网站会屏蔽你的鼠标右键或者用快捷键复制,其实只是一段js代码,解决的方法就是直接把网页保存下来然后删掉下面这段

  • 本文向大家介绍两种JS实现屏蔽鼠标右键的方法,包括了两种JS实现屏蔽鼠标右键的方法的使用技巧和注意事项,需要的朋友参考一下 JS屏蔽鼠标右键的两种方法,比较常用的一个JS小功能,用上这个代码后,浏览者在访问你网页的时候就不能点击右键了,点了也不会弹出右键菜单,本功能最好不要用的太多哦,有时候用户会反感的。 代码如下: 以上就是本文的全部内容,希望对大家的学习有所帮助。

  • 本文向大家介绍html5+CSS 实现禁止IOS长按复制粘贴功能,包括了html5+CSS 实现禁止IOS长按复制粘贴功能的使用技巧和注意事项,需要的朋友参考一下 因为在移动端APP需要实现长按执行别的事件,但是在iOS系统有默认的长按选择复制粘贴,禁止此功能在网上找了很多资料,最终整理出目前最好的解决方法。 项目是APP,已经经过多款手机适配此时,因此可以放心使用。 以上所述是小编给大家介绍的h

  • 本文向大家介绍C#禁止textbox复制、粘贴、剪切及鼠标右键的方法,包括了C#禁止textbox复制、粘贴、剪切及鼠标右键的方法的使用技巧和注意事项,需要的朋友参考一下 本文实例讲述了C#禁止textbox复制、粘贴、剪切及鼠标右键的方法。分享给大家供大家参考。具体如下: 希望本文所述对大家的C#程序设计有所帮助。