来顶帖者有分~~少了再给！

hnzhc 2004-11-29 09:11:57

请问VB中如何屏蔽Text框的粘贴？

...全文

199 37 打赏收藏转发到动态举报

写回复

用AI写文章

37 条回复

切换为时间正序

请发表友善的回复…

发表回复

lxcc 2004-11-30

打赏
举报

Text1.Locked = True

肯定不行,右键可以粘贴

lxcc 2004-11-30

打赏
举报

来个狠点的!

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Clipboard.Clear
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Clipboard.Clear
End Sub

一如当初 2004-11-30

打赏
举报

我不知道，顶一下，给分：）

Andy__Huang 2004-11-30

打赏
举报

你翻開一下老的帖子，這方面的內容已經有說過了

韧恒 2004-11-30

打赏
举报

wwqna(york) 的子分类是最理想的。即不破坏剪切板中原有的数据，又可以在此时对剪切板的数据进行检查。其实，之所以不想让用户向textbox中粘贴数据，主要原因可能是对此textbox中的数据进行了某种要求，这样，使用子分类就可以使符合条件的数据进行粘贴，而屏蔽无效的数据。
我在写程序时就是这么用的。

wqxu 2004-11-30

打赏
举报

saiko 2004-11-30

打赏
举报

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
eixt sub
End If
End Sub

jifangkeji 2004-11-30

打赏
举报

当你需要此功能时让定时器启动，每20亳秒清一次剪切板，它的右键中粘帖命令就无法使用了，用CTRL+V也没有了！
Private Sub Timer1_Timer()
Clipboard.Clear
End Sub

wwqna 2004-11-30

打赏
举报

模块的：
Option Explicit
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) 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
Public Const GWL_WNDPROC = (-4)
Public Const WM_PASTE = &H302

Private oldProc As Long

Function WndProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If uMsg = WM_PASTE Then
Exit Function
End If
WndProc = CallWindowProc(oldProc, hwnd, uMsg, wParam, lParam)
End Function

Public Function HookText(ByVal hwnd As Long) As Boolean
oldProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WndProc)
End Function

Public Function UnHookText(ByVal hwnd As Long) As Boolean
Call SetWindowLong(hwnd, GWL_WNDPROC, oldProc)
End Function

'form的
Private Sub Form_Load()
HookText Text1.hwnd
end sub

Private Sub Form_Unload(Cancel As Integer)
UnHookText Me.hwnd
End Sub

myhgyp 2004-11-30

打赏
举报

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Clipboard.Clear
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Clipboard.Clear
End Sub
这个方法绝