Hvordan endre størrelsen på en Visual Basic Form å passe på skjermen

Når du utformer et skjema i Visual Basic, bestemmer deg på en ideell størrelse og bygge formen deretter. Med mindre du begrense brukere fra å endre størrelsen på skjemaet, bør du gjøre rede for hva som skjer med det hvis en bruker re-størrelser skjermen eller hvordan skjemaet ser ut for brukere med ulike skjermoppløsninger enn din egen. Du kan skrive en sub som re-størrelser form og sine kontroller og ringe sub når du trenger det.

Bruksanvisning

1 Åpne prosjektets kodevinduet. Erklære en ny Private Sub og opprette to variabler å holde X og Y-verdier for re-størrelse:

Private Sub ResizeForm (ByVal Form)

Dim XSize As Integer

Dim YSize As Integer

2 Skriv inn følgende linjer, den første for å unngå et programkrasj for kontrollene som ikke kan re-størrelse og andre for å hindre re-size oppstår hvis formen er allerede minimert eller maksimert:

På Error Resume Next

Hvis Form.WindowState <> 0 Then Exit Sub

3 Skriv inn følgende linjer for å stille re-sized skjema opprinnelse (øverst til venstre i skjemaet) til øverste venstre hjørne av skjermen, og for å forstørre selve skjemaet:

Me.Top = 0

Me.Left = 0

Me.Height = Me.Height * YSize

Me.Width = Me.Width * XSize

4 Skriv inn følgende linjer til sløyfe gjennom kontrollene til stede på skjemaet for å re-størrelse dem, og avslutte sub. Dette vil endre størrelsen bredder og høyder på flere kontroller samtidig holde sine justeringer intakt:

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

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

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

Me.Controls (i) .Height = Me.Controls (i) .Height * YSize

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

Neste jeg

End Sub