Partager via

Propriétés MouseIcon, MousePointer – Exemple

  • Article

L’exemple suivant illustre comment spécifier un pointeur de souris adapté à un contrôle ou une situation spécifique. Vous pouvez affecter l’un des pointeurs de souris disponibles à l’aide de la propriété MousePointer ; ou, vous pouvez affecter une icône personnalisée à l’aide des propriétés MousePointer et MouseIcon .

Cet exemple fonctionne comme suit :

  • Choisissez un pointeur de souris dans listBox pour modifier le pointeur de souris associé au premier CommandButton.

  • Cliquez sur le premier bouton de commande pour associer son pointeur de souris au deuxième bouton de commande.

  • Cliquez sur le deuxième bouton de commande pour charger une icône personnalisée pour son pointeur de souris.

Pour utiliser cet exemple, copiez le code de l’exemple dans la partie Déclarations d’un formulaire. Vérifiez que le formulaire contient :

  • deux contrôles CommandButton appelés CommandButton1 et CommandButton2 ;
  • une zone de liste appelée ListBox1.

Remarque

Cet exemple utilise deux fichiers d’icône (identifiés par l’extension de fichier .ico dans Windows) qui sont chargés à l’aide de la fonction LoadPicture . Vous devez modifier chaque appel de la fonction LoadPicture pour spécifier un fichier d'icône qui se trouve sur votre système.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.