Compartilhar via

Método Event.SetFilterActions (Visio)

  • Artigo

Especifica as extensões do evento MouseMove relatado pelo Visio.

Sintaxe

expression. SetFilterActions( _filterActionStream()_ )

Expressão Uma expressão que retorna um objeto Event .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
filterActionStream() Obrigatório Long Uma matriz de pares de ação/valor. Para obter mais informações, consulte Comentários.

Valor de retorno

Nada

Comentários

O método SetFilterActions fornece uma maneira de ignorar as extensões selecionadas do evento MouseMove com base no tipo de extensão. Os tipos de extensão são baseados nas ações do mouse que fazem parte de uma operação arrastar e soltar, conforme mostrado na tabela abaixo. Por padrão, o Visio relata demissões de todas as extensões de evento.

O parâmetro filterActionStream é uma matriz definida da seguinte maneira. O número de elementos em filterActionStream é um múltiplo de 3:

  • O primeiro elemento contém a ação inicial do mouse (extensão de evento MouseMove ) do intervalo (qualquer membro do VisFilterActions).

  • O segundo elemento contém a ação do mouse final (extensão de evento MouseMove ) do intervalo (qualquer membro do VisFilterActions cujo valor é maior que o do primeiro elemento ).

  • O terceiro elemento contém um valor True ou False indicando se você deseja escutar os eventos desse intervalo de ações (True para escutar eventos de um determinado subtipo ou a extensão do evento MouseMove; False para excluir o subtipo do evento).

As ações do filtro que podem ser colocadas no primeiro e no segundo elemento da matriz de cada terceto de elementos são definidas na enumeração VisFilterActions, que é declarada na biblioteca de tipos do Visio e mostrada na tabela a seguir.

Constant Valor Descrição
visFilterMouseMoveDragBegin 1 Filtre a extensão DragBegin do evento MouseMove .
visFilterMouseMoveDragDrop 5 Filtrar a extensão DragDrop do evento MouseMove.
visFilterMouseMoveDragEnter 2 Filtrar a extensão DragEnter do evento MouseMove.
visFilterMouseMoveDragLeave 4 Filtrar a extensão DragLeave do evento MouseMove.
visFilterMouseMoveDragOver 3 Filtrar a extensão DragOver do evento MouseMove.
visFilterMouseMoveNoDrag 0 Não filtrar qualquer extensão do evento MouseMove.

Por exemplo, se deseja escutar todas as extensões MouseEvent, exceto a extensão do evento DragOver, você pode criar uma matriz como a indicada abaixo:

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

Ou, para escutar apenas a extensão do evento DragEnter, ignorando as ações do mouse que vêm antes e depois, configure uma matriz como a indicada abaixo:

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

Observe que as ações do mouse que ocupam a segunda posição em um terceto de elementos de matriz devem sempre ser posteriores na sequência (isto é, de valores mais altos) àquelas que ocupam a primeira posição no terceto.

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.