Propriété Form.InsideWidth (Access)

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

Syntaxe

expression. InsideWidth

expressionVariable qui représente un objetForm.

Remarques

Si vous souhaitez déterminer les dimensions intérieures du formulaire lui-même, vous utilisez la propriété Width 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é Height s’applique uniquement aux sections de formulaire, et non 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 sont pas égales à 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.