code331a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 16 行

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

Public Sub SystemMetrics(ByRef MaxWidth As Integer, ByRef MaxHeight As Integer)
  MaxWidth = GetSystemMetrics(SM_CXSCREEN)
  MaxHeight = GetSystemMetrics(SM_CYSCREEN)
End Sub

Public Sub Main()
  SystemMetrics gWidth, gHeight
  Debug.Print "Screen width: "; gWidth
  Debug.Print "Screen height: "; gHeight
End Sub