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 :