> メニューの付いてるウィンドウで、実行時にウィンドウサイズを
> 変えると自動的にメニューが縮んだり2行になったりするけど、
> その状態でのメニューの高さって取れる？
> フォームのリサイズで使いたいんだけど・・・
ちょっと無理っぽいね。
そもそも、メニューの高さってどういうときに必要？
普通は Me.ScaleHeight とかでクライアント領域が
わかればいいのでは？
あとは、
Dim h As Long
h = Me.ScaleY(Me.Height, vbTwips, vbPixels) _
- Me.ScaleY(Me.ScaleHeight, vbTwips, vbPixels) _
- GetSystemMetrics(SM_CYCAPTION) _
- GetSystemMetrics(SM_CYFRAME) * 2
Debug.Print h
こうやって引き算するくらいかな。
注）SM_CYFRAMEのあたりは間違ってるかも。
|