《Text控件怎么让其内容为只读？》

Question

text1.Locked=True
不能完全达到你的要求，不过再设定背景色也可以了吧。

Answer 1

把Locked属性设为True以后，光标还是可以定位进去的。
建议用Label控件，
把BorderStyle设为1，
BackColor设为白色，
Appearance设为1。
这样可以完全满足你的要求。

Answer 2

最好用label,设置一下前景色背景色即可

Answer 3

老大，如果用Label控件的话，它是得不到焦点的。
这还不够满你的意啊？
^_^

Answer 4

不是啊，我发现在左对齐时有点问题啊，字太靠前了我现在已经采用Label了，但我想搞个完美版的，呵呵，各位的辛苦我都记着，没看见我的名字吗？一定给分的*_^

Answer 5

text1.Locked=True
or
text1.enabled=false

Answer 6

text1.Locked=True
text1.TabStop=False

Answer 7

现在问题是如何让Text不得到焦点？不光键盘，鼠标也要点不了

Answer 8

有个这样的方法.如果窗体上还有其它可以得到焦点的控件,比如CommandButton之类，就可以了。
在Text_GotFocus()事件中编写代码：
Command1.SetFocus我仅能想出这样的办法而已。

Answer 9

把text的的mousedown事件或click事件定义为别的控件获得焦点，试试看！

Answer 10

Private Sub Text1_GotFocus()
    Text2.SetFocus
End Sub

Answer 11

这样啊，那Form能不能得到焦点？wnh假如Form能得到焦点那就成了，不过我觉得Form好象不能得到焦点啊？咋办哩？

Answer 12

设置text1的locked属性为真.
在text1得到焦点时使用这句:  objet.setfoucs

Answer 13

有2种方法： 
 
1.Object.Enabled  =  False、完全禁用，当然不可以输入数据啦。 
2.Object.Locked  =  True、用户不可以输入值  
你选择吧

Answer 14

使用该SendMessage函数
     Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long        该SendMessage 函数需要4个参数，如下所示：
    hwnd一个长整数值，它包含文本框控件的句柄。  
　  wMsg一个长整数值，它包含被发送的消息，在这个例子里，是EM_SETREADONLY。
    wParam一个整数值，如果它为True，则控件被设置只读标记，如果它为False，则删除控件的只读标记。    
　　lParam一个长整数值，它应该被设置为0（EM_SETREADONLY不使用它）。    　　在程序运行了此SendMessage函数之后，将返回一个长整数值，指明调用成功（返回值非0）或是失败（返回值为0）。样例程序   
　 该程序显示了如何防止用户编辑一个文本框控件中的内容
　　Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
　　Const WM_USER = &H400Const 
　　EM_SETREADONLY = (WM_USER + 31）
　　call SendMessage(Text1.hwnd, EM_SETREADONLY, True, ByVal 0&)

Answer 15

Enable颜色会变灰，不行
Lock还是能得到焦点，不完美
问题其实已经解决，我只是想完美一点，谢谢！API的那个方法挺好玩，我马上试试看

Answer 16

用Label也不完美，因为能看出两样！

Answer 17

to all:
text1.locked=true
鼠标右键粘贴还可以用，所以还应将鼠标右键变为灰色

Answer 18

Private Sub Form_Load()
Label1.BackColor = QBColor(15)
Label1.BorderStyle = 1
End Sub

Answer 19

你查一下旧贴子，有版主的解答，可以完全实现你的要求。是用API完成的。我现存手头没有源码了。你用TEXT　找。