Når du designer en formular i Visual Basic, du beslutter dig på en ideel størrelse og bygge formen i overensstemmelse hermed. Medmindre du begrænse brugere fra resizing formularen , skal du redegøre for hvad der sker med den, hvis en bruger re- størrelser skærmen eller hvordan din formular vises for brugere med forskellige skærmopløsninger end din egen. Du kan skrive en sub, re- størrelser formularen og dens kontrolelementer og kalder sub når du har brug for . Instruktioner
1

Åbn dit projekt kode vinduet. Erklær en ny privat Sub og oprette to variabler til at holde X og Y værdier for re- size : Hej

Private Sub ResizeForm ( ByVal formular)

Dim XSize As Integer
< p > Dim YSize As Integer
2

Indtast følgende linjer , den første for at undgå et program nedbrud for kontrollen , der ikke kan re- sized , og den anden for at forhindre re- size opstår hvis formularen allerede minimeret eller maksimeret : Hej

On Error Resume Next
p Hvis Form.WindowState < > 0 Then Exit Sub
3

Indtast følgende linjer for at indstille den re- sized forms oprindelse ( i øverste venstre hjørne af formularen ) til det øverste venstre hjørne af skærmen , og for at udvide selve formularen : Hej

Me.Top = 0 < br >

Me.Left = 0

Me.Height = Me.Height * YSize

Me.Width = Me.Width * XSize
4

Enter følgende linjer til loop gennem kontrollerne til stede på formularen til re- size dem , og afslutte sub . Dette vil re- size de bredder og højder i flere kontroller , mens du stadig holder deres alignments intakt : Hej

For i = 0 Til Me.Controls.Count - 1

Me.Controls (I). venstre = Me.Controls (I). venstre * XSize

Me.Controls (I). Top = Me.Controls (I). top * YSize

Me.Controls (I). højde = Me.Controls (I). højde * YSize

Me.Controls (I). Bredde = Me.Controls (I). Bredde * XSize

Næste jeg
< p > End Sub