Freigeben über

Form.InsideHeight-Eigenschaft (Access)

  • Artikel

Verwenden Sie die InsideHeight-Eigenschaft (zusammen mit der InsideWidth-Eigenschaft ), um die Höhe und Breite (in Twips) des Fensters zu bestimmen, das ein Formular enthält. Long mit Lese-/Schreibzugriff.

Syntax

Ausdruck. InsideHeight

expression Eine Variable, die ein Form-Objekt darstellt.

Hinweise

Wenn Sie die Innenabmessungen des Formulars selbst bestimmen möchten, verwenden Sie die Width-Eigenschaft , um die Breite des Formulars zu bestimmen, und die Summe der Höhe der sichtbaren Abschnitte des Formulars, um dessen Höhe zu bestimmen (die Height-Eigenschaft gilt nur für Formularabschnitte, nicht für Formulare). Das Innere eines Formulars ist der Bereich innerhalb des Formulars, mit Ausnahme der Bildlaufleisten und der Datensatzselektoren.

Sie können auch die Eigenschaften WindowHeight und WindowWidth verwenden, um die Höhe und Breite des Fensters zu bestimmen, das ein Formular enthält.

Wenn ein Fenster maximiert dargestellt ist, hat das Festlegen dieser Eigenschaften so lange keine Auswirkung, bis die normale Größe des Fensters wiederhergestellt wird.

Beispiel

Das folgende Beispiel zeigt, wie Sie mithilfe der Eigenschaften InsideHeightInsideHeight und InsideWidthInsideWidth die Innenhöhe und -breite eines Formulars mit der Höhe und Breite des Formularfensters vergleichen können. Wenn die Fensterdimensionen nicht der Größe des Formulars entsprechen, wird die Größe des Fensters an die Höhe und Breite des Formulars angepasst.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.