トップ > 逆引きで学ぶ ユーザーフォーム&コントロール > 1-17　背景画像の位置を設定する

PictureAlignmentプロパティは、フォームの背景画像の位置を取得・設定します。
※　画像のサイズモード設定がストレッチだと表示に変化は見られません

プロパティウィンドウでの設定

PictureAlignmentプロパティには5つの設定があります。
　・0-fmPictureAlignmentTopLeft：フォームの左上隅に合わせる
　・1-fmPictureAlignmentTopRight：フォームの右上隅に合わせる
　・2-fmPictureAlignmentCenter：フォームの中央に合わせる
　・3-fmPictureAlignmentBottomLeft：フォームの左下隅に合わせる
　・4-fmPictureAlignmentBottomRight：フォームの右下隅に合わせる


【例】左から「0,1,2,3,4」の順番

サンプルコード

PictureAlignmentプロパティは、背景画像の有り無しに関わらず設定できます。
次のプログラムは、フォームをクリックすると、画像の位置設定が0～4のサイクルで変わります。

Private Sub UserForm_Click() 'クリックすると画像の位置が変更　0→1→2→3→4→0・・・
    Dim n As Long
    n = Me.PictureAlignment
    If n = 4 Then n = 0 Else n = n + 1
    Me.PictureAlignment = n
End Sub