Событие Application.MouseUp (Visio)

Возникают, когда кнопка мыши отпускается.

Синтаксис

выражение. MouseUp (Button, KeyButtonState, x, y, CancelDefault)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Button	Обязательный	Long	Отпущенная кнопка мыши. Возможные значения объявляются в VisKeyButtonFlags.
KeyButtonState	Обязательный	Long	Состояние кнопок мыши и клавиш SHIFT и CTRL для события. Возможные значения могут быть комбинацией значений, объявленных в VisKeyButtonFlags. Например, если функция KeyButtonState возвращает значение "9", это означает, что пользователь нажал левую кнопку мыши, нажимая клавишу CTRL.
x	Обязательный	Double	X-координата указателя мыши.
y	Обязательный	Double	Y-координата указателя мыши.
CancelDefault	Обязательный	Boolean	Значение False , если Microsoft Visio должен обработать сообщение, полученное из этого события; в противном случае — True.

Примечания

Если для параметра CancelDefault задано значение True, Visio не будет обрабатывать сообщение, полученное при нажатии кнопки мыши.

В отличие от некоторых других событий Visio, MouseUp не имеет префикса Query, но, тем не менее, является событием запроса. Это означает, что вы можете отменить обработку сообщения, отправленного MouseUp, установив для CancelDefault значение True или, если для обработки события используется метод VisEventProc , вернув значение True. Дополнительные сведения см. в разделах, посвященных методу VisEventProc и любым событиям запроса (например, событию QueryCancelSuspend в этом справочнике).

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

Если вы хотите создать свои собственные объекты Event , используйте метод Add или AddAdvice .

Чтобы создать объект Event , который запускает надстройку, используйте метод Add , применяемый к коллекции EventList .

Чтобы создать объект события , получающий уведомление, используйте метод AddAdvice .

Чтобы найти код события для события, которое вы хотите создать, см. Коды событий.

Пример

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

Для выполнения этого примера вставьте новый модуль класса в проект 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) 
 
 If Button = 1 Then 
 
 Debug.Print "Left mouse button clicked" 
 
 ElseIf Button = 2 Then 
 
 Debug.Print "Right mouse button clicked" 
 
 ElseIf Button = 16 Then 
 
 Debug.Print "Center mouse button clicked" 
 
 End If 
 
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

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

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

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