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
366
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
Eläkeläiset siirrettävä muuttotappioalueille
Joutoväki pois ruuhkauttamasta elättäjien arkea. Samalla putoaa jokaisen asumiskulut ja rahaa jää enemmän kuluttamiseen.4173107SDP pelastaa uppoavan Suomen
2027 kun SDP voittaa ylivoimaisesti vaalit alkaa Suomen uusi raju syöksy kohti täystyöllisyyttä ja turvallisempaa yhteis702398Kauppalehti - Törkeä skandaali paljastui: Espanja käytti EU-rahoja ihan muuhun kuin piti
Espanja on käyttänyt miljardeja euroja EU:n elpymisavustuksia eläkkeisiin ja sosiaalimenoihin – ja pyytää lisää. Espanj792036Jopa Espanjassa talous kasvaa, Purra vain irvistelee
Huomaa kuinka Purra on Suomen historian huonoin miniseteri, joka ei ole saanut aikaiseksi kuin tuhoa, Siis jopa vasemmis1241763- 1431657
- 721268
Raiskaukset loppumaan?
Onko kenelläkään tiedossaan tuloksellisia keinoja saada väkisinmakaaminen loppumaan tai edes vähenemään? Lainsäädännön2931096Tsemii Pete ja Linda! Tässä tärkeät kellonajat Euroviisut-viikon ohjelmista tv:ssä!
Euroviisut järjestetään Wienissä Itävallassa 12.-16. toukokuuta. Tsemii Pete ja Linda kisaan! Vetäkää Suomelle voitto Li141063Uuden upotuskasteen vaiettu ongelma
Alkuseurakunnan kaste oli useamman vuosisadan upotuskaste, joka toimitettiin joko ulkona luonnon vesistöissä tai kasteki1021049- 41919