Event.SetFilterActions-Methode (Visio)

Artikel
04/07/2023

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.

Freigeben über