[リストへもどる]
一括表示

投稿時間:2003/09/23(Tue) 10:23
投稿者名:ほとほと
URL :
タイトル:
フォームの高さは?
フォームの高さ(.Height)を取得して、コントロールの配置をしたいのですが
得られるサイズはタイトルバーまで含めたサイズのようです。
で、実質のサイズを知りたいのですが、どうしたらいいでしょうか?
また、メニューを表示した時、ツールバーを出した時は、どうでしょうか?
初歩的な質問と思いますが、宜しくお願いいたします。

投稿時間: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 が求める値と思います。
配置時にずれがあれば、それを補正して求めれば...。

同様な事を「メニューを表示した時」、「ツールバーを出した時」に付いて
行えば分かると思いますが如何でしょう?

投稿時間:2003/09/23(Tue) 13:26
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: フォームの高さは?
取得だけなら下記ではどうでしょう。

 Debug.Print Form1.ScaleHeight

投稿時間:2003/09/23(Tue) 22:37
投稿者名:ほとほと
URL :
タイトル:
Re^2: フォームの高さは?
> 取得だけなら下記ではどうでしょう。
>
>  Debug.Print Form1.ScaleHeight

有難う御座いました。
メニューのあり/なしで試したら
Form1.Height-Form1.ScaleHeight がそれぞれ 840/570 で、正味のHeightが取得できました。
(ツールバーも確認してみようと思います)
nobu さんも、有難う御座いました。