Méthode Event.SetFilterActions (Visio)

Article
04/07/2023

Spécifie les extensions de l'événement MouseMove signalées par Visio.

Syntaxe

expression. SetFilterActions( _filterActionStream()_ )

Expression Expression qui renvoie un objet Event .

Parameters

Nom	Requis/Facultatif	Type de données	Description
filterActionStream()	Obligatoire	Long	Tableau de paires action/valeur. Pour plus d’informations, consultez la rubrique Remarques.

Valeur renvoyée

Aucune

Remarques

La méthode SetFilterActions permet d'ignorer les extensions sélectionnées de l'événement MouseMove sur la base du type d'extension. Les types d'extension sont basés sur les actions de souris faisant partie d'une opération de glissement-déplacement, comme montré dans le tableau ci-après. Par défaut, Visio signale les déclenchements de toutes les extensions d’événement.

Le paramètre filterActionStream est un tableau défini de la façon suivante. Le nombre d'éléments dans filterActionStream est un multiple de 3 :

Le premier élément contient l’action de la souris de début (extension d’événement MouseMove ) de la plage (tout membre de VisFilterActions).
Le deuxième élément contient l'action de souris de fin (extension d'événement MouseMove) de la plage (tout membre de VisFilterActions dont la valeur est supérieure à celle du premier élément).
Le troisième élément contient une valeur True ou False indiquant si vous désirez recevoir des événements pour cette plage d'actions (True pour recevoir des événements d'un sous-type donné, ou extension d'événement MouseMove ; False pour exclure un sous-type d'événement).

Les actions de filtre que vous pouvez placer dans le premier et le deuxième élément de tableau de chaque triplet d'éléments sont définies dans l'énumération VisFilterActions, déclarée dans la bibliothèque de types de Visio et montrée dans le tableau suivant.

Constante	Valeur	Description
visFilterMouseMoveDragBegin	1	Filtrez l’extension DragBegin de l’événement MouseMove .
visFilterMouseMoveDragDrop	5	Filtrer l'extension DragDrop de l'événement MouseMove.
visFilterMouseMoveDragEnter	2	Filtrer l'extension DragEnter de l'événement MouseMove.
visFilterMouseMoveDragLeave	4	Filtrer l'extension DragLeave de l'événement MouseMove.
visFilterMouseMoveDragOver	3	Filtrer l'extension DragOver de l'événement MouseMove.
visFilterMouseMoveNoDrag	0	Ne pas filtrer les extensions de l'événement MouseMove.

Par exemple, si vous souhaitez recevoir toutes les extensions MouseEvent à l'exception de l'extension d'événement DragOver, vous pouvez constituer un tableau comme suit :

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

Pour ne recevoir que l'extension d'événement DragEnter, en ignorant les actions de souris placées avant et après, constituez un tableau comme suit :

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

Notez que les actions de souris qui occupent la deuxième position d'un triplet d'éléments de tableau doivent toujours être placées plus loin dans la séquence (donc, avec une valeur plus élevée) que celles occupant la première position d'un triplet.

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.

Partager via