如何让文本框中的光标不显示

[无·法]

如题

[东方之珠]

用隐藏光标的API：HideCaret

Private Declare Function HideCaret Lib "User32.dll" (ByVal hwnd As Long) As Boolean 　　Private Sub Text1_GotFocus() 　
       　HideCaret Text1.hwnd 　
End Sub 

[倒大霉的上帝]

Text1.Enabled = False

[神马都能聊]

[Quote=引用 1 楼 chenjl1031 的回复:]
用隐藏光标的API：HideCaret
VB codePrivate DeclareFunction HideCaret Lib"User32.dll" (ByVal hwndAsLong)AsBoolean 　　PrivateSub Text1_GotFocus() 　
　HideCaret Text1.hwnd 　End Sub
[/Quote]
U

[ygbh9999]

locked=true

[无·法]

测试ok，无聊做了个小程序：

Option Explicit
Private Declare Function HideCaret Lib "User32.dll" (ByVal hwnd As Long) As Boolean

Private Sub RichTextBox1_SelChange()
    Static isLocked As Boolean
    Static l&
    If isLocked Then Exit Sub
    l = RichTextBox1.SelStart
    isLocked = True
    RichTextBox1 = Replace(RichTextBox1, "@", "")
    If l > 0 Then RichTextBox1.SelStart = l - 1
    RichTextBox1.SelText = "@"
    isLocked = False
    HideCaret RichTextBox1.hwnd
End Sub

[无·法]

HideCaret RichTextBox1.hwnd 这个移到sub的第一行效果好些