At 23:55 20/10/97 +0200, you wrote:
>Cómo hago para que no aparezca el cursor de escritura en un textbox.
>Gracias.
>
Puedes emplear las funciones del API HideCaret y ShowCaret :
Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long
En el Text1_GotFocus :
Dim l As Long
l = HideCaret(Text1.hwnd)
En el Text1_LostFocus:
Dim l As Long
l = ShowCaret(Text1.hwnd)
Un saludo.
_________________________________________________
José Rubí de la Vega
E-mail : jrubi@arrakis.es
WWW : http://www.arrakis.es/~jrubi
Podrás encontrar información sobre VB, la lista
VB-ESP y un resumen de los mensajes de la misma