Compartir a través de

Ejemplo de control Height, Width, Left, Top, ClientHeight, ClientWidth, ClientLeft, ClientTop, TabStrip, Image

  • Artículo

En el ejemplo siguiente se establecen las dimensiones de una imagen en el tamaño de un área de cliente TabStrip cuando el usuario hace clic en un control CommandButton.

En este ejemplo de código se usan las siguientes propiedades: Height y Width, Left y Top, y ClientHeight, ClientLeft, ClientTop y ClientWidth.

Para usar este ejemplo, copie este código de muestra en la parte Declaraciones de un formulario. Asegúrese de que el formulario contiene:

  • Un botón de comando con el nombre BotónComando1.
  • Una barra de tabulaciones con el nombre BarraTabulaciones1.
  • Una imagen con el nombre Imagen1.
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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.