Καλησπέρα Αλεξία!!!
Εχω την εντύπωση ότι αυτό που ζητάς γίνεται με το resize ή μπορείς να βάλεις τον κώδικα στο Private Sub Form_Load().
Πρέπει στην φόρμα να έχεις ορίσει στα αντικείμενα τιμές για το ύψος(Height) και το πλάτος(width) με Private Sub Form_Resize()
Με το Private Sub Form_Load()
DoCmd.Maximize
μπορείς να μεγαλώσεις την φόρμα αλλά τα αντικείμενα πρέπει να τους δώσεις τιμές ειδικά αυτά που θέλεις να είναι πρός το δεξί μέρος της οθόνης.
Ένα παράδειγμα κώδικα για να δείς πώς θα το κάνεις
Ας πούμε ότι έχω τα αντικείμενα μια Ετικέτα και ένα TreeView1
Me.Ετικέτα32.width = Me.TreeView1.width - 10
Εδώ τα αντικείμενα που χειρίζομαι είναι μια ετικέτα που το πλάτος της θέλω να είναι ίσο με την διαφορά του TreeView1 μείον την τιμή 10.Εδώ με το νούμερο θα πρέπει να παίξεις λίγο ώστε να έχεις το επιθυμητό αποτέλεσμα.
Περισσότερο σε ενδιαφέρουν με το resize να μεταφέρονται τα αντικείμενα.
Αλλά πιστεύω πρέπει να υπάρχει δείγμα για να προσπαθήσει κάποιο μέλος να σε βοηθήσει ακριβώς τι θέλεις.Διότι το σενάριο είναι απλά ένα σενάριο.
Με εκτίμηση
Αλέξανδρος
 |