Mouse Global - VB-MUNDO

LaNGuiS · #1 (**permalink**) 27-11-2006, 03:08:45

Hola hay algunna forma de setear que todo un proyecto de visual basic tenga el mismo mouseicon y no haya que setearlo formulario por formularios?

Desde ya muchas gracias.

chronos682 · #2 (**permalink**) 27-11-2006, 17:25:55

Lo único que se me ocurre es que coloques lo siguiente:

Código:

Private Sub Command1_Click()
Dim frm As Form
For Each frm In Forms
    frm.MousePointer = 99 'Tienes que colocarlo en 99 para que se utilice la propiedad MouseIcon
    frm.MouseIcon = LoadPicture("C:\MiCursor.cur") 'Reemplazar por la ruta completa de acceso al cursos que vas a colocar.
Next
End Sub

Puedes colocar este código en cualquier parte, yo lo hice en un Botón de comandos o command button pero lo puedes poner en el evento Load del formulario principal.

Espero te sea de ayuda.

LaNGuiS · #3 (**permalink**) 28-11-2006, 15:55:18

Cita:

Empezado por chronos682

Lo único que se me ocurre es que coloques lo siguiente:

Código:

Private Sub Command1_Click()
Dim frm As Form
For Each frm In Forms
    frm.MousePointer = 99 'Tienes que colocarlo en 99 para que se utilice la propiedad MouseIcon
    frm.MouseIcon = LoadPicture("C:\MiCursor.cur") 'Reemplazar por la ruta completa de acceso al cursos que vas a colocar.
Next
End Sub

Puedes colocar este código en cualquier parte, yo lo hice en un Botón de comandos o command button pero lo puedes poner en el evento Load del formulario principal.

Espero te sea de ayuda.

Eso seriviria si tengo todos los formularios ya cargados y no los voy a descargar y volver a cargar nunca. Pero los voy cargando y descargando a medida que el programa se ejecuta.

Igualmente muchas gracias.

chronos682 · #4 (**permalink**) 29-11-2006, 01:07:58

Pues la única opción que se me ocurre es que cada cierto tiempo ejecutes el procediemiento que te dí antes, de esta forma, cada formulario que vas cargando va cambiando su puntero.