標題: [分享] get螢幕解析度 [打印本頁]

---

作者: Min    時間: 2010-5-9 22:04     標題: get螢幕解析度

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

---

作者: wqfzqgk    時間: 2010-6-28 23:36

VS中是相当简单的：MsgBox(Screen.PrimaryScreen.Bounds.Height & Chr(10) & Screen.PrimaryScreen.Bounds.Width)

---

作者: wqfzqgk    時間: 2010-6-29 19:48

目前用VS的还不是很多，我也是刚接触，互相学习

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)