Event.SetFilterActions-Methode (Visio)

  • Artikel

Gibt die Erweiterungen für das von Visio gemeldete MouseMove-Ereignis an.

Syntax

Ausdruck. SetFilterActions( _filterActionStream()_ )

Ausdruck Ein Ausdruck, der ein Event-Objekt zurückgibt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
filterActionStream() Erforderlich Long Ein Array mit Aktions-/Wertpaaren. Weitere Informationen hierzu finden Sie unter „Hinweise“.

Rückgabewert

Nichts

Bemerkungen

Die SetFilterActions-Methode stellt eine Möglichkeit dar, ausgewählte Erweiterungen des MouseMove-Ereignisses anhand des Erweiterungstyps zu ignorieren. Erweiterungstypen basieren auf Mausaktionen, die Teil eines Drag & Drop-Vorgangs sind (wie in der Tabelle unten angegeben). Standardmäßig meldet Visio das Auslösen aller Ereigniserweiterungen.

Der filterActionStream-Parameter ist ein Array, das folgendermaßen definiert wird. Die Anzahl von Elementen in filterActionStream ist ein Vielfaches von 3:

  • Das erste Element enthält die erste Mausaktion (MouseMove-Ereigniserweiterung ) des Bereichs (beliebiges Element von VisFilterActions).

  • Das zweite Element enthält die Endmausaktion (MouseMove-Ereigniserweiterung ) des Bereichs (jedes Element von VisFilterActions , dessen Wert höher als der des ersten Elements ist).

  • Das dritte Element enthält einen True- oder False-Wert, der angibt, ob dieser Aktionsbereich auf Ereignisse überwacht werden soll (True für die Überwachung auf Ereignisse eines bestimmten Untertyps oder der MouseMove-Ereigniserweiterung; False, um den Untertyp eines Ereignisses auszuschließen).

Die Filteraktionen, die jeweils im ersten und zweiten Arrayelement der einzelnen 3-Tupel mit Elementen platziert werden können, sind in der VisFilterActions-Enumeration definiert, die in der Visio-Typbibliothek deklariert ist. Sie sind in der folgenden Tabelle aufgeführt.

Konstante Wert Beschreibung
visFilterMouseMoveDragBegin 1 Filtern Sie die DragBegin-Erweiterung des MouseMove-Ereignisses .
visFilterMouseMoveDragDrop 5 Filtern der DragDrop-Erweiterung für das MouseMove-Ereignis.
visFilterMouseMoveDragEnter 2 Filtern der DragEnter-Erweiterung für das MouseMove-Ereignis.
visFilterMouseMoveDragLeave 4 Filtern der DragLeave-Erweiterung für das MouseMove-Ereignis.
visFilterMouseMoveDragOver 3 Filtern der DragOver-Erweiterung für das MouseMove-Ereignis.
visFilterMouseMoveNoDrag 0 Es werden keine Erweiterungen für das MouseMove-Ereignis gefiltert.

Wenn Sie beispielsweise alle MouseEvent-Erweiterungen mit Ausnahme der Erweiterung für das DragOver-Ereignis überwachen möchten, können Sie ein Array wie das Folgende erstellen:

Dim alngFilterActions(1 to 1 * 3) As Long  
    alngFilterActions(1) = visFilterMouseMoveDragDrop  
    alngFilterActions(2) = visFilterMouseMoveDragDrop  
    alngFilterActions(3) = False

Wenn Sie nur die Erweiterung für das DragEnter-Ereignis überwachen und davor sowie anschließend ausgeführte Mausaktionen ignorieren möchten, richten Sie ein Array wie das Folgende ein:

Dim alngFilterActions(1 To (3 * 3)) As Long  
 
    'Listen to the "DragEnter" mouse action.  
    alngFilterActions(1) = visFilterMouseMoveDragEnter  
    alngFilterActions(2) = visFilterMouseMoveDragEnter   
    alngFilterActions(3) = True  
 
    'Ignore any mouse actions before "DragEnter."   
    alngFilterActions(4) = visFilterMouseMoveDragBegin  
    alngFilterActions(5) = visFilterMouseMoveDragEnter  - 1  
    alngFilterActions(6) = False  
 
    'Ignore any mouse actions after "DragEnter."   
    alngFilterActions(7) = visFilterMouseMoveDragEnter + 1  
    alngFilterActions(8) = visFilterMouseMoveDragDrop  
    alngFilterActions(9) = False

Mausaktionen, die sich an zweiter Stelle in einem 3-Tupel mit Arrayelementen befinden, müssen immer weiter hinten (d. h. mit einem höheren Wert) angezeigt werden als die Aktionen an der ersten Stelle in einem 3-Tupel mit Arrayelementen.

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.