Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Bildschirm-Einstellungen ermitteln und ändern
Autor: Tony
Datum: 24.03.04 15:32
soooo.... ich versteh das nicht so richtig ... da kommt immer so ne dumemr fehler quelltext: Public Sub ChangeSettings(ByVal hDC As Long, _ x As Integer, y As Integer, Colors As Integer) Dim lResult As Long Dim lIndex As Long Dim DevM As DEVMODE With DevM .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or _ DM_BITSPERPEL Or DM_DISPLAYFREQUENCY .dmPelsWidth = 800 .dmPelsHeight = 600 .dmBitsPerPel = 32 End With lResult = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY) Select Case lResult Case DISP_CHANGE_RESTART If MsgBox("Damit die eingestellte Auflösung " & _ "wirksam wird, ist es notwendig, daß Windows " & _ "neu gestartet wird.", 65) = vbOK Then das is der fehler------------------------>RebootSystem EWX_REBOOT <-------------------- End If Case DISP_CHANGE_FAILED MsgBox "Die Auflösung konnte nicht " & _ "geändert werden.", 64 Case DISP_CHANGE_BADMODE MsgBox "Der geforderte Grafikmodus wird " & _ "von Ihrem System nicht unterstützt.", 64 Case DISP_CHANGE_NOTUPDATED MsgBox "Die neuen Einstellungen konnten " & _ "nicht in der Registry gespeichert werden.", 64 End Select End Sub kann mir das einer einfach aufschreiben das der die auflösung beim öffnen gleich auf 800 * 600 und 32 bit stellt ?! danke schööö scho ma Büdde helft mfg Igel

Bildschirm-Einstellungen ermitteln und ändern	678	Tony	24.03.04 15:32
Re: Bildschirm-Einstellungen ermitteln und ändern	378	Dieter	24.03.04 19:10
Re: Bildschirm-Einstellungen ermitteln und ändern	405	Tony	25.03.04 12:39

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