När du designar ett formulär i Visual Basic , bestämmer du på en idealisk storlek och bygga formen därefter. Såvida du begränsa användare från storleksändring din blankett , bör du ta hänsyn till vad som händer med det om en användare re- storlekar skärmen eller hur ditt formulär visas för användare med olika skärmupplösningar än din egen . Du kan skriva en sub som re- storlekar formuläret och dess kontroller och ring sub när du behöver . Instruktioner
1
Öppna din projektets kod fönster . Deklarera en ny privat Sub och skapa två variabler för att hålla X-och Y -värden för re- size :
Private Sub ResizeForm ( ByVal Form ) katalog
Dim XSize As Integer
Dim YSize As Integer
2
Ange följande rader , den första för att undvika ett program krasch för de kontroller som inte kan ändra storlek och den andra för att förhindra re - storlek uppstår om blanketten är redan minimeras eller maximeras :
On Error Resume Next
p Om Form.WindowState < > 0 Then Exit Sub
3
Ange följande linjer för att ställa in den re - sized formen ursprung ( övre vänstra hörnet av formuläret ) till det övre vänstra hörnet av skärmen , och att förstora själva formuläret :
Me.Top = 0
Me.Left = 0
Me.Height = Me.Height * YSize
Me.Width = Me.Width * XSize
4
Enter följande rader till slinga genom kontrollerna som finns i formuläret för att ändra deras storlek , och avslutar sub . Detta kommer att ändra storlek bredder och höjder på flera kontroller samtidigt hålla sina inriktningar intakt :
För i = 0 Att Me.Controls.Count - 1
Me.Controls ( i) . Vänster = Me.Controls (I). Vänster * XSize
Me.Controls (I). Top = Me.Controls (I). Top * YSize
Me.Controls (I). Höjd = Me.Controls (I). Höjd * YSize
Me.Controls (I). Bredd = Me.Controls (I). Bredd * XSize
Nästa jag
End Sub
