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