Partager via

Propriétés Height, Width, Left, Top, ClientHeight, ClientWidth, ClientLeft, ClientTop, TabStrip, Exemple de contrôle Image

  • Article

L’exemple suivant définit les dimensions d’une image sur la taille d’une zone cliente TabStrip lorsque l’utilisateur clique sur un CommandButton.

Cet exemple de code utilise les propriétés suivantes : Height et Width, Left et Top, et ClientHeight, ClientLeft, ClientTop et ClientWidth.

Pour utiliser cet exemple, copiez le code de l’exemple dans la partie Déclarations d’un formulaire. Vérifiez que le formulaire contient :

  • Un contrôle CommandButton nommé CommandButton1.
  • Un contrôle Onglet nommé TabStrip1.
  • Un contrôle Image nommé Image1.
Private Sub UserForm_Initialize() 
 CommandButton1.Caption = "Size Image to Tab Area" 
 CommandButton1.WordWrap = True 
 CommandButton1.AutoSize = True 
End Sub

Private Sub CommandButton1_Click() 
 Image1.ZOrder(fmFront) 
'Place Image in front of TabStrip 
 
'ClientLeft and ClientTop are measured from the edge 
'of the TabStrip, not from the edges of the form 
'containing the TabStrip. 
 Image1.Left = TabStrip1.Left + TabStrip1.ClientLeft 
 Image1.Top = TabStrip1.Top + TabStrip1.ClientTop 
 Image1.Width = TabStrip1.ClientWidth 
 Image1.Height = TabStrip1.ClientHeight 
 
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.