VB6中如何实现不能复制，粘贴动作TEXTBOX内的文本？

来源：百度知道 编辑：UC知道 时间：2024/05/24 22:43:57
文本框的内容需要用滑动条拖动查看，但是不希望内容被复制。谢谢各位高手
将textbox的locked属性设成true.这个参数只是锁定不能修改文本框内的内容，但是可以被复制粘贴。
将textbox的enabled属性设成false
textbox1.enabled=false。整个文本框不可操作，滑动条也无效了，不能查看文本框里的内容。

将textbox的locked属性设成true.

用Label模拟TextBox

'很明显这个只能用HOOK来解决，但楼主忽视我的的答案，不知道是不会用还是？10分的题送了个100分的答案给你，如果真的是不懂用还想得通，否则楼主就有点太贪了。

'新建工程，添加一个窗体，一个模块
'窗体上添加一个TextBox控件，名字使用默认名称就可以了。

'==================================================
'窗体中代码
'==================================================
Option Explicit

Private Sub Form_Load()
Hook Text1.hWnd
Text1.Text = Text1.Text & vbCrLf & Text1.Text
End Sub

'==================================================
'模块中代码
'==================================================
Option Explicit

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 SetWindowLong Lib "user32" Alias "SetWindowLongA" (B