Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57450 / 76732

←次へ　｜　前へ→


	【24019】Re:画面の解像度、ＤＰＩ設定の取得

やま - 05/4/10(日) 0:15 -


	引用なし

	パスワード

Kein さんありがとうございました。

ちょうど入れ違いで、別サイトで下記コードをみつけて
とりあえず解像度は解決しました。

　Type RECT
　　　　 x1 As Long
　　　　 y1 As Long
　　　　 x2 As Long
　　　　 y2 As Long
　　　 End Type
　　　 Declare Function GetDesktopWindow Lib "User32" () As Long
　　　 Declare Function GetWindowRect Lib "User32" _
　　　　　　　 (ByVal hWnd As Long, rectangle As RECT) As Long

　　　Function GetScreenResolution() As String
　　　　 Dim R As RECT
　　　　 Dim hWnd As Long
　　　　 Dim RetVal As Long
　　　　 hWnd = GetDesktopWindow()
　　　　 RetVal = GetWindowRect(hWnd, R)
　　　　 GetScreenResolution = (R.x2 - R.x1) & "x" & (R.y2 - R.y1)
　　　 End Function

GetSystemMetrics Lib と　GetDesktopWindow Lib、GetWindowRect Lib と
いろいろとあるのですね～　ちゃっぴさんに教えて頂いた方法でいろいろ
と調べてみようと思います。　ありがとうございました。

0 hits

▼

【24003】画面の解像度、ＤＰＩ設定の取得 やま 05/4/9(土) 19:22