Wanneer u een formulier in Visual Basic ontwerpen , u beslissen over een ideale grootte en dienovereenkomstig te bouwen het formulier . Tenzij je gebruikers van resizing uw formulier te beperken , moet je goed zijn voor wat er gebeurt met het als een gebruiker re - maten het scherm of hoe uw formulier weergegeven voor gebruikers met verschillende schermresoluties dan je eigen . U kunt een sub schrijven dat re - maten het formulier en de besturingselementen en bel de sub wanneer u maar wilt . Instructies
1 Open venster van uw project code . Verklaren een nieuwe Private Sub en maak twee variabelen om de X-en Y- waarden voor de re-size te houden : Private Sub ResizeForm ( ByVal Form ) Dim xsize
als Geheel
Dim ysize als Geheel kopen van 2 Voer de volgende regels , de eerste om een programma crash te vermijden voor de controles die niet kunnen re-sized en de tweede naar de re-size te voorkomen indien de vorm is al geminimaliseerd of gemaximaliseerd :
On Error Resume Next
Als Form.WindowState < > 0 Then Exit Sub
3 Voer de volgende lijnen naar de oorsprong van de re - sized formulier ( de linkerbovenhoek van het formulier ) instellen op de linkerbovenhoek van het scherm , en vergroten het formulier zelf :
Me.Top = 0 < br > Me.Left = 0 Me.Height
= Me.Height * ysize Me.Width
= Me.Width * xsize
4 Enter de volgende regels voor het doorlussen van de controles aanwezig op het formulier om re-size hen , en eindigen de sub . Dit zal opnieuw de grootte van de breedte en de hoogte van een aantal controles te houden en toch hun uitlijningen intact :
Voor i = 0 To Me.Controls.Count - 1 Me.Controls
( i ) . links = Me.Controls ( i ) . linker * xsize Me.Controls
( i ) . Top = Me.Controls ( i ) . Top * ysize Me.Controls
( i ) . height = Me.Controls ( i ) . hoogte * ysize Me.Controls
( i ) . Width = Me.Controls ( i ) . Breedte * xsize
Volgende i
End Sub
|
