投稿日 | : 2003/09/23(Tue) 12:13 |
投稿者 | : nobu |
Eメール | : |
URL | : |
タイトル | : Re: フォームの高さは? |
> フォームの高さ(.Height)を取得して、コントロールの配置をしたいのですが
> 得られるサイズはタイトルバーまで含めたサイズのようです。
> で、実質のサイズを知りたいのですが、どうしたらいいでしょうか?
> また、メニューを表示した時、ツールバーを出した時は、どうでしょうか?
Form1 に例えば Command1 を配置して
タイトルバーの下端から Form1 の 下端までの高さに Command1 を変形して
Private Sub Form_Load()
Debug.Print Me.Height
Debug.Print Command1.Top
Debug.Print Command1.Height
End Sub
上記を実行すれば Command1.Height が求める値と思います。
配置時にずれがあれば、それを補正して求めれば...。
同様な事を「メニューを表示した時」、「ツールバーを出した時」に付いて
行えば分かると思いますが如何でしょう?