Ejemplo de propiedades MouseIcon y MousePointer

El siguiente ejemplo muestra cómo especificar un puntero de mouse que es adecuado para una situación o control específicos. Puede asignar uno de los varios punteros del mouse disponibles mediante la propiedad MousePointer ; o bien, puede asignar un icono personalizado mediante las propiedades MousePointer y MouseIcon .

Este ejemplo funciona de las siguientes maneras:

• Elija un puntero del mouse en listBox para cambiar el puntero del mouse asociado al primer commandbutton.

• Haga clic en el primer CommandButton para asociar su puntero de mouse al segundo CommandButton.

• Haga clic en el segundo CommandButton para cargar un icono personalizado para su puntero de mouse.

Para usar este ejemplo, copie este código de muestra en la parte Declaraciones de un formulario. Asegúrese de que el formulario contiene:

• Dos controles de CommandButton llamados CommandButton1 y CommandButton2.
• Un ListBox denominado ListBox1.

Nota:

En este ejemplo se usan dos archivos de icono (identificados por la extensión de archivo .ico en Windows) que se cargan mediante la función LoadPicture . Debe editar cada llamada de función LoadPicture para especificar un archivo de icono que se encuentra en su sistema.

Private Sub ListBox1_Click() 
 If IsNull(ListBox1.Value) = False Then 
 CommandButton1.MousePointer = ListBox1.Value 
 
 If CommandButton1.MousePointer = _ 
 fmMousePointerCustom Then 
 CommandButton1.MouseIcon = _ 
 LoadPicture("c:\msvc20\cdk32\" _ 
 & "samples\circ1\bix.ico") 
 End If 
 End If 
End Sub 
 
Private Sub CommandButton1_Click() 
 CommandButton2.MousePointer = CommandButton1.MousePointer 
 
 If CommandButton2.MousePointer = fmMousePointerCustom Then 
 CommandButton2.MouseIcon = CommandButton1.MouseIcon 
 End If 
End Sub 
 
Private Sub CommandButton2_Click() 
 CommandButton2.MousePointer = fmMousePointerCustom 
 CommandButton2.MouseIcon = LoadPicture("c:\msvc20\cdk32\samples\push\push.ico") 
End Sub 
 
Private Sub UserForm_Initialize() 
 'Load ListBox with MousePointer choices 
 ListBox1.ColumnCount = 2 
 
 ListBox1.AddItem "fmMousePointerDefault" 
 ListBox1.List(0, 1) = fmMousePointerDefault 
 ListBox1.AddItem "fmMousePointerArrow" 
 ListBox1.List(1, 1) = fmMousePointerArrow 
 ListBox1.AddItem "fmMousePointerCross" 
 ListBox1.List(2, 1) = fmMousePointerCross 
 
 ListBox1.AddItem "fmMousePointerIBeam" 
 ListBox1.List(3, 1) = fmMousePointerIBeam 
 ListBox1.AddItem "fmMousePointerSizeNESW" 
 ListBox1.List(4, 1) = fmMousePointerSizeNESW 
 ListBox1.AddItem "fmMousePointerSizeNS" 
 ListBox1.List(5, 1) = fmMousePointerSizeNS 
 
 ListBox1.AddItem "fmMousePointerSizeNWSE" 
 ListBox1.List(6, 1) = fmMousePointerSizeNWSE 
 ListBox1.AddItem "fmMousePointerSizeWE" 
 ListBox1.List(7, 1) = fmMousePointerSizeWE 
 ListBox1.AddItem "fmMousePointerUpArrow" 
 ListBox1.List(8, 1) = fmMousePointerUpArrow 
 
 ListBox1.AddItem "fmMousePointerHourglass" 
 ListBox1.List(9, 1) = fmMousePointerHourGlass 
 ListBox1.AddItem "fmMousePointerNoDrop" 
 ListBox1.List(10, 1) = fmMousePointerNoDrop 
 ListBox1.AddItem "fmMousePointerAppStarting" 
 ListBox1.List(11, 1) = fmMousePointerAppStarting 
 
 ListBox1.AddItem "fmMousePointerHelp" 
 ListBox1.List(12, 1) = fmMousePointerHelp 
 ListBox1.AddItem "fmMousePointerSizeAll" 
 ListBox1.List(13, 1) = fmMousePointerSizeAll 
 ListBox1.AddItem "fmMousePointerCustom" 
 ListBox1.List(14, 1) = fmMousePointerCustom 
 
 ListBox1.BoundColumn = 2 
 ListBox1.Value = fmMousePointerDefault 
 
 MsgBox "ListBox1.Value =" & ListBox1.Value & "." 
 CommandButton1.MousePointer = ListBox1.Value 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.