Window.SetWindowRect 方法 (Visio)

设置窗口客户区的大小和位置。

语法

expression。 SetWindowRect( _nLeft_ , _nTop_ , _nWidth_ , _nHeight_ )

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

参数

名称	必需/可选	数据类型	说明
nLeft	必需	Long	窗口左侧的坐标。
nTop	必需	Long	窗口顶部的坐标。
nWidth	必需	Long	从窗口左侧到右侧的距离（以像素为单位）。
nHeight	必需	Long	从窗口顶部到底部的距离（以像素为单位）。

返回值

Nothing

注解

SetWindowRect 方法用于设置窗口客户区的大小和位置（与拥有其所属的 Windows 集合的窗口相关）。 对于 Application 对象的 Windows 集合，“相关”窗口是 Visio 主窗口的 MDICLIENT 窗口。 对于 Window 对象的 Windows 集合，“相关”窗口为绘图窗口的客户区。

SetWindowRect 在窗口停靠时不起任何作用。

示例

下面的示例说明如何使用 SetWindowRect 方法设置 Window 对象的大小和位置。 该方法将打开“扫视和缩放”窗口，并在“即时”窗口中输出该窗口的坐标、宽度和高度。 然后，它使用 SetWindowRect 更改窗口的高度，并打印新值。

Public Sub SetWindowRect_Example() 
 
 Dim vsoApplication As Visio.Application 
 Dim vsoPZWindow As Visio.Window 
 Dim pinLeft As Long, pinTop As Long, pinWidth As Long, pinHeight As Long 
 
 Set vsoApplication = Visio.Application 
 
 'Display the Pan & Zoom window 
 Set vsoPZWindow = vsoApplication.ActiveWindow.Windows.ItemFromID(visWinIDPanZoom) 
 vsoPZWindow.Visible = True 
 
 'Get the existing window size and position 
 vsoPZWindow.GetWindowRect pinLeft, pinTop, pinWidth, pinHeight 
 Debug.Print pinLeft, pinTop, pinWidth, pinHeight 
 
 'Change the window height and get the new values 
 vsoPZWindow.SetWindowRect pinLeft, pinTop, pinWidth, pinHeight + 50 
 vsoPZWindow.GetWindowRect pinLeft, pinTop, pinWidth, pinHeight 
 Debug.Print pinLeft, pinTop, pinWidth, pinHeight 
 
End Sub

支持和反馈

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