Regular
Beiträge: 86
Ort: Saarland | ja genau, die Auflösung kannst Du z.B. so ermitteln:
Type glrTypeRect
intX1 As Long
intY1 As Long
intX2 As Long
intY2 As Long
End Type
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As glrTypeRect) As Long
Public Function GetScreenResolutionX() As String
' PURPOSE: To determine the current screen size or resolution.
' RETURN: X-Screen Resolution
Dim r As glrTypeRect
Dim hWnd As Long
hWnd = GetDesktopWindow()
GetWindowRect hWnd, r
GetScreenResolutionX = (r.intX2 - r.intX1)
End Function
Wilo |
Fensterpositionen bei 2 Monitoren