Свойство MouseEvent.x (Visio)

Статья
04/07/2023

Возвращает координату X расположения в окне Microsoft Visio, в котором произошло событие MouseDown, MouseMove или MouseUp . Только для чтения.

Синтаксис

выражение. x

Выражение Переменная, представляющая объект MouseEvent .

Возвращаемое значение

VisStatCodes

Замечания

Свойство x возвращает значение во внутренних единицах рисования.

Пример

В этом модуле класса показано, как определить класс приемника с именем MouseListener , который прослушивает события, вызванные действиями мыши в активном окне. Объектная переменная vsoWindow объявляется с помощью ключевого слова WithEvents . Модуль класса также содержит обработчики событий MouseDown, MouseMove и MouseUp .

Чтобы запустить этот пример, вставьте новый модуль класса в проект Microsoft Visual Basic для приложений (VBA), назовите его MouseListener и вставьте следующий код в модуль.

Dim WithEvents vsoWindow As Visio.Window 
 
Private Sub Class_Initialize() 
 
 Set vsoWindow = ActiveWindow 
 
End Sub 
 
Private Sub Class_Terminate() 
 
 Set vsoWindow = Nothing 
 
End Sub 
 
Private Sub vsoWindow_MouseDown(ByVal Button As Long, ByVal KeyButtonState As Long, ByVal x As Double, ByVal y As Double, CancelDefault As Boolean) 
 
 Debug.Print "x is: "; x 
 Debug.Print "y is: "; y 
 
End Sub 
 
Private Sub vsoWindow_MouseMove(ByVal Button As Long, ByVal KeyButtonState As Long, ByVal x As Double, ByVal y As Double, CancelDefault As Boolean) 
 
 Debug.Print "x-position is "; x 
 Debug.Print "y-position is "; y 
 
End Sub 
 
Private Sub vsoWindow_MouseUp(ByVal Button As Long, ByVal KeyButtonState As Long, ByVal x As Double, ByVal y As Double, CancelDefault As Boolean) 
 
 If Button = 1 Then 
 
 Debug.Print "Left mouse button released" 
 
 ElseIf Button = 2 Then 
 
 Debug.Print "Right mouse button released" 
 
 ElseIf Button = 16 Then 
 
 Debug.Print "Center mouse button released" 
 
 End If 
 
End Sub

Затем вставьте следующий код в проект ThisDocument .

Dim myMouseListener As MouseListener 
 
Private Sub Document_DocumentSaved(ByVal doc As IVDocument) 
 
 Set myMouseListener = New MouseListener 
 
End Sub 
 
Private Sub Document_BeforeDocumentClose(ByVal doc As IVDocument) 
 
 Set myMouseListener = Nothing 
 
End Sub

Сохраните документ, чтобы инициализировать класс, а затем щелкните в любом месте активного окна, чтобы запустить событие MouseDown . В окне Интерпретация обработчик выводит координаты x и y расположения в пространстве координат окна Visio, где был нажат мышь.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через