3

画面のサイズに応じて自動的にサイズを変更できるようにしたい2つのポップアップフォーム(親/子)があります。

これを実現するために画面のサイズを取得するにはどうすればよいですか。

4

2 に答える 2

11

PtrSafeAccess 2010 64 ビットの場合、前に を追加する必要がありますFunction。

Declare Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub ScreenRes()
Dim w As Long, h As Long
    w = GetSystemMetrics32(0) ' width in points
    h = GetSystemMetrics32(1) ' height in points

End Sub

詳細: http://support.microsoft.com/kb/210603

于 2012-08-07T10:08:25.627 に答える