code331a.txt

VB大全（精华版）源代码

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