Tipp 5.6 - Bildschirmauflösung

Wie kann ich die Bildschirmauflösung ermitteln?

Mit dieser Funktion können Sie die Bildschirmauflösung ermitteln. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Public Property Get ScreenResolution() As String
  '// -----------------------------------------------------
  '// Methode:   | Bildschirmauflösung ermitteln
  '// -----------------------------------------------------
  '// Parameter: | -
  '// -----------------------------------------------------
  '// Rückgabe:  | Auflösung als Breite x Höhe in Pixel
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  ScreenResolution = _
      CStr(Screen.Width / Screen.TwipsPerPixelX & "x" & _
      Screen.Height / Screen.TwipsPerPixelY)
 
End Property


Zurück Tipp 5.5 - Anzahl Farben ermitteln | Inhalt | Tipp 5.7 - Computername Weiter