| Pregunta: | 7983 - ENEGRECER EL CURSOR DE UN CUADRO DE TEXTO |
| Autor: | Oscar Esteban Gilberto Fuentealba |
| Hola:
Quisiera saber si alguna persona sabe alguna forma de enegrecer el cursor que aparece en un cuadro de texto común, ya que el que existe, para mi resulta no muy visible, un ejemplo claro es el cursor que manejan los cuadro de texto de Visual Fox Pro. Por favor si alguien sabe de alguna función, método, o instrucción que me ayude, de antemano, gracias. | |
| Respuesta: | José Ariel Limandri |
| Probate este codigo que te va a gustar, ya que no solo "ennegrece el cursor" sino que podes cambiar el cursor por una imagen!!!
'En el form1 pone 2 textbox Grandes 'Pone un picturebox con una imagen y autozise=true Private Declare Function CreateCaret Lib "user32" (ByVal hwnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetFocus Lib "user32" () As Long Sub Text1_GotFocus() h& = GetFocus&() b& = Picture1.Picture Call CreateCaret(h&, b&, 10, 10) X& = ShowCaret&(h&) End Sub Private Sub Text2_GotFocus() h& = GetFocus&() Call CreateCaret(h&, 0, 30, 30) X& = ShowCaret&(h&) End Sub | |