VB6 objektien pienentäminen

Mitä tarkoitat objektiryhmällä?

Olen tehnyt niin että kun formin koko muuttuu niin vastaavasti pienennetään kaikkia kontrolleja ja muutetaan niiden paikkaa.

Esimerkissä käsittelen vain leveyssuuntaa, joten korkeussuunta lisätään samalla tavalla:

Tämä tapahtuu seuraavasti:
dim KontrolliLeft(100),KontrolliWidth(100)
Form_load -moduliin:
ForminLeveys=Me.width
for i=0 to me.controls.count -1
KontrolliLeft(i)=me.controls(i).width
KontrolliWidth(i)=me.controls(i).width
next i



Form_resize -moduuliin:
Skaalaus=me.width/ForminLeveys
on error resume next'koska tulee virhe jos kontrollin kokoa ei saa muuttaa
for i=0 to me.controls.count-1
me.controls(i).left=KontrolliLeft(i)*Skaalaus
me.controls(i).width=KontrolliWidth(i)*Skaalaus
next i