MouseIcon-Eigenschaft, MousePointer-Eigenschaft (Beispiel)

  • Artikel

Im folgenden Beispiel wird veranschaulicht, wie Sie einen Mauszeiger angeben, der für ein bestimmtes Steuerelement oder eine bestimmte Situation geeignet ist. Sie können einen von mehreren verfügbaren Mauszeigern mithilfe der MousePointer-Eigenschaft zuweisen. Oder Sie können ein benutzerdefiniertes Symbol mithilfe der Eigenschaften MousePointer und MouseIcon zuweisen.

Dieses Beispiel funktioniert folgendermaßen:

  • Wählen Sie einen Mauszeiger aus dem ListBox-Steuerelement aus, um den Mauszeiger zu ändern, der dem ersten CommandButton-Steuerelement zugeordnet ist.

  • Klicken Sie auf das erste CommandButton -Steuerelement, um den Mauszeiger für das zweite CommandButton -Steuerelement festzulegen.

  • Klicken Sie auf das zweite CommandButton -Steuerelement, um ein benutzerdefiniertes Symbol für den Mauszeiger zu laden.

Sie können dieses Beispiel verwenden, indem Sie diesen Beispielcode in den Deklarationsabschnitt eines Formulars kopieren. Stellen Sie sicher, dass das Formular folgende Komponenten enthält:

  • Zwei CommandButton -Steuerelemente mit der Bezeichnung "CommandButton1" und "CommandButton2".
  • Ein ListBox -Element mit der Bezeichnung "ListBox1".

Hinweis

In diesem Beispiel werden zwei Symboldateien (identifiziert durch die Erweiterung der ICO-Datei in Windows) verwendet, die mithilfe der LoadPicture-Funktion geladen werden. Sie sollten jeden LoadPicture -Funktionsaufruf bearbeiten, um eine Symboldatei festzulegen, die sich auf dem System befindet.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.