Resize funktion...

Hvilket vindue ?
Du kan resize ethvert vindue der har \"BorderStyle\" sat til enten \"Resizable\" eller \"Resizable toolwindow\"..

Hej,

Jeg har lavet et projekt. Main-vinduet (selve programmet) skal kunne resizes... I \"Borderstyle\" kan jeg kun vælge mellem \"None\", \"Fixed Single\", \"Sizable\", \"Fixed Dialog\", \"Fixed ToolWindow\" og \"Sizable ToolWindow\". Hvordan får jeg dem du nævner frem...?

ja okay .. så er det Sizable og Sizable toolwindow .. (jeg huskede lige forkert ...)
men du kan da godt resize vinduet når det er sat til en af de to !?

ja, det virker.. men den resizer kun det grå... den \"hiver\" ikke i felterne osv.

du kan evt. kontakte mig over ICQ (69589676)

Nåå .. du vil have resizet kontrollerne.

Det gør du i event\'en:

Private Sub Form_Resize()

End Sub

Hvis du f.eks. har et tekst felt kan du skrive:

Private Sub Form_Resize()
  Text1.Width = Me.ScaleWidth
  Text1.Height = Me.ScaleHeight
End Sub

hvis jeg sender dig main-filen... er du så flink at indsætte det for mig (er ikke \"så\" god til VB)? så gir jeg dig gerne 100 point...

Det kommer an på hvor mange kontroller der skal resizes og om de skal resizes på kryds og tværs (svært at forklare..) prøv at sende mig den form der skal resizes kontroller på..  e@tdaugaard.dk

mailen er sendt...

Der er jo en masse kontroller på ... hvordan ville du have de skulle resizes ?

Det ved jeg ikke rigtig... Jeg har bare fået at vide at man skulle skrive en lidt indviklet kode... og så virkede det... Ham der kan finde ud af det (en fra theportal), er på ferie... Men hvis ikke du kan er der ikke noget at gøre ved det...

jeg kan som godt (jeg har \"resizet\" meget \"i min tid\") men jeg synes bare det er en hel del der skal resizes ..

Det du ønsker er det at når du resizer formen så skal kontrollerne følge med uden at ændre størrelse?

Ja, det tror jeg... har du en kode til det?

Private Sub Form_Resize()
On Error Resume Next
\'Error linien skal forhindre at der kommer en fejl
\'når formen minimeres
       
       
        knapbredde = 750
        knaphøjde = 400
        KnaptilKant = 300
        KnapTop = 250
Command1.Move Me.ScaleWidth - knapbredde - KnaptilKant, KnapTop, knapbredde, knaphøjde
\'Denne linie flytter en kontrol uden at ændre dens størrelse

        textvenstre = 100
        texttop = 1000
Text1.Move textvenstre, texttop, Me.ScaleWidth - 100 - textvenstre, Me.ScaleHeight - 100 - texttop
\'Denne linie fastholder øverste-venstre hjørne og ændrer bredde og højde
\'Der er en kant på 100 twips venstre-højre-bund

End Sub

--------------------------------------
Placer en knap og en textbox på en form. Størrelse og placering er ligegyldig med de 2 linier. Hvis en kontrol (f.eks. en knap) ikke skal ændre størrelse kan du undvære de 2 sidste parametre. De vil så blive taget fra kontrollens Properties.

Rutinen her kan du kopierer ind i dit project.
God fornøjelse.

mvh
Johs. J.
---------------------------------------

Johs_j>>> Har du icq? hvis ja, så må du meget gerne kontakte mig 69589676

Har du tid til at hjælpe mig med at indsætte koden og oprette de knapper og textboxer du snakker om? Hvis du giver mig din e-mail, så sender jeg dig lige projektet, og så ville jeg blive meget glad :-) hvis du gad indsætte koden for mig... Så skal du nok få 100 point... Vh Jacob

johs_j@hotmail.com

mailen er sendt...