Onko joku keksinyt miten VB6:ssa voisi pienentää objektiryhmää, niin että niiden välinen etäisyys muuttuu samassa suhteessa?
VB6 objektien pienentäminen
Sepe
2378
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 2
Vanhimmat
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
Kiitos esimerkistä. Alunperin oli ajatuksena muuttaa kokoa suunnittelutilassa, mutta tämä taitaakin olla parempi konsti.