Buenas, quiero que un TextBox aparezca como no-editable. El TextBox contiene un texto que necesito que lo muestre como seleccionado pero sin el cursor parpadeando al final.


Consigo seleccionar el texto mediante un SendMessage y EM_SETSEL. Pero no consigo quitar el cusor parpadeante.


Alguien me ayuda?

Simplemente activa la propiedad Lock del TextBox. De esta forma se podran hacer selecciones pero no editar su contenido.

Salu2...

Con la Api HideCaret puedes ocultar el cursor:

Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long

El siguiente ejemplo oculta el cursor de Text1 al hacer clic sobre el

Private Sub Text1_Click()
HideCaret Text1.hwnd
End Sub

Adaptalo a tus necesidades

Y si quieres volver a mostrar el cursor lo puedes hacer con la API ShowCaret

Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long

ShowCaret Text1.hwnd

Funciona! Llevaba tiempo buscándolo, gracias!