Cómo cambiar el cursor predeterminado en Visual Basic 6

Cuando un usuario mueve su ratón sobre el programa, el cursor icono por defecto es el puntero. Visual Basic 6 le permite cambiar el valor predeterminado utilizando la propiedad MousePointer para varios objetos en el formulario. Por ejemplo, es posible cambiar la flecha del cursor a cualquier otra cosa, como una cruz, una viga, una flecha con un signo de interrogación o incluso un cursor personalizado se carga en el programa. Cambiar el código en cualquiera de las funciones MouseMove para los diversos controles en su formulario, o incluso para toda la misma forma.

Instrucciones

1 Abra el programa de Visual Basic. Acceder a la ventana de código.

2 Abra la función Form_MouseMove y escriba lo siguiente:

Form1.MousePointer = vbCrosshair

Cuando el usuario pasa el puntero sobre la forma, el cursor por defecto cambia a una cruz.

3 Abra la función Label1_MouseMove y escriba lo siguiente:

Label1.MousePointer = vbSizeNS

Cuando el usuario se desplaza sobre Label1 (suponiendo que este control existe en su forma), el cursor por defecto cambia a una flecha que apunta hacia el norte y el sur. Esto anula el puntero de precisión que se muestra en el resto del formulario.

4 Abra la función Label2_MouseMove y escriba lo siguiente:

Label2.MouseIcon = LoadPicture ( "C: \ myCursor.cur")

Label2.MousePointer = vbCustom

Cuando el usuario se desplaza sobre Label2 (suponiendo que este control existe en su forma), el cursor cambia por defecto a un cursor personalizado proporcionan en la función LoadPicture. Asegúrese de que la ruta en la lista de parámetros coincide con la que ha guardado el archivo de cursor.