Bildschirmauflösung ?
02.10.2002 18:02:08
andre
Hallo Peter,
habe kürzlich einen code zur Bildschirmauflösung gefunden, das könnte passen - nur das für das Diagramm ja etwas weniger Platz bereitsteht - Kopfzeilen, Statuszeilen, manchmal noch die Office-Shortcut-Leite Oben oder an der Seite, manchmal auch die Taskleiste ...
Ich glaube fast nicht, dass es dafür was gibt - aber möglich ist es schon. Bild auf und ab kriegt das ja auch mit.
hier der für die Auflösung code:Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hcd As Long) As Long
Public lHsize As Long, lVsize As Long
Const HORZRES = 8
Const VERTRES = 10
Function ScreenResolution()
' lHsize = Anzahl der horizontalen Bildschirmzeilen
' lVsize = Anzahl der vertikalen Bildschirmzeilen
Dim lRval As Long
Dim lDc As Long
lDc = GetDC(0&)
lHsize = GetDeviceCaps(lDc, HORZRES)
lVsize = GetDeviceCaps(lDc, VERTRES)
lRval = ReleaseDC(0, lDc)
End Function