共用方式為

Height、Width、Left、Top、ClientHeight、ClientWidth、ClientLeft、ClientTop 屬性、TabStrip、Image 控制項範例

  • 發行項

下列範例會在使用者按一下CommandButton時，將Image的維度設定為TabStrip用戶端區域的大小。

此程式碼範例使用下列屬性： Height 和 Width、 Left 和 Top，以及 ClientHeight、ClientLeft、ClientTop 和 ClientWidth。

若要使用本範例，請將此範例程式碼複製到表單的宣告部分中。 請確定表單包含：

  • 一個名為 CommandButton1 的 CommandButton 。
  • 一個名為 TabStrip1 的 TabStrip 。
  • 名為 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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。