MouseEvent.y 属性 (Visio)

返回 Microsoft Visio 窗口中触发 MouseDown、 MouseMove 或 MouseUp 事件的位置的 y 坐标。 此为只读属性。

语法

expression。 y

表达 一个代表 MouseEvent 对象的变量。

返回值

VisStatCodes

备注

y 属性返回以内部绘图单位表示的值。

示例

此类模块说明如何定义名为 MouseListener 的接收类，该类将侦听活动窗口中由鼠标操作触发的事件。 它通过使用 WithEvents 关键字来声明对象变量 vsoWindow。 类模块还包含 MouseDown、 MouseMove 和 MouseUp 事件的事件处理程序。

若要运行此示例，请在 Microsoft Visual Basic for Applications (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 事件。 在“立即”窗口中，处理程序打印单击鼠标的位置在 Visio 窗口坐标空间中的 x 和 y 坐标。

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。