1 Ανοίξτε το παράθυρο κώδικα του έργου σας . Αναγνωρίσει ένα νέο Private Sub και να δημιουργήσει δύο μεταβλητές για να κρατήσει το Χ και Υ τιμές για την αλλαγή μεγέθους :
Private Sub ResizeForm (Έντυπο ByVal )
Dim xsize As Integer
Dim YSize As Integer 2
Πληκτρολογήστε τις ακόλουθες γραμμές , η πρώτη για να αποφευχθεί η συντριβή πρόγραμμα για τους ελέγχους που δεν μπορεί να είναι εκ νέου μεγέθους και η δεύτερη για την πρόληψη της εκ νέου μεγέθους από την εμφάνιση , αν η μορφή έχει ήδη ελαχιστοποιηθεί ή μεγιστοποιηθεί :
On Error Resume Next
Αν Form.WindowState <> 0 τότε Exit Sub
εικόνων 3
Εισάγετε τον παρακάτω γραμμές για να ρυθμίσετε την προέλευση του νέου μεγέθους της φόρμας ( η επάνω αριστερή γωνία του εντύπου ) στην πάνω αριστερή γωνία της οθόνης , και να διευρύνει την ίδια τη μορφή :
Me.Top = 0
Me.Left = 0
Me.Height = Me.Height * YSize
Me.Width = Me.Width * xsize
Η 4
Enter το παρακάτω γραμμές στο βρόχο μέσω των παρόντων στη φόρμα για να αλλάξετε το μέγεθος τους ελέγχους , και τέλος το sub . Αυτό θα επαναφέρει το μέγεθος τα πλάτη και τα ύψη των διαφόρων ελέγχων , διατηρώντας ακόμα ευθυγραμμίσεις τους ανέπαφη :
Για i = 0 Για να Me.Controls.Count - 1
Me.Controls ( i ) . αριστερά = Me.Controls ( i ) . αριστερά * xsize
Me.Controls ( i ) . Top = Me.Controls ( i ) . Top * YSize
Me.Controls ( i ) . ύψος = Me.Controls ( i ) . ύψος * YSize
Me.Controls ( i ) . Πλάτος = Me.Controls ( i ) . Πλάτος * xsize
Next i
End Sub
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα