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

Свойство Form.InsideHeight (Access)

  • Статья

Используйте свойство InsideHeight (вместе со свойством InsideWidth ), чтобы определить высоту и ширину (в випах) окна, содержащего форму. Для чтения и записи, Long.

Синтаксис

expression. InsideHeight

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

Замечания

Если вы хотите определить внутренние размеры самой формы, используйте свойство Width , чтобы определить ширину формы, и сумму высот видимых разделов формы, чтобы определить ее высоту (свойство Height применяется только к разделам формы, а не к формам). Внутренняя часть формы — это область внутри формы, за исключением полос прокрутки и селекторов записей.

Вы также можете использовать свойства WindowHeight и WindowWidth , чтобы определить высоту и ширину окна, содержащего форму.

Если окно развернуто, установка этих свойств не оказывает никакого влияния до тех пор, пока окно не будет восстановлено до его нормального размера.

Пример

В следующем примере показано, как использовать свойства InsideHeight и InsideWidth для сравнения внутренней высоты и ширины формы с высотой и шириной окна формы. Если размеры окна не равны размеру формы, размер окна изменяется в соответствии с высотой и шириной формы.

Sub ResetWindowSize(frm As Form) 
 Dim intWindowHeight As Integer 
 Dim intWindowWidth As Integer 
 Dim intTotalFormHeight As Integer 
 Dim intTotalFormWidth As Integer 
 Dim intHeightHeader As Integer 
 Dim intHeightDetail As Integer 
 Dim intHeightFooter As Integer 
 
 ' Determine form's height. 
 intHeightHeader = frm.Section(acHeader).Height 
 intHeightDetail = frm.Section(acDetail).Height 
 intHeightFooter = frm.Section(acFooter).Height 
 intTotalFormHeight = intHeightHeader _ 
 + intHeightDetail + intHeightFooter 
 ' Determine form's width. 
 intTotalFormWidth = frm.Width 
 ' Determine window's height and width. 
 intWindowHeight = frm.InsideHeight 
 intWindowWidth = frm.InsideWidth 
 
 If intWindowWidth <> intTotalFormWidth Then 
 frm.InsideWidth = intTotalFormWidth 
 End If 
 If intWindowHeight <> intTotalFormHeight Then 
 frm.InsideHeight = intTotalFormHeight 
 End If 
End Sub

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

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