メニューの高さを取得するには？ (ID:79839)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな風にして、フォームのクライアント領域を伸縮してみてはどうでしょう？ Private Sub Form_Resize() Const BASE_HEIGHT = 3480 'フォームのスケールモードはTwipsで、 'BASE_HEIGHTはそれぞれのフォームで値が変わりますが．．． If Me.WindowState <> vbMinimized Then Me.Height = Me.Height + BASE_HEIGHT - Me.ScaleHeight End If End Sub