|
Lorsque vous créez un formulaire dans Visual Basic, vous avez à décider d'une taille idéale et construire la forme en conséquence. Sauf si vous limitez les utilisateurs de redimensionner votre formulaire, vous devez tenir compte de ce qui lui arrive si un utilisateur redimensionne l' écran ou comment votre formulaire apparaît pour les utilisateurs avec différentes résolutions d'écran que le vôtre . Vous pouvez écrire un sous-marin qui redimensionne le formulaire et ses contrôles et appeler le sous quand vous le souhaitez . 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 le re -size:
Private Sub ResizeForm (formulaire ByVal )
XSize As Integer
YSIZE As Integer
2 Entrez les lignes suivantes , le premier pour éviter un plantage du programme pour les commandes qui ne peuvent être redimensionnées et la seconde pour empêcher la re- taille de se produire si la forme est déjà agrandi ou réduit :
On Error Resume Next
Si Form.WindowState < > 0 Then Exit Sub
3 Entrez les informations suivantes lignes pour définir l'origine de la forme redimensionné ( le coin supérieur gauche de l'écran ) dans le coin supérieur gauche de l'écran, et pour agrandir le formulaire lui-même :
Me.Top = 0 < br > Me.Left = 0
Me.Height = Me.Height * YSIZE
Me.Width = Me.Width * XSize
4 Entrez les lignes suivantes pour parcourir les contrôles présents sur le formulaire pour les redimensionner , et mettre fin au sous . Cela va redimensionner les largeurs et hauteurs de plusieurs contrôles , tout en conservant leur alignement intact :
For i = 0 To Me.Controls.Count - 1 x Me.Controls ( i) . gauche = Me.Controls (I). restant * xSIZE
Me.Controls (I). top = Me.Controls (I). Haut * YSIZE
Me.Controls (I). hauteur = Me.Controls (I). hauteur * YSIZE
Me.Controls (I). Largeur = Me.Controls (I). Largeur * XSize
Next i
End Sub
|
