Onko joku keksinyt miten VB6:ssa voisi pienentää objektiryhmää, niin että niiden välinen etäisyys muuttuu samassa suhteessa?
VB6 objektien pienentäminen
Sepe
2
302
Vastaukset
- Petri_Petri
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- Sepe
Kiitos esimerkistä. Alunperin oli ajatuksena muuttaa kokoa suunnittelutilassa, mutta tämä taitaakin olla parempi konsti.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Saako kantaa asetta
Voiko olla koskaan kotelossa lonkalla ase.. Siis ei mikään luvaton ase. Johon on luvat. Esim luottamustoimessa, tai kaup676060Mies mitä ajattelet naisista?
Kerro mitä ajatuksia nousee. Mitä naiset sinulle merkitsee? Sana on vapaa.1344294Järkyttävä tieto Purrasta
Purra tapasi nykyisen miehensä täällä. Suomi24:ssä! Tulipa likainen olo. Nyt loppuu tämä roikkuminen tällä palstalla.1062037- 631485
- 541205
- 2611147
Mikseivät toimittajat vaadi Orpoa vastuuseen lupauksistaan
Missä ne 100.000 uutta työpaikkaa muka ovat? Eivät yhtään missään. Näin sitä Suomessa voi puhua ja luvata mitä sattuu. E1281027Ajattele, miten häviävän pieni
todennäköisyys on sille, että kaksi tiettyä ihmistä yli viidestä miljoonasta sattuvat tulemaan samalle palstalle ikävöim49856Aavistan tai oikeastaan
tiedän, että olet hulluna minuun. Mutta ilman kommunikointia, tällaisenaan tilanne ja kaikki draama ovat mun näkökulmast31783Pieni vinkki miehelle
Jos haluat, että tapahtuu jotain edistystä, niin kannattaa suoda ajatus sille, että miltä toimintasi näyttää mulle päin.39765