PDA

Vollständige Version anzeigen : Auflösung ermitteln und in einem Formular anzeigen ???


AWSW
02.05.2001, 16:46
Hallo zusammen,
ich möchte gerne die Auflösung bestimmen und in einem Formular ausgeben. Dazu habe ich gerade etwas in der DonKarl.com FAQ gefunden, komme damit aber nicht so ganz klar... Wie füge ich das dann in ein Formular ein, so das ich zum Beispiel dann eine Meldung in 2 Textfeldern anzeigen kann: Ihr PC hat derzeit die Auflösung "X" x "Y" ???

Hier das gefundene aus der FAQ:

4.20 BILDSCHIRMAUFLÖSUNG ERMITTELN


P r o b l e m
Du möchtest die aktuelle Auflösung des Bildschirmes ermitteln.

L ö s u n g
In ein allgemeines Modul im Deklarationsbereich:
'-------------------
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
'-------------------

und dann Aufruf z.B. über eine Funktion wie:
'-------------------
Public Function aufloesung()
Debug.Print GetSystemMetrics(SM_CXSCREEN) ' Breite in Pixeln
Debug.Print GetSystemMetrics(SM_CYSCREEN) ' Höhe in Pixeln
End Function
'-------------------

Alexander Jan Peters
02.05.2001, 17:04
<font color="#000000" size="2" face="Tahoma">Hallo,

Du kannst die Funktion doch einfach im Steuerelementinhalt direkt aufrufen:

Textfeld (ungebunden) für X-Achse:
=GetSystemMetrics(0)

Textfeld (ungebunden) für Y-Achse:
=GetSystemMetrics(1)

Gruß

A.J. Peters

Empfehlenswerte Links:
<a href="http://www.donkarl.com">Access FAQ von Karl Donaubauer</a>
<a href="http://www.access-paradies.de/Links.htm">Access-Paradies Links</a></font>

AWSW
02.05.2001, 18:44
Vielen Dank Alexander,
manchmal ist es einfacher als man denkt :D
Ich glaub ich mach jetzt besser Feierabend...

Danke Dir