textbox问题！

Question

怎么样才能不把textbox里的内容被复制出来
Enabled属性  设置成 False 的话，内容多了下面的又看不到了！
要怎么解决！

Answer 1

如果textbox中的内容只是用来显示一些数据的话，建议用label，又节省资源，又可以达到要求。

Answer 2

把textbox放在一个picturebox中，然后把picturebox的Enable属性设置成False

Answer 3

'模块代码Public OldWindowProc As Long
Public Const WM_CONTEXTMENU = &H7B
Public Const GWL_WNDPROC = (-4)
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 LongPublic Function MyMesg(ByVal hWnd As OLE_HANDLE, ByVal Msg As OLE_HANDLE, ByVal wp As OLE_HANDLE, ByVal lp As Long) As Long
If Msg <> WM_CONTEXTMENU Then
    MyMesg = CallWindowProc(OldWindowProc, hWnd, Msg, wp, lp) '
    Exit Function
End If
End Function'窗体代码
Private Sub Text2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
    OldWindowProc = GetWindowLong(Text2.hWnd, GWL_WNDPROC)
    Call SetWindowLong(Text2.hWnd, GWL_WNDPROC, AddressOf MyMesg)
End If
End SubPrivate Sub Text2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
    Call SetWindowLong(Text2.hWnd, GWL_WNDPROC, OldWindowProc)
End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Answer 4

laviewpbt(人一定要靠自己)
用label也不行，我放上面的可能是一篇文章，长度不一样，所以用label显示会有一定的问题yunyu97() 
放在picturebox上后textbox的滚动条也还是不能用。

Answer 5

方法一
textbox的得到焦点的事件中：
form1.setfocus
方法二
不停的清空剪贴版

Answer 6

用tztz520(午夜逛街) 的可以解决问题kmzs(.:RNPA:.山水岿濛)
转移焦点也不行，还是可以选择复制textbox的内容的
谢谢大家！