如何设置文本框，使其内容不能被更改？

[sspanzervor]

在一个窗体上制作了一个简单的帮助，用文本框显示。可是用户在运行程序时，有可能将文本框中的内容删除。 一开始我打算将文本框的enable属性设为false，但是，这样设了以后，文本框的滚动条属性就不能用了。 请教各位，有什么好方法，可以将某个文本框设置为只读？谢谢！

[of123]

text1.locked = true

[csmmn3]

up:
Text1.Locked=True

[csdngoodnight]

Locked属性：True

[wingchi19791008]

up 又来晚了 ：（
Locked属性：True

[sspanzervor]

本人还有一个问题：为了美观起见，能不能取消文本框内的焦点？（比如说：单击文本框内的文本，不显示游标）谢谢！

[matchchen]

哦

[RainStoneMail]

Locked属性:True,最好将文本框的背景设置一下,让他象信息提示框

[rappercn]

Option Explicit

Private Const WM_KILLFOCUS = &H8
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Text1_GotFocus()

SendMessage Text1.hwnd, WM_KILLFOCUS, 0, 0

End Sub

[xxlroad]

text1.locked = true
在2000和xp中还是可以用菜单粘贴。

[gemgama]

question one: text1.locked = true
question two: 为了美观起见，要取消文本框内的焦点,可以通过以下的方法实现:

1.如果在form里面还有其他的控件,例如:command,你可以把command的tabindex设为0
为了防止鼠标按下Textbox令文本框内的焦点重现就在textbox写一句:
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.SetFocus
End Sub

2.够简单的: text1.enable=false

[lsftest]

为什么不用label？？？？

[lnhsgj]

text1.locked = true '不可被编辑
或
text1.Enabled =False 　　'不响应用户事件

[nkcrg]

text1.locked = true