Wenn Sie ein Formular entwerfen, in Visual Basic , entscheiden Sie nach einer idealen Größe und Aufbau der Form entsprechend. Sofern Sie Benutzer aus Größenänderung Ihrer Form zu beschränken , sollten Sie für das, was passiert, es ausmachen , wenn ein Benutzer re - Größen auf den Bildschirm oder wie Ihre Form scheint für Benutzer mit unterschiedlichen Bildschirmauflösungen als der eigenen . Sie können schreiben , dass ein Sub re - Größen der Form und ihrer Kontrollen und rufen Sie das Untermenü , wenn Sie ihn brauchen. Anleitung
1

Öffnen Sie Ihr Projekt Code-Fenster . Deklarieren Sie eine neue Private Sub und erstellen Sie zwei Variablen, um die X -und Y- Werte für die Größe neu halten :

Private Sub ResizeForm (ByVal Form)

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

Geben Sie die folgenden Zeilen , die erste, der einen Absturz des Programms für die Kontrollen , die nicht sein kann, die Größe neu bestimmt und der zweite , um die Größe neu zu verhindern vermeiden, wenn die Form bereits minimiert oder maximiert :

On Error Resume Next

Wenn Form.WindowState < > 0 Then Exit Sub
3

Geben Sie den folgenden Linien , die die Größe neu Form die Herkunft ( die obere linke Ecke des Formulars ) an der oberen linken Ecke des Bildschirms setzen und das Formular selbst vergrößern :

Me.Top = 0

Me.Left = 0

Me.Height = Me.Height * YSize

Me.Width = Me.Width * XSize
4

Geben die folgenden Zeilen in einer Schleife durch die Steuerelemente auf dem Formular, um die Größe neu zu ihnen , und am Ende die Untergruppen . Dadurch wird die Größe neu die Breiten und Höhen von mehreren Kontrollen während er weiterhin ihre Ausrichtungen intakt :

For i = 0 To Me.Controls.Count - 1 of

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

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

Me.Controls (i). Höhe = Me.Controls (i). height * YSize

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

Next i
< p > End Sub