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 のサポートおよびフィードバックを参照してください。