Метод Window.SetWindowRect (Visio)

Статья
01/17/2024

Задает размер и положение клиентской области окна.

Синтаксис

выражение. SetWindowRect( _nLeft_ , _nTop_ , _nWidth_ , _nHeight_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
nLeft	Обязательный	Long	Координата левой части окна.
Ntop	Обязательный	Long	Координата верхней части окна.
nWidth	Обязательный	Long	Расстояние в пикселях от левой стороны до правой части окна.
nHeight	Обязательный	Long	Расстояние в пикселях от верхней до нижней части окна.

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

Отсутствует

Примечания

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

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

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