ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

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

µû¤À¤H¼Æ

    • Min: ¦³¦¹¬Ý±o¥Xwqfzqgk¥Sªº³y¸Ú~ «D±`·PÁ±zªº¤À ...ª÷¿ú + 1
学习

TOP

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

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD