title image


Smiley mit API geht´s so...
Private Declare Function GetDC Lib "user32.dll" (ByVal hwnd As Long) As LongPrivate Declare Function GetDesktopWindow Lib "user32.dll" () As LongPrivate Declare Function ReleaseDC Lib "user32.dll" (ByVal hwnd As Long, ByVal hdc As Long) As LongPrivate Declare Function GetDeviceCaps Lib "gdi32" _ (ByVal hdc As Long, _ ByVal nIndex As Long) As LongPrivate Type currRes X As Long Y As LongEnd TypePrivate Const HORZRES As Long = 8Private Const VERTRES As Long = 10Public Function Auflösung() As currResDim hdc As Long, hwnd As Long, retval As Longhwnd = GetDesktopWindow 'Desktop-Handle ermittelnhdc = GetDC(hwnd) 'Desktop-device-context ermittelnAuflösung.X = GetDeviceCaps(hdc, HORZRES) 'horizontale Auflösung ermitteln und zurückgebenAuflösung.Y = GetDeviceCaps(hdc, VERTRES) 'vertikale Auflösung ermitteln und zurückgebenretval = ReleaseDC(hwnd, hdc) ' device-context freigebenEnd FunctionUnd so kann man die Funktion dann aufrufen:Sub Test() MsgBox "aktuelle Auflösung: " & Auflösung.X & " x " & Auflösung.Y & " Pixel."End SubGrußAndre

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: