/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Scalering af form.
Fra : BT


Dato : 06-02-03 21:32

Hej i gruppen..

Jeg sidder her med et "mindre" problem.

Jeg er ved at lave et program, hvor der skal være mulighed for, at gøre
formen større
eller mindre. Men ikke ved at trække i den med musen.
Dette er ikke noget problem, men jeg vil samtidigt gerne lave, så alle
mine objekter scalere ned samtidigt med, så hvis formen scaleres ned til
halv
størelse af det oprindelige, vil alle tekstbokse og lign blive halt så
store..

Findes der ikke en let måde hvor dette kan lade sig gøre, uden at jeg skal
sætte left og heigt på hver enkel object???

Mhv

Brian



 
 
Johnny E Jensen (07-02-2003)
Kommentar
Fra : Johnny E Jensen


Dato : 07-02-03 00:35

Hej

Put original størrelse af formen over i nogle variabler (så du kan udregne
den procentvise ændring)

Og kør denne:

Dim oControl as Object
For Each oControl in Form1.Controlls
oControl.Left = oControl.Left * (% resultat)
oControl.Top = oControl.Top * (% resultat)
oControl.Width = oControl.Width * (% resultat)
oControl.Height = oControl.Height * (% resultat)
Next
Du skal nok sætte et minimum på hvor lille formen må være - ellers er jeg
sikker på at du får fejl
på et eller andet tidspunkt.

/Johnny
"BT" <brian.toft.remove.this@get2net.dk> wrote in message
news:3e42c628$0$13237$edfadb0f@dread11.news.tele.dk...
> Hej i gruppen..
>
> Jeg sidder her med et "mindre" problem.
>
> Jeg er ved at lave et program, hvor der skal være mulighed for, at gøre
> formen større
> eller mindre. Men ikke ved at trække i den med musen.
> Dette er ikke noget problem, men jeg vil samtidigt gerne lave, så alle
> mine objekter scalere ned samtidigt med, så hvis formen scaleres ned til
> halv
> størelse af det oprindelige, vil alle tekstbokse og lign blive halt så
> store..
>
> Findes der ikke en let måde hvor dette kan lade sig gøre, uden at jeg skal
> sætte left og heigt på hver enkel object???
>
> Mhv
>
> Brian
>
>



Bjarke Walling Peter~ (07-02-2003)
Kommentar
Fra : Bjarke Walling Peter~


Dato : 07-02-03 01:39

Johnny E Jensen skrev:
> Put original størrelse af formen over i nogle variabler (så du kan udregne
> den procentvise ændring)
>
> Og kør denne:
[klip]

Kræver det ikke også f.eks. en ændring af font-størrelsen i tekstboksene ...
taget alle de forskellige objekter i betragtning kunne det godt være noget
der blev lidt besværligt at lave i længden - tror jeg.

Mvh. Bjarke



Johnny E Jensen (07-02-2003)
Kommentar
Fra : Johnny E Jensen


Dato : 07-02-03 13:44

Hej Bjarke

> Kræver det ikke også f.eks. en ændring af font-størrelsen i tekstboksene
....
> taget alle de forskellige objekter i betragtning kunne det godt være noget
> der blev lidt besværligt at lave i længden - tror jeg.
>
> Mvh. Bjarke

Jo naturligvis skal fontstørelse også opvirkes. (hvis det er det man gerne
vil)

oControl.Fontsize = oControl.Fontsize * (% resultat)
Hvis der er kontroller der ikke har Property Fontsize kan der begrænses med
If TypeOf oConrtol Is bla bla

/Johnny



BT (07-02-2003)
Kommentar
Fra : BT


Dato : 07-02-03 15:01


"Johnny E Jensen" <emde@emde.dk> skrev i en meddelelse
news:3e42f0ae$0$147$edfadb0f@dtext02.news.tele.dk...
> Hej
>
> Put original størrelse af formen over i nogle variabler (så du kan udregne
> den procentvise ændring)
>
> Og kør denne:
>
> Dim oControl as Object
> For Each oControl in Form1.Controlls
> oControl.Left = oControl.Left * (% resultat)
> oControl.Top = oControl.Top * (% resultat)
> oControl.Width = oControl.Width * (% resultat)
> oControl.Height = oControl.Height * (% resultat)
> Next
> Du skal nok sætte et minimum på hvor lille formen må være - ellers er jeg
> sikker på at du får fejl
> på et eller andet tidspunkt.

Hej Johnny..

Nu har jeg prøvet dit forslag og det ser ikke ud til at virke..

VB kommer med med en "Compiler error: Method or data member not found..

Er det mig der gør noget galt??

Brian



BT (07-02-2003)
Kommentar
Fra : BT


Dato : 07-02-03 15:19

>
> Hej Johnny..
>
> Nu har jeg prøvet dit forslag og det ser ikke ud til at virke..
>
> VB kommer med med en "Compiler error: Method or data member not found..
>
> Er det mig der gør noget galt??
>
> Brian
>
>
Fandt fejl..
Der var et L for meget i Form1.Controlls

Takker mange gang for løsningnen

Brian




Carsten Suurland (07-02-2003)
Kommentar
Fra : Carsten Suurland


Dato : 07-02-03 13:44

Hej Brian

VB2TheMax har en række gratis ActiveX kontroller...
http://www.vb2themax.com/mbgallery/Controls.asp

Se nederst på siden: Jeg tror det er det du leder efter

/Carsten Suurland



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste