Προσαρμοσμένα Μενού
Το Σάββατο 20 Σεπτεμβρίου, 2008 Αυτό είναι ένα είδος μενού που μας επιτρέπει να εξοικονομήσετε χρόνο, γραμμές κώδικα και μια καλύτερη ρύθμιση όσον αφορά ανοιχτές φόρμες, αφού με αυτό το μενού χρειάζεται μόνο μια ανοικτή μορφή. Εκτός από τη μείωση του αριθμού των ανοικτών μορφών μειώνει επίσης τον αριθμό των πλήκτρων σε ένα μενού για να ανοίξετε κάθε φόρμα.
Αυτός ο τύπος μενού, είναι βέβαιο ότι υπάρχει εδώ και αρκετό καιρό και ήδη χρησιμοποιείται από πολλούς χρήστες της Access.
Λοιπόν, πού είναι αυτό το μενού;
Ας δημιουργήσουμε το μενού χρησιμοποιώντας ένα σύνθετο πλαίσιο που περιέχει όλες τις μορφές που σχεδιάζουμε να ανοίξει μέσα από αυτό. Όταν επιλέγετε μια επιλογή από το σύνθετο πλαίσιο το έντυπο της αίτησης εμφανίζεται μέσα στη δευτερεύουσα φόρμα. Τότε αρχίζουμε να κάνουν το βήμα προς βήμα μενού.
1 - Ας δημιουργήσουμε έναν πίνακα στον οποίο θα αποθηκεύονται το όνομα που θέλετε να δώσετε σε κάθε μορφή και το όνομα της φόρμας που θα ανοίξει. Στο παράδειγμα που δημιουργήθηκε «tblmenu» του πίνακα με τους ακόλουθους τομείς:
Τύπος πεδίου
Nomedomenu κείμενο -> Όνομα που θα δούμε στο μενού (σύνθετο πλαίσιο)
με τη μορφή κειμένου - Όνομα> από τη μορφή που θα ανοίξει
Μετά είναι τα στοιχεία που εισάγονται στο παράδειγμα:
Φόρμα NomedoMenu
Λογαριασμοί Φόρμα1
Καταθέσεις Form2
Κινήσεις formulario3
Λογαριασμός-Box formulario4
Λογαριασμός-Λογαριασμός formulario5
Απόσπασμα formulario6
2 - Στη συνέχεια θα δημιουργήσετε ένα ερώτημα από τον προηγούμενο πίνακα:
Tblmenu επέλεξε τον πίνακα και στη συνέχεια επιλέξτε τα δύο πεδία στα οποία επιλέξαμε για την αύξουσα nomedomenu είδος να είναι πιο εύκολο να βρείτε στο μενού αρκετές φορές όταν θέλουμε να ανοίξουμε τις μορφές. Γι 'αυτό το ερώτημα θα ονομάζεται «CsMenu».
3 - Ας δημιουργήσουμε «μενού» του μορφή, δηλαδή να επιλέξουν νέα φόρμα σε προβολή σχεδίασης. Στη συνέχεια θα δημιουργήσουμε ένα σύνθετο πλαίσιο και να αλλάξετε τις παρακάτω ιδιότητες:
- Ο αριθμός των στηλών: 2
- Πλάτη στηλών: 1 εκατοστό, μηδέν εκατοστά?
- Προέλευση της γραμμής: csmenu (το οποίο είναι το όνομα του ερωτήματος δημιουργήσατε στην προηγούμενη παράγραφο)
4 - Με τον ίδιο τρόπο θα δημιουργήσουμε φόρμα ενός δεσμευμένου κύρια μορφή του (Στο παράδειγμα που κάλεσα menuquadro). Είναι αυτή η μορφή που θα ανοίξει κάθε μία από τις μορφές για να επιλέξετε από το μενού (σύνθετο πλαίσιο).
5 - Τώρα δημιουργούν μια ενότητα που θα μας επιτρέψει να ανοίξετε το μενού που είναι επιλεγμένο στο σύνθετο πλαίσιο στη φόρμα.
Έχουμε δημιουργήσει μια μονάδα (το οποίο ονομάζεται «abrirmenu») και η επικόλληση τον παρακάτω κώδικα:
Δημόσια AtivarMenu Λειτουργία (Combmenu Το σύνθετο πλαίσιο, subabrir Η δευτερεύουσα φόρμα)
Abrirform As String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
Τέλος Λειτουργία
Μετά θα τις ιδιότητες του σύνθετου πλαισίου στο μενού φόρμας και του Μετά την περίπτωση η ενημέρωση που έχουν δημιουργηθεί: ativarmenu = ([Μενού], [menuquadro]) ότι «μενού» είναι το όνομα του σύνθετου πλαισίου και «menuquadro» του όνομα της δευτερεύουσας φόρμας.
Και τέλος, το μενού είναι έτοιμο για χρήση. Απλά προσπαθώ και να χρησιμοποιήσετε. Ελπίζω ότι απολαύσατε αυτήν την άκρη.
Download: Μενού
Παρακάτω μια εικόνα του μενού.
Προσαρμοσμένα Μενού
