Définir le type de pointeur de souris pour une zone de liste

L’exemple suivant illustre comment spécifier un pointeur de souris adapté à un contrôle ou une situation spécifique. Pour le contrôle ListBox , vous pouvez affecter l’un des plusieurs pointeurs de souris disponibles à l’aide de la propriété ListBox.MousePointer .

Cet exemple s'applique de la manière suivante :

• Sélectionnez un pointeur de souris parmi ceux proposés dans le contrôle ListBox pour changer le pointeur associé au contrôle ListBox.

Pour utiliser cet exemple, copiez-en le code vers l’éditeur de script d’un formulaire. Pour exécuter le code, vous devez ouvrir le formulaire afin d’activer l’événement Open. Vérifiez que le formulaire contient :

• un contrôle ListBox nommé ListBox1 ;

Dim ListBox1 
 
Sub Item_Open() 
 set ListBox1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("ListBox1") 
 'Load ListBox with MousePointer choices 
 ListBox1.Clear 
 ListBox1.AddItem "Default" 
 ListBox1.AddItem "Arrow" 
 ListBox1.AddItem "Cross" 
 ListBox1.AddItem "IBeam" 
 ListBox1.AddItem "SizeNESW" 
 ListBox1.AddItem "SizeNS" 
 ListBox1.AddItem "SizeNWSE" 
 ListBox1.AddItem "SizeWE" 
 ListBox1.AddItem "UpArrow" 
 ListBox1.AddItem "Hourglass" 
 ListBox1.AddItem "NoDrop" 
 ListBox1.AddItem "AppStarting" 
 ListBox1.AddItem "Help" 
 ListBox1.AddItem "SizeAll" 
End Sub 
 
Sub ListBox1_Click() 
 If IsNull(ListBox1.Value) = False Then 
 Select Case ListBox1.Value 
 Case "Default" 
 pointer = 0 'Standard pointer. 
 Case "Arrow" 
 pointer = 1 'Arrow. 
 Case "Cross" 
 pointer = 2 'Cross-hair pointer. 
 Case "IBeam" 
 pointer = 3 'I-beam. 
 Case "SizeNESW" 
 pointer = 6 'Double arrow pointing northeast and southwest. 
 Case "SizeNS" 
 pointer = 7 'Double arrow pointing north and south. 
 Case "SizeNWSE" 
 pointer = 8 'Double arrow pointing northwest and southeast. 
 Case "SizeWE" 
 pointer = 9 'Double arrow pointing west and east. 
 Case "UpArrow" 
 pointer = 10 'Up arrow. 
 Case "Hourglass" 
 pointer = 11 'Hourglass. 
 Case "NoDrop" 
 pointer = 12 '"Not" symbol (circle with a diagonal line) on top of the object being dragged. Indicates an invalid drop target. 
 Case "AppStarting" 
 pointer = 13 'Arrow with an hourglass. 
 Case "Help" 
 pointer = 14 'Arrow with a question mark. 
 Case "SizeAll" 
 pointer = 15 'Size all cursor (arrows pointing north, south, east, and west). 
 End Select 
 ListBox1.MousePointer = pointer 
 End If 
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.