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
340
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
Sanna Marin kysyi hämmästyneenä: Onko Suomessa jäänmurtajia?
Nettilehden toimittaja kysyi Sanna Marinilta suoraan, että sovittiinko nuo jäänmurtajien kaupat jo 2019, jolloin Marin k1274474- 1553759
SDP haluaa 40 000 nettomaahanmuuttajaa
SDP:n Suunnanmuutos-vaihtoehtobudjetissa, käy ilmi, että demarit itse asiassa vaativat räjähdysmäistä ”työperäisen” maah1033506Mikä tuota vasemmistolaisista jankkaavaa vaivaa?
Pahasti on ihon alle, siis korvien väliin, päässeet kummittelemaan. Ei ole terveen ihmisen merkki jankata yhdestä asia412859- 1361806
Nyt meni lopulliset lämmöt.
Alan käyttäytymään yhtä kylmästi miehiä kohtaan kuin mua kohtaan on käyttäydytty ja vain käytetty viimeiset pari vuotta381602Orpo loukkaantui fasismiin viittaavasta sanavalinnasta
Mutta miksi loukkaantui? Orpohan on tehnyt yhteistyötä fasistien kanssa jo vuonna 2019, siis jo neljä vuotta ennen loukk251258Sulla on avaimet ja keinot
Jos haluat jatkaa tutustumista. Itse olen niin jäässä etten pysty tekemään enää mitään. Pidempi keppi johon on helpompi211231Meitä ei tule
Koska periaatteemme ovat rakkautta vahvempia. Tämä on siis koettelemus, jonka tarkoitus on vahvistaa meitä yksilöinä 😌231173Onko erityinen paikka jossa haluaisit nyt olla
Onko joku spesiaali lempipaikka missä mieluiten olisit?421165