Height、Width、Left、Top、ClientHeight、ClientWidth、ClientLeft、 ClientTop 属性和 TabStrip、图像控件示例

当用户单击命令按钮时，下例将图像尺寸设置为 TabStrip 客户区的尺寸。这个代码示例使用下列属性：Height、Left、Top、Width、ClientHeigh、ClientLeft、ClientTop 和 ClientWidth。

窗体包含：

• 名为 CommandButton1 的命令按钮。
• 名为 TabStrip1 的 TabStrip。
• 名为 Image1 的图像。

示例

Sub UserForm_Initialize()
    UserForm_CommandButton1.Caption = "Size Image to Tab Area"
    UserForm_CommandButton1.WordWrap = True
    UserForm_CommandButton1.AutoSize = True
    UserForm_Image1.BorderColor =vbRed 
	UserForm_Image1.BackColor = 4966415
End Sub
Sub UserForm_CommandButton1_Click()
    UserForm_Image1.ZOrder(fmFront)     
    '将图像放在 TabStrip 的前面

    '从 TabStrip 的边缘来
    '测量 ClientLeft 和 ClientTop，
    '而不是从包含 TabStrip 的窗体的边缘测量。
    UserForm_Image1.Left = UserForm_TabStrip1.Left + UserForm_TabStrip1.ClientLeft
    UserForm_Image1.Top = UserForm_TabStrip1.Top + UserForm_TabStrip1.ClientTop
    UserForm_Image1.Width = UserForm_TabStrip1.ClientWidth
    UserForm_Image1.Height = UserForm_TabStrip1.ClientHeight
	UserForm_Image1.BorderColor =vbRed 
	UserForm_Image1.BackColor = 4966415
End Sub