Événement de redimensionnement

Article
04/07/2023

Se produit lorsqu’un formulaire utilisateur est redimensionné.

Syntaxe

Private Sub UserForm_Resize( )

Remarques

Utilisez une procédure événementielle Resize pour déplacer ou redimensionner des contrôles lorsque le UserForm parent est redimensionné. Vous pouvez également utiliser cette procédure événementielle pour recalculer des variables ou des propriétés.

Exemple

L’exemple suivant utilise les événements Activate et Click pour illustrer le déclenchement de l’événement UserFormResize . Lorsque l’utilisateur clique sur la zone cliente du formulaire, celle-ci augmente ou diminue, et la nouvelle hauteur est spécifiée dans la barre de titre. Notez que la propriété Tag est utilisée pour stocker la hauteur initiale de UserForm.

' Activate event for UserForm1
Private Sub UserForm_Activate()
    UserForm1.Caption = "Click me to make me taller!"
    Tag = Height    ' Save the initial height.
End Sub

' Click event for UserForm1
Private Sub UserForm_Click()
    Dim NewHeight As Single
    NewHeight = Height
    ' If the form is small, make it tall.
    If NewHeight = Val(Tag) Then
        Height = Val(Tag) * 2
    Else
    ' If the form is tall, make it small.
        Height = Val(Tag)
    End If
End Sub

' Resize event for UserForm1
Private Sub UserForm_Resize()
    UserForm1.Caption = "New Height: " & Height & "  " & "Click to resize me!"
End Sub

Voir aussi

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.

Share via