Hvordan Utvidere jeg formen ved åtrykke en knapp?

[Gjest Medlem-42829]

Hei, hvordan kan jeg Utvide formen ved å trykke en knapp?

 

Lissom jeg lager en Form som er passelig stor. og da feks noen trykker "Informasjon" så utvides Vinduet 2 CM. hvor det står info'en

 

Noen som vet?

 

Takk for all hjelp på forhånd

[aadnk]

For å utvide vinduet kan du bruke denne koden:

 

Me.Move Me.Left, Me.Top, Me.Width + ScaleX(2, vbCentimeters, vbTwips), Me.Height + ScaleY(2, vbCentimeters, vbTwips)

 

Hvis du ikke ønsker å utvide formen i høyden, fjerner du ganske enkelt ScaleY delen av koden. Hvis du omvendt ikke ønsker å utvide formen i bredden, fjerner du ScaleX delen.

[Jonas]

Eller du kan skifte på .height og .width på formen:

Private sub command1_click()
me.width = me.width + 200
end sub

[Gjest Medlem-42829]

Takk TAkk

 

Edit: Ett spm til. Som du ser på forskjellige Setuper da du skal installere ting så ser det nesten ut som all text osv er i 1 form..

 

liksom ta du trykker Next kommer det ikke ny form bare anderledes text. hvordan er det mulig? isteden for alle de formene er det mulig?

Endret 20. juli 2004 av Medlem-42829

[aadnk]

Du endrer ganske enkelt på tekst egenskapen i tekstboksen. Dette kan du gjøre ved å f.eks bruke en variabel som husker hvilken "form" brukeren befinner seg på. Omtrent som dette:

 

Option Explicit

Dim lState As Long

Private Sub cmdNext_Click()

lState = lState + 1

Select Case lState
Case 1 ' Den første formen

   lblHeader.Caption = "Test"
   lblHeader.FontBold = True
   txtText.Text = "Velkommen til installasjonsprogrammet for Test. Bare følg instruksjonene du får fra dette programmet, og Test vil snart være installert. Trykk på Neste for å fortsette."


Case 2 ' Den andre formen

   lblHeader.Caption = "Lisensavtale"
   txtText.Text = "Forfatteren fraskriver seg enhvert ansvar for skade påført på noen måte av dette program. (ect.)"

Case 3

   ' Her kan du f.eks skjule den store tekstboksen, og gjøre valg av installasjonsmappe synlig.
   lblHeader.Caption = "Velg installasjonsmappe"
   txtText.Visible = False
   
   txtPath.Visible = True
   cmdBrowse.Visible = True

End Select

End Sub

Private Sub Form_Load()

' Vi må jo begynne med den første formen
cmdNext_Click

End Sub

[Gjest Medlem-42829]

takk takk, skal teste det nå

 

 

Edit: Funket ikke ;S men ska prøve mere..

 

Kommer feil melding med "Compile error:

Variable not defined"

Endret 20. juli 2004 av Medlem-42829

[Jonas]

Du må sette inn alle objektene (text bokser osv)

 

Cmd betyr en "CommandButton" (f eks cmdNext)

Lbl betyr en "Label"

Txt betyr en "TextBox"

[Gjest Medlem-42829]

Jeg la ut Command Button, textbox osv. men samme feil :S

[Jonas]

Jeg la ut Command Button, textbox osv. men samme feil :S

Du må også gi navn til tinga du legger ut:

- cmdNext

- lblHeader

- cmdBrowse

- txtText

- txtPath

[Gjest Medlem-42829]

hæhæ, fikk det til nå takk for hjelpen