Use 32-bit API declaration : Windows API « Windows API « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Windows API
  3. Windows API

Use 32-bit API declaration

 
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1

Sub DisplayVideoInfo()
    vidWidth = GetSystemMetrics(SM_CXSCREEN)
    vidHeight = GetSystemMetrics(SM_CYSCREEN)
    
    Debug.Print vidWidth & " X " & vidHeight
End Sub








Related examples in the same category

1.Using a Function in a DLL
2.Declaring an External Function to the Compiler
3.Playing .Wav files via the Windows API
4.Waiting for an application to end