Fensterpositionen bei 2 Monitoren
wilo
Gesendet: 16.10.12 12:26
Betreff: RE: Fensterpositionen bei 2 Monitoren


Regular

Beiträge: 76
252525
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
Top of the page Bottom of the page