Når du utformer et skjema i Visual Basic, bestemmer du på en ideell størrelse og bygge skjemaet tilsvarende. Med mindre du begrense brukernes resizing skjemaet, bør du ta hensyn til hva som skjer med det hvis en bruker re- størrelser skjermen eller hvordan skjemaet vises for brukere med ulike skjermoppløsninger enn din egen . Du kan skrive en sub som re- størrelser form og dets kontroller og ringe sub når du trenger det . Instruksjoner
en

Åpne prosjektet kode vinduet. Erklære en ny Private Sub og lage to variabler å holde X og Y verdier for re -size : en

Private Sub ResizeForm ( ByVal skjema)

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

Legg inn følgende linjer, den første for å unngå et program krasjer for kontrollene som ikke kan re- størrelse og den andre for å forhindre re -size oppstår om skjemaet allerede er minimert eller maksimert : en

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

Skriv inn følgende linjer for å sette den re- sized skjemaets opprinnelse ( øverste venstre hjørne av skjemaet) til øverste venstre hjørne av skjermen , og for å forstørre selve skjemaet : en

Me.Top = 0

Me.Left = 0

Me.Height = Me.Height * YSize

Me.Width = Me.Width * XSize
4

Enter følgende linjer til sløyfe gjennom kontrollene til stede på skjemaet for å re- size dem , og avslutte sub . Dette vil re - size bredder og høyder på flere kontroller samtidig holde sine justeringer intakt : en

For i = 0 For å Me.Controls.Count - en

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

Me.Controls ( i) . Topp = Me.Controls ( i) . Top * YSize

Me.Controls ( i) . høyde = Me.Controls ( i) . høyde * YSize

Me.Controls ( i) . width = Me.Controls ( i) . Bredde * XSize

Neste i
< p > End Sub