Freigeben über

Height, Width, Left, Top, ClientHeight, ClientWidth, ClientLeft, ClientTop properties, TabStrip, Image control (Beispiel)

  • Artikel

Im folgenden Beispiel werden die Abmessungen eines Bilds auf die Größe eines TabStrip-Clientbereichs festgelegt, wenn der Benutzer auf ein CommandButton-Element klickt.

In diesem Codebeispiel werden die folgenden Eigenschaften verwendet: Height und Width, Left und Top sowie ClientHeight, ClientLeft, ClientTop und ClientWidth.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Stellen Sie sicher, dass das Formular folgende Komponenten enthält:

  • Ein CommandButton-Steuerelement mit der Bezeichnung "CommandButton1".
  • Ein TabStrip-Steuerelement mit der Bezeichnung "TabStrip1".
  • Ein Image-Steuerelement mit der Bezeichnung "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

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.