PictureAlignment 属性示例

下例用 PictureAlignment 属性来设置一幅背景图片。该示例还标识 PictureAlignment 所提供的对齐选项。

窗体包含：

• 名为 Frame1 的框架。
• 名为 SpinButton1 的数值调节钮。
• 名为 TextBox1 的文本框。

Dim Alignments(5)

Sub UserForm_Initialize()
    Alignments(0) = "0 - Top Left"
    Alignments(1) = "1 - Top Right"
    Alignments(2) = "2 - Center"
    Alignments(3) = "3 - Bottom Left"
    Alignments(4) = "4 - Bottom Right"
        
    '指定存在于系统上的位图
    UserForm_Frame1.Picture = LoadPicture(".\AddinSkin\Icons\winstock.ICO")
    
    UserForm_SpinButton1.Min = 0
    UserForm_SpinButton1.Max = 4
    UserForm_SpinButton1.Value = 0
    
    UserForm_TextBox1.Text = Alignments(0)
    UserForm_Frame1.PictureAlignment = UserForm_SpinButton1.Value
End Sub

Sub UserForm_SpinButton1_Change()
    UserForm_TextBox1.Text = Alignments( UserForm_SpinButton1.Value)
    UserForm_Frame1.PictureAlignment =  UserForm_SpinButton1.Value
End Sub

Sub UserForm_TextBox1_Change()
    Select Case UserForm_TextBox1.Text
    Case "0"
        UserForm_TextBox1.Text = Alignments(0)
        UserForm_Frame1.PictureAlignment = 0
    Case "1"
        UserForm_TextBox1.Text = Alignments(1)
        UserForm_Frame1.PictureAlignment = 1
    Case "2"
        UserForm_TextBox1.Text = Alignments(2)
        UserForm_Frame1.PictureAlignment = 2
    Case "3"
        UserForm_TextBox1.Text = Alignments(3)
        UserForm_Frame1.PictureAlignment = 3
    Case "4"
        UserForm_TextBox1.Text = Alignments(4)
        UserForm_Frame1.PictureAlignment = 4
    Case Else
        UserForm_TextBox1.Text = Alignments( UserForm_SpinButton1.Value)
        UserForm_Frame1.PictureAlignment = UserForm_SpinButton1.Value
    End Select
End Sub