Endre skjermoppløsning til det den var før

[Degeim]

Jeg fant denne:

Link

Når jeg søkte. Det eneste jeg vil ha, er slik at jeg ved et tastetrykk også kan endre den tilbake til det den var før jeg endret den.

[Psy]

Kall ChangeRes( oldX, oldY, ... istedenfor 800 og 600

[Degeim]

Jeg måtte dimme oldx og oldy, og gjorde det slik:

Dim oldx

Dim oldy

Da får jeg følgende feilmelding, og den merker "oldx" i koden som deklarerer den som den gamle skjermbredden.

Feilmelding:

Endret 14. april 2005 av Degeim

[Jonas]

Funkersjoner krever spesielle data-typer.

 

ChangeRes bruker Long, og da må du gi den Long.

 

Dim slik:

Dim oldx as long
Dim oldy as long

 

Edit: Det er ikke nødvendig å poste skjermbildet. Holder med å skrive feilmeldingen

Endret 14. april 2005 av Jonas

[Degeim]

Da trer denne i kraft:

Case Else

MsgBox "Mode not supported", vbOKOnly + vbSystemModal, "Error"

End Select

og jeg får beskjed om at Moden ikke er supporta.

[Jonas]

Kan "mode" bety oppløsningen?

Isåfall, hvilken oppløsning prøvde du?

 

652*489 vil sansynelighvis ikke gå heeelt bra

[Degeim]

 

Neida. Jeg stilte PC-en min inn på 800x600, for å teste. Så startet jeg programmet, som fint skiftet til 1024x768. Problemet er når jeg skal bruke oldx og oly til å skifte tilbake. Da får jeg opp denne feilmeldingen, som er en del av koden til aadnk. Mode er oppløsningen, ja.

 

EDIT:'

Glem det folkens, jeg fikk det til! Jeg var vel litt... nei, veldig trøtt i går kveld, for jeg gjorde en idiotisk feil:

Jeg brukte denne til å endre til 1024:

Dim nDC As Long

oldx = Screen.Width / Screen.TwipsPerPixelX
oldy = Screen.Height / Screen.TwipsPerPixelY
nDC = CreateDC("DISPLAY", vbNullString, vbNullString, ByVal 0&)
ChangeRes 1024, 768, GetDeviceCaps(nDC, BITSPIXEL)

og det er jo rett. Men når jeg skulle skifte tilbake, så brukte jeg denne:

Dim nDC As Long

oldx = Screen.Width / Screen.TwipsPerPixelX
oldy = Screen.Height / Screen.TwipsPerPixelY
nDC = CreateDC("DISPLAY", vbNullString, vbNullString, ByVal 0&)
ChangeRes oldx, oldy, GetDeviceCaps(nDC, BITSPIXEL)

og det går selvfølgelig ikke

 

( jeg måtte fjerne de to linjene som gjorde at oldx og oldy endret seg igjen)

Endret 15. april 2005 av Degeim