Compartilhar via


Altura, Largura, Esquerda, Superior, ClientHeight, ClientWidth, ClientLeft, Propriedades ClientTop, TabStrip, Exemplo de controle de imagem

O exemplo a seguir define as dimensões de uma Imagem para o tamanho de uma área de cliente TabStrip quando o usuário clica em um CommandButton.

Este exemplo de código usa as seguintes propriedades: Altura e Largura, Esquerda e Superior e ClientHeight, ClientLeft, ClientTop e ClientWidth.

Para usar este exemplo, copie esta amostra de código para a parte Declarações de um formulário. Verifique se o formulário contém:

  • Um CommandButton denominado CommandButton1.
  • Uma TabStrip denominada TabStrip1.
  • Uma imagem chamada 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.