共用方式為

Event.SetFilterActions 方法 (Visio)

  • 發行項

指定 Visio 所報告之 MouseMove 事件的擴充。

語法

expression。 SetFilterActions( _filterActionStream()_ )

表達 會傳回 Event 物件的運算式。

參數

名稱 必要/選用 資料類型 描述
filterActionStream () 必要 Long 動作/值組的陣列。 如需詳細資訊，請參閱＜備註＞。

傳回值

無

註解

SetFilterActions 方法會提供方式以根據擴充類型略過 MouseMove 事件的已選取擴充。 而擴充類型的根據是屬於拖放作業的滑鼠動作 (如下表所示)。 根據預設，Visio 會報告引發所有事件延伸模組。

filterActionStream 參數是以下列方式定義的陣列。 filterActionStream 中的元素數目是 3 的倍數：

  • 第一個專案包含 MouseMove 事件延伸 (開始滑鼠動作，) 範圍 (VisFilterActions) 的任何成員。

  • 第二個元素包含 MouseMove 事件延伸 (的結束滑鼠動作，) 範圍 (VisFilterActions 的任何成員，其值高於第一個元素) 。

  • 第三個元素包含 True 或 False 值，表示您是否要聆聽該動作範圍的事件 (True 表示要聆聽特定子類型的事件，或 MouseMove 事件擴充；False 則表示要排除事件子類型)。

可以放在每個元素三項組之第一個及第二個陣列元素中的篩選動作是定義在 VisFilterActions 列舉中，而這個列舉是宣告於 Visio 型別程式庫，並顯示在下表中。

常數 值 描述
visFilterMouseMoveDragBegin 1 篩選MouseMove事件的DragBegin延伸模組。
visFilterMouseMoveDragDrop 5 篩選 MouseMove 事件的 DragDrop 擴充。
visFilterMouseMoveDragEnter 2 篩選 MouseMove 事件的 DragEnter 擴充。
visFilterMouseMoveDragLeave 4 篩選 MouseMove 事件的 DragLeave 擴充。
visFilterMouseMoveDragOver 3 篩選 MouseMove 事件的 DragOver 擴充。
visFilterMouseMoveNoDrag 0 不篩選 MouseMove 事件的任何擴充。

例如，如果想要聆聽 DragOver 事件擴充以外的所有 MouseEvent 擴充，則可以建立如下的陣列：

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

或者，若只要聆聽 DragEnter 事件擴充 (略過前後進行的滑鼠動作)，請設定如下陣列：

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

請注意，佔用陣列元素三項組中之第二個位置的滑鼠動作的順序一律必須晚於 (即，較高的 in 值) 佔用陣列元素三項組中之第一個位置的滑鼠動作。

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。