1,065
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
zhuyong_nc 2011-05-26
- 打赏
- 举报
<body onselectstart="return false"> 防止复制
<input id="xxx" onpaste="return false"> input控件防止粘贴
<input id="xxx" onpaste="return false"> input控件防止粘贴
viki816 2007-05-12
- 打赏
- 举报
厉害啊,但其实不时很明!!!!!
我用的是两个richtextbox的
我用的是两个richtextbox的
TechnoFantasy 2007-05-06
- 打赏
- 举报
然后在Form1中加入一个TextBox，然后在Form1中加入以下代码：
Private Sub Form_Load()
Hook Text1.hwnd
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unhook
End Sub
完成后运行程序，在Text1中将只能输入而不能粘贴。
Private Sub Form_Load()
Hook Text1.hwnd
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unhook
End Sub
完成后运行程序，在Text1中将只能输入而不能粘贴。
TechnoFantasy 2007-05-06
- 打赏
- 举报
可以用subclass来完成，首先创建一个程序，然后加入一个Module，在其中加入以下代码：
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam _
As Long, lParam As Long) As Long
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
Public 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 Const GWL_STYLE = -16&
Public Const GWL_WNDPROC = (-4)
Public Const TVM_SETBKCOLOR = 4381&
Public Const TVM_GETBKCOLOR = 4383&
Public Const TVS_HASLINES = 2&
Public Const WM_PASTE = &H302
Global hookWnd As Long
Global gnlpPrevWndProc As Long
Public Sub Hook(frm As Long)
hookWnd = frm
gnlpPrevWndProc = SetWindowLong(hookWnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
Public Sub Unhook()
SetWindowLong hookWnd, GWL_WNDPROC, gnlpPrevWndProc
End Sub
Public Function WindowProc(ByVal hwnd As Long, _
ByVal uMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
If uMsg = WM_PASTE Then
Else
WindowProc = CallWindowProc(gnlpPrevWndProc, hwnd, uMsg, wParam, lParam)
End If
End Function
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam _
As Long, lParam As Long) As Long
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
Public 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 Const GWL_STYLE = -16&
Public Const GWL_WNDPROC = (-4)
Public Const TVM_SETBKCOLOR = 4381&
Public Const TVM_GETBKCOLOR = 4383&
Public Const TVS_HASLINES = 2&
Public Const WM_PASTE = &H302
Global hookWnd As Long
Global gnlpPrevWndProc As Long
Public Sub Hook(frm As Long)
hookWnd = frm
gnlpPrevWndProc = SetWindowLong(hookWnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
Public Sub Unhook()
SetWindowLong hookWnd, GWL_WNDPROC, gnlpPrevWndProc
End Sub
Public Function WindowProc(ByVal hwnd As Long, _
ByVal uMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
If uMsg = WM_PASTE Then
Else
WindowProc = CallWindowProc(gnlpPrevWndProc, hwnd, uMsg, wParam, lParam)
End If
End Function
