Access Tips #139 タイトルバーに吸い込まれて閉じるフォーム

Access Tips

#139 タイトルバーに吸い込まれて閉じるフォームフォーム、VBA

通常、フォームなどのウィンドウを閉じると、パッと一瞬で画面から消えてしまいます。ここでは、タイトルバーに吸い込まれるようにして閉じるという、ちょっとトリッキーなフォームの閉じ方を紹介します。

実際には、フォームの「閉じる時」イベントを利用して、フォームの高さを徐々に小さくしていくだけのことです。高さの基点はタイトルバーになりますので、高さを小さくすることによってフォームがタイトルバーに吸い込まれていくように見えます。応用として、Widthプロパティを小さくしていけば、カーテンが閉じるように見えるかもしれません。

Private Sub Form_Close()

  Dim intDefHeight As Integer
  Dim iintLoop As Integer
  Const cintSpeed As Integer = 50

  'フォームの元の高さを取得します
  intDefHeight = Me.InsideHeight
  'フォームの高さを少しずつ小さくしていきます
  For iintLoop = intDefHeight To 0 Step (-1 * cintSpeed)
    Me.InsideHeight = iintLoop
    'Me.Repaint  '(状況によっては必要？)
  Next iintLoop

End Sub

(↑実際はもっと滑らかに閉じます)

定数 cintSpeed で、高さを小さくするスピードを調整します。あまり小さいと閉じるのに時間がかかり、大きいとスムースに閉じる感じになりません。実行するマシンの環境などに合わせて適当な値を設定してみてください。

| Index | Prev | Next |

T'sFactory
Accessで動く生産管理DB

Ureru Express
Webで使う販売顧客管理

Access開発＆アドバイス
DB開発やテクニカルアドバイス