---

Hallo,

wie kann ich die Bildschirmauflösung abfragen ?
(wegen Plazierung eines Formulars)

Gruss
Michi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Michi,

das solltest du mit der API "gdi32" und "user32" hinbekommen. Schau dir mal den Code an:

Code:

---

Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

Const HORIZONT = 8
Const VERTIKAL = 10

Function ScreenResolution()
  Dim lRval As Long
  Dim lDc As Long
  Dim lHSize As Long
  Dim lVSize As Long
  lDc = GetDC(0&)
  lHSize = GetDeviceCaps(lDc, HORIZONT)
  lVSize = GetDeviceCaps(lDc, VERTIKAL)
  lRval = ReleaseDC(0, lDc)
  ScreenResolution = lHSize & "x" & lVSize
End Function

Sub GetScreenSize()
  MsgBox ScreenResolution()
End Sub

---

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP