Hvor skal denne kode lægges?

Du kan lægge den i en Module.
denne her: Call fChangeRes(1024, 768)
kan du lægge under en kommando knap eller når formen åbnes eller lukkes.

rosco
Lav et modul hvor du lægger al koden ind. Derefter lægger du Call fChangeRes(1024, 768) ind i din start formular og i hændelsen ved åbning. Når du forlader databasen lægger du Call fChangeRes(800, 600) ind i hændelsen ved lukning. Det virker her.
Vh Henrik

rosco
Det jeg skrev omhandler et skift mellem 1024 x 768 ved åbning og 800 x 600 ved lukning. Sidste del af hans kode fik jeg aldrig til at virke. Jeg brugte nu heller ikke meget tid på det da det var det andet jeg skulle bruge. Men laver du anden del så husk at lave dem i 2 særskiltemoduler. Du må gerne hvis du får det nederste modul til at virke give mig et e-mail om det på: oz1bua@wanadoo.dk
Vh Henrik

Jeg prøver det af, og vender tilbage når det virker( hvilket det forhåbentlig gør).

Den sender bare skærmens opløsning (resolution) og størrelse tilbage:

Private Sub Tekst1_Enter()
Tekst1.Value = fGetSysStuff("resolution")

End Sub

Private Sub Tekst3_Enter()
Tekst3.Value = fGetSysStuff("windowsize")
End Sub

mvh Hossein

Jeg er i tvivl om hvor linjen Call fChangeRes(1024, 768) skal placeres

Kun i tvivl fordi jeg ikke læser svarene rigtigt!!!!!!!!!!!!!

rasco
hændelsen ved åbning
Call fChangeRes(1024, 768)
Hvis du stadig har problemer så sen di database til mig, på oz1bua@wanadoo.dk
Vh Henrik

rasco
Du kan også lave en række med knapper så folk selv kan vælge.
Vh Henrik

Henrik13: Jeg har ligesom dig, fået første del til at virke, jeg kan heller ikke få den til at gå tilbage til brugerens opløsning.

Ved åbning har jeg skrevet dette:
Private Sub Form_Open(Cancel As Integer)
Call fGetSysStuff("resolution")
Call fGetSysStuff("windowsize")
Call fChangeRes(1024, 768)

men er i tvivl om hvad der skal skrives vedlukning:
Har prøvet dette, det virker ikke.
Call fGetSysStuff("resolution")
Call fGetSysStuff("windowsize")

rosco
Får du del 2 til at virke, ville jeg meget have et ex. tilsendt på:
oz1bua@wanadoo.dk
Jeg hopper nu jeg kan ikke hjælpe dig mere.
Vh Henrik

rosco
de 3 call, er ikke rigtig. der må kun være 1. Det er ikke:
Call fChangeRes(1024, 768)
Vh Henrik

rosco
windowsize har jeg fået oversat til windows forstørre vinduet.
D.v.s.
Ved åbning har jeg skrevet dette:
Private Sub Form_Open(Cancel As Integer)
Call fGetSysStuff("windowsize")

men er i tvivl om hvad der skal skrives vedlukning:
Har prøvet dette, det virker ikke.
Call fGetSysStuff("resolution")

Vh Henrik

rosco  Rettelse
windowsize har jeg fået oversat til windows forstørre vinduet.
D.v.s.
Ved åbning har jeg skrevet dette:
Private Sub Form_Open(Cancel As Integer)
Call fGetSysStuff("windowsize")

Rettelse
vedlukning:
Call fGetSysStuff("resolution")

Vh Henrik