Vorgehensweise: Festlegen des Mauszeigers für ein ListenfeldHow to: Set the Type of Mouse Pointer for a List Box

Im folgenden Beispiel wird veranschaulicht, wie ein Mauszeiger an, der für ein bestimmtes Steuerelement oder Situation geeignet ist.The following example demonstrates how to specify a mouse pointer that is appropriate for a specific control or situation. Für das ListBox -Steuerelement, können Sie Zuweisen eines stehen mehrere Mauszeiger mithilfe der ** zur Auswahl** Eigenschaft.For the ListBox control, you can assign one of several available mouse pointers using the ** ListBox.MousePointer** property.

Dieses Beispiel funktioniert folgendermaßen:This example works in the following ways:

  • Wählen Sie einen Mauszeiger aus dem Listenfeld so ändern Sie den Mauszeiger für das ListBox-Steuerelement.Choose a mouse pointer from the ListBox to change the mouse pointer associated with the ListBox.

Kopieren Sie diesen Beispielcode in den Skript-Editor eines Formulars.To use this example, copy this sample code to the Script Editor of a form. Zum Ausführen des Codes müssen Sie das Formular zu öffnen, damit das Open -Ereignis aktiviert wird.To run the code you need to open the form so the Open event will activate. Stellen Sie sicher, dass das Formular Folgendes enthält:Make sure that the form contains:

  • Ein ListBox-Steuerelement mit der Bezeichnung "ListBox1".A ListBox named 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

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.