Quando si progetta un modulo in Visual Basic , si decide su una dimensione ideale e costruire la forma di conseguenza. A meno che non impedire agli utenti di ridimensionare il form , si dovrebbe rendere conto di ciò che accade ad esso se un utente ridimensiona lo schermo o di come il modulo viene visualizzato per gli utenti con diverse risoluzioni dello schermo della vostra. Si può scrivere un sub che ridimensiona il form ei relativi controlli e chiamare il sub ogni volta che è necessario . Istruzioni
1

Aprire la finestra codice del progetto . Dichiarare un nuovo Private Sub e creare due variabili per contenere i valori X e Y per la ri -size :

Private Sub ResizeForm ( Modulo ByVal ) per

Dim xsize Come
Integer < p > Dim YSize As Integer
2

Inserisci le seguenti righe , la prima per evitare un crash del programma per i controlli che non possono essere ridimensionati e la seconda per evitare la ri -size che si verifichi se la forma è già ridotta o estesa :

On Error Resume Next

Form.WindowState < > 0 Then Exit Sub
3

Inserisci il seguente linee per impostare l'origine del form ridimensionato ( in alto a sinistra del modulo ) per l'angolo superiore sinistro dello schermo , e per ingrandire la forma stessa :

Me.Top = 0 < br >

Me.Left = 0

Me.Height = Me.Height * YSize

Me.Width = Me.Width *
xsize
4

Inserisci le seguenti linee di un ciclo tra i controlli presenti sul form per loro ri- size , e alla fine il sub . Ciò ridimensionare le larghezze e altezze di diversi controlli , pur mantenendo intatti i loro allineamenti :

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

Me.Controls ( i) . sinistra = Me.Controls (I). rimanenti * xsize

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

Me.Controls (I). altezza = Me.Controls (I). altezza * YSize

Me.Controls (I). Larghezza = Me.Controls (I). Larghezza * xsize

Next i
< p > End Sub