Метод Window.GetWindowRect (Visio)

Статья
04/07/2023

Возвращает размер и положение клиентской области окна.

Синтаксис

выражение. GetWindowRect( _pnLeft_ , _pnTop_ , _pnWidth_ , _pnHeight_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
pnLeft	Обязательный	Long	Координата левой части окна.
pnTop	Обязательный	Long	Координата верхней части окна.
pnWidth	Обязательный	Long	Расстояние в пикселях от левой стороны до правой части окна.
pnHeight	Обязательный	Long	Расстояние в пикселях от верхней до нижней части окна.

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

Отсутствует

Примечания

Метод GetWindowRect получает размер и положение клиентской области окна по отношению к окну, которому принадлежит коллекция Windows , к которой он принадлежит. Для коллекции Windows объекта Application окно "относительно" является окном MDICLIENT окна Microsoft Visio main. Для коллекции Windows объекта Window окно "относительно" является клиентской областью окна рисования.

Пример

В следующем примере показано, как использовать метод GetWindowRect для получения размера и положения объекта Window . Откроется окно Панорамирование & масштаб и отображается координаты, ширина и высота окна в окне Интерпретация.

Public Sub GetWindowRect_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 и обратная связь.

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