Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bildschirauflösung auslesen

Bildschirauflösung auslesen
21.06.2006 00:13:45
Ossburn
Hallo liebe Leute.
Hab mal ein kleineres Problem.
Wollt gern die Bildschirmauflösung via VBA auslesen, die grad verwendet wird.
Leider weiß ich überhaupt nicht wie das geht, bzw. welche Befehle man braucht. Geht ja leider schlecht mit einem Makro aufzuzeichnen.
Wollt nämlich meine Anwendung dynamisch gestallten.
Wäre schön wenn mir einer/eine weiter helfen kann.
Ich bedanke mich schon mal im Vorraus.
Cu
der Ossburn

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bildschirauflösung auslesen
21.06.2006 00:44:51
Josef
Hallo Ossburn!
Das geht so.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function GetWindowRect Lib "user32" ( _
  ByVal hwnd As Long, _
  lpRect As RECT) _
  As Long

Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type

Private Sub GetScreenResolution()
Dim Dhwnd As Long
Dim R As RECT

'Den Desktop finden
Dhwnd = GetDesktopWindow

'Die Desktopausmaße auslesen
GetWindowRect Dhwnd, R

MsgBox "Bildschirmauflösung: " & R.Right & " x " & R.Bottom

End Sub


Gruß Sepp

Anzeige
AW: Bildschirauflösung auslesen
21.06.2006 08:38:15
Ossburn
Hallo Sepp!
Ich danke dir.
Funktioniert einwandfrei.
Gruß Ossburn

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige