[vb6] Resolutie Windows achterhalen?

[Verwijderd]

Euj iedereen!

Ben weer eens bezig met een proggie, maar daarvoor moet ik de resolutie weten die gebruikt wordt. Nu kan ik wel simpel doen:

code:

private sub form_activate()
me.windowstate = vbmaximized
res_hoogte = me.height / 15
res_greedte = me.width /15
me.windowstate = vbnormal
end sub

Maar ik wil deze 'detectie' PERSÉ in de private sub form_load laten plaatsvinden. En als ik dan doe wat ik deed bij form_activate, dan werkt het niet meer

Iemand suggesties?

[Sponge]

uit m'n hoofd:

code:

Dim lngWidth as Long, lngHeight as Long

lngWidth = Screen.Width \ Screen.TwipsperpixelX
lngHeight = Screen.Height \ Screen.TwipsPerpixelY

[Verwijderd]

Zul je net zien dat ik al de hele dag aan 't zoeken ben, en een minuut na m'n post het antwoord vind... PFFF... naja, toch bedankt voor de reactie, dat wat je zei klopt inderdaad.

[Crazy D]

Je kan ook even in/op MSDN rondneuzen naar de SystemParametersInfo API, daarmee kun je een hoop opvragen, o.a. de SPI_GETWORKAREA wat de daadwerkelijke ruimte is die over is voor een app (dus zonder taakbalk en icq aan de zijkant geplakt, etc). Maar ja misschien begrijp ik je verkeerd en wil je gewoon de resolutie weten