Skjermstørrelsen

Ved hjelp av makroen nedenfor kan du finne ut hvor stor skjermen til brukeren er ved hjelp av funksjonen GetSystemMetrics32.

Declare Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub VisMonitorInfo()
Dim w As Long, h As Long
    w = GetSystemMetrics32(0) ' skjermbredden i punkt
    h = GetSystemMetrics32(1) ' skjermhøyden i punkt
    MsgBox Format(w, "#,##0") & " x " & Format(h, "#,##0"), _
        vbInformation, "Skjermstørrelse (bredde x høyde)"
End Sub

Dokumentet er sist oppdatert 1999-07-23 12:31:02 Utskriftsvennlig versjon