[¤À¨É] get¿Ã¹õ¸ÑªR«×

Min

Option Explicit

Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Sub ¥Ø«e¿Ã¹õ¸ÑªR«×()
    Dim ScreenHeight, ScreenWidth
    ScreenHeight = GetSystemMetrics(SM_CYSCREEN)  '¨ú±o°ª«×ªº¹³¯À
    ScreenWidth = GetSystemMetrics(SM_CXSCREEN)   '¨ú±o¼e«×ªº¹³¯À
    MsgBox "¥Ø«e¿Ã¹õ¸ÑªR«×¡G" & ScreenWidth & "*" & ScreenHeight
End Sub

wqfzqgk

VS¤¤¬O¬Û当简单ªº¡GMsgBox(Screen.PrimaryScreen.Bounds.Height & Chr(10) & Screen.PrimaryScreen.Bounds.Width)

wqfzqgk

¥Ø«e¥ÎVSªº还¤£¬O«Ü¦h¡A§Ú¤]¬O刚±µàD¡A¤¬¬Û学习