Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Komischer Effekt
Autor: Kunoma
Datum: 18.08.05 14:05
Hallo und guten Tag, irgendwann hatte ich ein Code gefunden, wo ich die Bildschirmauflösung unter XP umstellen kann. Toll. Funktioniert auch, allerdings mit dem Ergebnis, dass nach der Umstellung der Bildschirminhalt auf dem Kopf steht???? Wär ja auch kein Problem, denn mit der Tastenkombination Strg+Alt+UP kann die Sache wieder richtig dargestellt werden. Habe mit SendKeys versucht das Problem in den Griff zu bekommen, allerdings ohne Erfolg. Ob sich mal jemand den Code anschauen und ev. erklären kann warum der BS-Inhalt um 180 Grad gedreht wird? Anbei der Code: Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" _ (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" _ (lpDevMode As Any, ByVal dwFlags As Long) As Long Private Const CCDEVICENAME = 32 Private Const CCFORMNAME = 32 Private Const DM_PELSWIDTH = &H80000 Private Const DM_PELSHEIGHT = &H100000 Private Const DM_DISPLAYFREQUENCY = &H400000 Private Type DEVMODE dmDeviceName As String * CCDEVICENAME dmSpecVersion As Integer dmDriverVersion As Integer dmSize As Integer dmDriverExtra As Integer dmFields As Long dmOrientation As Integer dmPaperSize As Integer dmPaperLength As Integer dmPaperWidth As Integer dmScale As Integer dmCopies As Integer dmDefaultSource As Integer dmPrintQuality As Integer dmColor As Integer dmDuplex As Integer dmYResolution As Integer dmTTOption As Integer dmCollate As Integer dmFormName As String * CCFORMNAME dmUnusedPadding As Integer dmBitsPerPel As Integer dmPelsWidth As Long dmPelsHeight As Long dmDisplayFlags As Long dmDisplayFrequency As Long End Type '_______________________________________________ Public Sub ChangeScreenResolution(Optional Width, Optional Height, Optional Freq) Dim i As Long, DevM As DEVMODE i = 0 Do i = i + 1 Loop Until Not EnumDisplaySettings(0&, i, DevM) With DevM If Not IsMissing(Width) Then .dmFields = .dmFields Or DM_PELSWIDTH .dmPelsWidth = Width End If If Not IsMissing(Height) Then .dmFields = .dmFields Or DM_PELSHEIGHT .dmPelsHeight = Height End If If Not IsMissing(Freq) Then .dmFields = .dmFields Or DM_DISPLAYFREQUENCY .dmDisplayFrequency = Freq End If End With ChangeDisplaySettings DevM, 0& End Sub '___________________________________________________ Private Sub cmdÄndernHoch_Click() ChangeScreenResolution 1024, 768, 60 End Sub '___________________________________________________ Private Sub cmdÄndernTief_Click() ChangeScreenResolution 800, 600, 60 End Sub '__________________________________________________ Private Sub cmdEnd_Click() End End Sub '_________________________________________________ Danke im Voraus Kunoma

Komischer Effekt	440	Kunoma	18.08.05 14:05
Re: Komischer Effekt	207	pastis55	18.08.05 20:48
Re: Komischer Effekt	202	Martin Walcher	18.08.05 22:20
Re: Komischer Effekt	193	pastis55	19.08.05 11:06

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen