时间:2021-05-20
本文实例讲述了VB屏蔽文本框中的右键菜单、复制、粘贴等功能的实现方法。该功能就是禁止文本框的右键功能,造成点击鼠标右键无效。是非常常见的一类实用功能。
具体的功能模块代码如下:
'=========================================================='| 模 块 名 | TextBoxDisableAbility'| 说 明 | 禁止文本框的功能'==========================================================Option ExplicitPrivate Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As LongPrivate 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 LongPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate 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 LongPrivate 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 SelectEnd FunctionPublic Sub DisableAbility(TargetTextBox As TextBox) '程序启动时调用这个 prevWndProc = GetWindowLong(TargetTextBox.hwnd, GWL_WNDPROC) SetWindowLong TargetTextBox.hwnd, GWL_WNDPROC, AddressOf WndProcEnd Sub本代码的功能屏蔽文本框的右键菜单、复制、粘贴等,在不少的程序中都可以见到这些功能。共享给各位VB爱好者,希望能对大家有所帮助!
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
以word为例,竖向文本框里的字居中方法: 1、让竖排文本框中的文字在水平方向上居中对齐。首先,右键竖排文本框的边框线,在弹出的右键菜单中选择“设置文本框格式
以word为例,文本框里的字居中方法如下: 1、选中文本框; 2、单击右键,弹出快捷菜单,选择“设置文本框格式”命令; 3、弹出设置文本框格式对话框,选择
复制代码代码如下:$(function(){//文本框只能输入数字(不包括小数),并屏蔽输入法和粘贴$.fn.integer=function(){$(this
word文档让字竖着居中的方法如下: 1、选择“插入”选项卡里的“竖排文本框”。 2、在文本框内输入或者粘贴需要的文字。 3、选择“开始”菜单里的“中部居
本文实例讲述了JS实现自适应高度表单文本框的方法。分享给大家供大家参考。具体实现方法如下:复制代码代码如下:JS实现自适应高度的表单文本框#shadow,#te