VB κώδικα στο Κέντρο κειμένου σε ένα μήνυμα ασφαλείας

VB συνάρτηση MsgBox έχει κανένα μέσο για να κεντράρετε το κείμενο που θέλετε να εμφανίσετε με τη λειτουργία . Ωστόσο , μπορείτε να δημιουργήσετε μια ισοδύναμη λειτουργία που κάνει την εμφάνιση επίκεντρο κείμενο . Μία προσέγγιση για τη δημιουργία αυτής της λειτουργίας είναι να σχεδιάσουμε μια προσαρμοσμένη φόρμα με μια ετικέτα που επανατοποθετεί το ίδιο δυναμικά κάθε φορά που η μορφή που περιέχει το σήμα αλλάζει μέγεθος . Σχεδιάστε τη φόρμα
Η

Το πρώτο βήμα για τη δημιουργία του δικού σας λειτουργία MsgBox το κείμενο της οποίας μπορείτε να recenter δυναμικά είναι να σχεδιάσει την προσαρμοσμένη φόρμα που θα εμφανιστεί το κείμενο . Αυτό περιλαμβάνει τη δημιουργία ενός έργου VB Windows φόρμας . Μέσα περιβάλλον ανάπτυξης της VB , πατήστε το πλήκτρο " Control" και " N " ταυτόχρονα , στη συνέχεια, κάντε κλικ στο στοιχείο φόρμας των Windows για να δημιουργήσετε ένα τέτοιο έργο .
Εικόνων Label Έλεγχος
Η

Όταν εμφανίζεται το παράθυρο σχεδίασης φόρμας , σύρετε ένα στοιχείο ελέγχου ετικέτας από την εργαλειοθήκη στη φόρμα . Τοποθετήστε την ετικέτα οπουδήποτε? Πρόγραμμά σας θα εστιάσουν την ετικέτα . Ωστόσο, θα πρέπει να διευκρινιστεί ότι το κείμενο μέσα στο Label θα πρέπει να εστιάζονται . Για να το κάνετε αυτό , πατήστε το κουμπί " Στοίχιση κειμένου" ιδιοκτησίας στο παράθυρο Properties . VB θα εμφανιστεί ένα μικρό έντυπο με εννέα κουμπιά σε αυτό . Κάθε κουμπί υποδεικνύει μια επιλογή στοίχισης για το κείμενο της ετικέτας . Κάντε κλικ στο μεσαίο κουμπί για να καθορίσετε ότι το κείμενο ετικέτας πρέπει να είναι στο κέντρο. Προσθέστε κάποιο κείμενο στην ετικέτα πληκτρολογώντας το κείμενο στο "Text " ιδιότητα του παραθύρου Properties . Για παράδειγμα, πληκτρολογήστε " Εδώ είναι μερικά κείμενο θα ήθελα να το κέντρο . "

Η Προγραμματισμός παράθυρο
Η

Μετά τη σχεδίαση της φόρμας για να προσομοιώσουν τη λειτουργία MsgBox , πληκτρολογήστε το παράθυρο προγραμματισμού , στο οποίο μπορείτε να πληκτρολογήσετε δηλώσεις που κεντράρει το στοιχείο ελέγχου ετικέτας κατέχουν το κείμενο . Πατώντας " F7 " σας φέρνει σε αυτό το παράθυρο .
Εικόνων Φόρμα Εκδηλώσεις
Η

VB μορφές μπορεί να πάρει οποιοδήποτε μέγεθος που ο χρήστης θέλει να σύρετε σε . Αυτή η συμπεριφορά σημαίνει ότι το κείμενό σας δεν θα μπορεί να επικεντρωθεί , εκτός αν μπορεί να εντοπίσει πότε η μορφή αλλάζει μέγεθος , και να αλλάξετε τη θέση του σήματος που συγκρατεί το κείμενό σας αναλόγως . Λειτουργίες συμβάντων των Windows παρέχουν έναν τρόπο για να ανιχνεύσει την αλλαγή μεγέθους και άλλες εκδηλώσεις . Η συγκεκριμένη λειτουργία γεγονός που είναι απαραίτητο , για να πληκτρολογήσετε τις δηλώσεις που δυναμικά κειμένου στο κέντρο είναι το γεγονός Paint . Όποτε VB πρέπει να αναδιατυπώσει τη μορφή , η λειτουργία αυτή εκδήλωση χρησιμοποιείται . Αλλαγή μεγέθους προκαλεί αυτό το γεγονός , όπως και η μορφή επανεμφανίζεται από πίσω παράθυρο μιας άλλης εφαρμογής .
Εικόνων Προσαρμογή Paint Event
Η

Αναφέρατε να VB θέλετε να πληκτρολογήσετε κείμενο του προγράμματος - κεντράρισμα σας το γεγονός Paint επιλέγοντας εκείνο το γεγονός από τις λίστες drop-down παράθυρο του προγραμματισμού του . Κάντε κλικ στο " Φόρμα εκδήλωσης " από το αριστερό λίστα drop-down πάνω από το παράθυρο προγραμματισμού , στη συνέχεια, κάντε κλικ στο " Paint " στοιχείο από το δεξιότερο drop-down λίστα . VB θα εμφανιστεί η λειτουργία Paint κενό για να γεμίσει με τις δικές σας δηλώσεις .
Εικόνων Υπολογισμοί για κεντράρισμα
Η

Χρήση της δήλωσης Paint σε κέντρο ελέγχου Label περιλαμβάνει μερικά βασικά υπολογισμούς. Θα ήθελα να εκτελούν τα ίδια υπολογισμούς στο κέντρο κειμένου σε φυσικά μέσα , όπως ένα κομμάτι χαρτί . Επικολλήστε τις ακόλουθες δηλώσεις στη λειτουργία Paint . Οι δηλώσεις αυτές υπολογίζουν το αριστερότερο άκρο του ελέγχου ετικέτας το κείμενο της οποίας είστε κεντράρισμα . Οι παρατηρήσεις της δήλωσης εξηγούν κάθε βήμα του υπολογισμού . Δοκιμάστε MsgBox εξομοιωτή σας για το κεντράρισμα κειμένου πατώντας το "F5 " κλειδί πληκτρολόγιο . Όταν εμφανιστεί το έντυπο του προγράμματος , σύρετε μία από τις γωνίες του για να αλλάξετε το μέγεθος της φόρμας . Το κείμενό σας θα παραμείνει στο κέντρο .

« Πάρτε το μέγεθος της ετικέτας « Πάρτε το μέγεθος της μορφής « Αφαίρεση μέγεθος της ετικέτας από το μέγεθος της φόρμας « Διαίρει από 2 « Set label.left να οδηγήσει

Δημ. w , w2 , difw = Me.Size.Widthw2 = Label1.Size.Widthdif = w - w2dif = διαφο /2Label1.Left = διαφο
Η
εικόνων