Comment redimensionner une forme de base visuel pour adapter à l'écran

Instructions

1. Ouvrez la fenêtre de code de votre projet. Déclarer une nouvelle Private Sub et de créer deux variables pour contenir les valeurs X et Y pour la re-size:

   Private Sub ResizeForm (formulaire ByVal)

   Dim XSize As Integer

   Dim YSize As Integer

2. Entrez les lignes suivantes, la première pour éviter un crash du programme pour les contrôles qui ne peuvent être redimensionnées et la seconde pour empêcher la re-taille de se produire si le formulaire est déjà réduite ou agrandie:

   On Error Resume Next

   
   
   
   
   

   Si Form.WindowState <> 0 Then Exit Sub

3. Entrez les lignes suivantes pour définir l'origine de la ré-forme de taille (le coin supérieur gauche de la forme) pour le coin supérieur gauche de l'écran, et d'élargir la forme elle-même:

   Me.Top = 0

   Me.Left = 0

   Me.Height = Me.Height * YSize

   Me.Width = Me.Width * XSize

4. Entrez les lignes suivantes à boucle à travers les contrôles actuels sur le formulaire pour les redimensionner, et mettre fin à la sous. Cela va redimensionner les largeurs et hauteurs de plusieurs contrôles tout en gardant leurs alignements intacte:

   
   
   

   Pour i = 0 To 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

   I Suivant

   End Sub