Propriété Form.InsideHeight (Access)

Utilisez la propriété InsideHeight (ainsi que la propriété InsideWidth ) pour déterminer la hauteur et la largeur (en twips) de la fenêtre contenant un formulaire. Long (en lecture/écriture).

Syntaxe

expression. Hauteur intérieure

expressionVariable qui représente un objetForm.

Remarques

Pour déterminer les dimensions intérieures du formulaire proprement dit, vous devez utiliser la propriété Largeur pour déterminer la largeur du formulaire et la somme des hauteurs des sections visibles du formulaire pour déterminer sa hauteur (la propriété Hauteur s’applique uniquement aux sections du formulaire, pas aux formulaires). L'intérieur d'un formulaire comprend la région intérieure du formulaire, à l'exclusion des barres de défilement et des sélecteurs d'enregistrements.

Vous pouvez également utiliser les propriétés WindowHeight et WindowWidth pour déterminer la hauteur et la largeur de la fenêtre contenant un formulaire.

Si une fenêtre est réduite, le paramétrage de ces propriétés n'a aucun effet tant que la taille normale de la fenêtre n'est pas rétablie.

Exemple

L’exemple suivant montre comment utiliser les propriétés InsideHeight et InsideWidth pour comparer la hauteur et la largeur intérieures d’un formulaire avec la hauteur et la largeur de la fenêtre du formulaire. Si les dimensions de la fenêtre ne correspondent pas à la taille du formulaire, la fenêtre est redimensionnée pour correspondre à la hauteur et à la largeur du formulaire.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.