VB-Homepage Tipp 010

Ermitteln der Monitorauflösung

Um ein Programm an die eingestellte Monitorauflösung (640x480 ; 800x600 ..) anzupassen, ist es notwendig, die aktuelle Einstellung beim Programmstart zu ermitteln.
Dazu gehört eigentlich nicht viel.
Im Beispiel wird die API-Funktion innerhalb der Form ausgeführt, dies ist natürlich auch in einem speziellen Modul möglich.

General/Declarations
#16Bit
Declare Function getsystemmetrics Lib "User" (ByVal nIndex As Integer) As Integer
#32Bit
Private Declare Function GetSystemMetrics Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Form/Load
horizontal = getsystemmetrics(0) 'Abfrage Anzahl horzontale Bildpunkte
vertikal = getsystemmetrics(1) 'Abfrage Anzahl vertikale Bildpunkte
Label1.Caption = "derzeitige Monitoraflösung : " + Str$(horizontal) + "*" + Str$(vertikal) 'Auswertung


Möglichkeit 2 / ohne API
TWidth% = screen.Width \ screen.TwipsPerPixelX
THeight% = screen.Height \ screen.TwipsPerPixelY
Label1.Caption = "Monitorauflösung:" + Str$(TWidth%) + " x" + Str$(THeight%)

Tipp-Download

Quelle :

Zurück zur Übersichtsseite