像网页一样,可以选中文本内容,但就不显示光标,可以吗?谢谢!

解决方案 »

  1.   

    试试ShowCursor 行不行   
      

  2.   


    所以有没有光标并不重要,重要的是不能输入所以就用TEXTBOX吧,只要把LOCKED设为TRUE就可以
      

  3.   

    Option Explicit
    Private Sub Text1_GotFocus()
        Command1.SetFocus
    End Sub
    这样子不知道符合楼主的要求不
      

  4.   

    用locked属性当然知道,但光标还是会在TEXTBOX里一闪一闪,觉得没必要,想看看能否有完成此功能的代码
      

  5.   

    用locked属性当然知道,但光标还是会在TEXTBOX里一闪一闪,觉得没必要,想看看能否有完成此功能的代码
      

  6.   

    Text1.Enabled = False 不就不闪了吗 呵呵
      

  7.   

    知道有showcaret难道不知道有 HideCaret Text1.hwnd ..只要是在文本框有焦点的情况下,调用就没问题HideCaret Text1.hwndDestroyCaret可以写在 text1_gotfocus 事件中这俩哪都行
      

  8.   

    Private Sub Text1_GotFocus()
    HideCaret Text1.hwnd   '1. 两种方法选个DestroyCaret      '2.
    End Sub
      

  9.   

    那个东西英文名叫 caret ,相关的API函数有 
    BOOL HideCaret(HWND hWnd);
    BOOL ShowCaret(HWND hWnd);
      

  10.   

    以下内容来自网上:
    隐藏文本框中的光标(不是鼠标哟!) 
    使用windows API中的HideCaret,一般在控件的GotFocus事件中调用:   Private Declare Function HideCaret Lib "User32.dll" (ByVal hwnd As Long) As Boolean   Private Sub Text1_GotFocus()   HideCaret Text1.hwnd   End Sub