次の方法で共有

Height、Width、Left、Top、ClientHeight、ClientWidth、ClientLeft、ClientTop プロパティ、TabStrip、Image コントロールの例

  • [アーティクル]

次の使用例は、ユーザーが CommandButton をクリックしたときに、Image のサイズを TabStrip クライアント領域のサイズに設定します。

このコード サンプルでは、 Height and Width、 Left と Top、 ClientHeight、ClientLeft、ClientTop、ClientWidth の各プロパティを使用します。

この例を使用するには、以下のサンプル コードをフォームの宣言部分にコピーします。 フォームに次が含まれていることを確認してください。

  • CommandButton1 という名前のコマンド ボタン。
  • TabStrip1 という名前のタブ ストリップ。
  • 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 のサポートおよびフィードバックを参照してください。