Méthode Event.SetFilterCommands (Visio)

Article
04/07/2023

Présente un tableau de plages de commandes et une valeur True ou False indiquant le mode de filtrage des événements pour chaque plage de commandes.

Syntaxe

expression. SetFilterCommands( _Commands()_ )

Expression Variable qui représente un objet Event .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Commands()	Obligatoire	Long	Tableau de plages de commandes et valeur True ou False le mode de filtrage des événements pour chaque plage de commandes.

Valeur renvoyée

Aucune

Remarques

Lorsqu'un objet Event, créé à l'aide de la méthode AddAdvise, est ajouté à la collection EventList d'un objet source, toutes les occurrences de cet événement sont transmises par défaut au récepteur d'événement. La méthode SetFilterCommands permet de ne pas tenir compte des événements sélectionnés, basés sur un ID de commande.

L'e paramètre Commands() transmis à SetFilterCommands est un tableau défini de la manière suivante.

Le nombre d'éléments figurant dans Commands()est un multiple de 3 :

Le premier élément contient le premier ID de commande de la plage (tout membre de VisUICmds).
Le deuxième élément contient le dernier ID de commande de la plage (tout membre de VisUICmds).
Le troisième élément contient une valeur True ou False indiquant si vous souhaitez recevoir des événements pour cette plage de commandes (True autorise les événements, tandis que False les exclut).

Pour que la transmission d'un événement via un filtre de commande s'effectue sans erreur, l'événement doit répondre aux critères ci-dessous :

L'ID de commande doit être valide.
Si tous les filtres ont la valeur True, l'événement doit au moins correspondre à un filtre.
Si tous les filtres comportent la valeur False, l'événement ne doit correspondre à aucun filtre.
Si tous les filtres comportent à la fois des valeurs True et False, l'événement doit au moins correspondre à un filtre True et ne doit correspondre à aucun filtre False.

S'il n'existe aucune plage True dans le tableau, les événements sont considérés comme étant True.

Par exemple, un tableau excluant une commande en particulier est codé de la manière suivante :

 
    Dim aFilterCommands(1 To (1 * 3)) As Long  
 
    'Ignore the layout command. 
    aFilterCommands(1) = visCmdLayoutDynamic  
    aFilterCommands(2) = visCmdLayoutDynamic  
    aFilterCommands(3) = False

Autre exemple : pour configurer un tableau qui accepte uniquement à la commande Mettre à l'arrière-plan :

 
    Dim aFilterCommands(1 To (3 * 3)) As Long  
 
    'Pay attention to the "Send to Back" command.  
    aFilterCommands(1) = visCmdObjectSendToBack  
    aFilterCommands(2) = visCmdObjectSendToBack  
    aFilterCommands(3) = True  
 
    'Ignore any command IDs before the "Send to Back" command.  
    aFilterCommands(4) = visCmdFirst  
    aFilterCommands(5) = visCmdObjectSendToBack - 1  
    aFilterCommands(6) = False  
 
    'Ignore any command IDs after the "Send to Back" command.  
    aFilterCommands(7) = visCmdObjectSendToBack + 1  
    aFilterCommands(8) = visCmdLast  
    aFilterCommands(9) = False

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