- 帖子
- 172
- 主題
- 39
- 精華
- 20
- 積分
- 177
- 點名
- 0
- 作業系統
- Microsoft Windows XP
- 軟體版本
- Microsoft Office 2003
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 高雄
- 註冊時間
- 2010-5-1
- 最後登錄
- 2023-3-19
 
|
Option Explicit
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Sub 目前螢幕解析度()
Dim ScreenHeight, ScreenWidth
ScreenHeight = GetSystemMetrics(SM_CYSCREEN) '取得高度的像素
ScreenWidth = GetSystemMetrics(SM_CXSCREEN) '取得寬度的像素
MsgBox "目前螢幕解析度：" & ScreenWidth & "*" & ScreenHeight
End Sub |
|
發表於 2010-5-9 22:04
| 
發表於 2010-6-28 23:36
| 