Compartilhar via

Propriedade Form.InsideHeight (Access)

  • Artigo

Use a propriedade InsideHeight (juntamente com a propriedade InsideWidth ) para determinar a altura e a largura (em twips) da janela que contém um formulário. Long de leitura/gravação.

Sintaxe

expressão. InsideHeight

expressão Uma variável que representa um objeto Form.

Comentários

Se você quiser determinar as dimensões interiores do formulário em si, use a propriedade Width para determinar a largura do formulário e a soma das alturas das seções visíveis do formulário para determinar sua altura (a propriedade Height se aplica apenas às seções de forma, não aos formulários). O interior de um formulário é a região dentro do formulário, excluindo as barras de rolagem e os seletores de registro.

Você também pode usar as propriedades WindowHeight e WindowWidth para determinar a altura e largura da janela contendo um formulário.

Se uma janela estiver maximizada, a configuração dessas propriedades não terá efeito enquanto a janela não for restaurada ao tamanho normal.

Exemplo

O exemplo a seguir mostra como usar as propriedades InsideHeight e InsideWidth para comparar o interior altura e largura de um formulário com a altura e largura da janela do formulário. Se as dimensões da janela não forem iguais ao tamanho do formulário, a janela será redimensionada para corresponder à altura e largura do formulário.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.