Πώς να ρυθμίσετε τη γραμματοσειρά σε ένα μενού για Διαφωτισμού

Έχοντας τη γνώση για το πώς να αλλάξετε τη γραμματοσειρά μιας λωρίδας μενού για διαφώτιση μπορεί να κάνει εφαρμογή των Windows σας πιο εκπαιδευτικό . Μπορείτε να χρησιμοποιήσετε το Microsoft Visual Basic.NET ( VB.NET ) για να δημιουργήσετε μια λωρίδα μενού και να αλλάξετε το μέγεθος της γραμματοσειράς . Η VB.NET είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών . Ο ευκολότερος τρόπος για να αλλάξετε τη γραμματοσειρά είναι με τη χρήση των mouseEnter και MouseLeave ιδιότητες . Η γραμματοσειρά του πρώτου στοιχείου του μενού θα αλλάξει όταν ο χρήστης μετακινεί το ποντίκι τους πάνω του . Η γραμματοσειρά θα επιστρέψει στην αρχική του κατάσταση όταν το ποντίκι φεύγει από το στοιχείο μενού . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Basic Express
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ξεκινήστε το Microsoft Visual Basic Express ? Κάντε κλικ στο " New Project ... " στο αριστερό τμήμα της οθόνης σας? στη συνέχεια, επιλέξτε " Windows Forms Application ". Κάντε κλικ στο " OK". 2

διπλό κλικ στο " MenuStrip1 " για να προσθέσετε ένα στοιχείο ελέγχου λωρίδα μενού . Κάντε κλικ στο κουμπί " Πληκτρολογήστε εδώ" για τον έλεγχο στη λωρίδα μενού και πληκτρολογήστε "Αρχείο ". Κάντε κλικ δίπλα στο "Αρχείο" και πληκτρολογήστε " Επιλογές".
Εικόνων 3

διπλό κλικ στο " Αρχείο" για να ανοίξει το μάθημα « Form1.vb " . Πατήστε το πλήκτρο " Ctrl " και " A " και στη συνέχεια " Διαγραφή" για να αφαιρέσετε όλα τα υπάρχοντα κώδικα
Η 4

αντιγραφή και επικόλληση τον παρακάτω κωδικό στο σας " Form1.vb « ενότητα : .

Public Class Form1

Private Sub FileToolStripMenuItem_MouseEnter ( ByVal αποστολέα ως αντικείμενο, ByVal e Όπως System.EventArgs ) Λαβές FileToolStripMenuItem.MouseEnter

Me.MenuStrip1.Items ( 0 ) . Font = New Font ( " Γεωργία », 16 )

End Sub

Private Sub FileToolStripMenuItem_MouseLeave ( ByVal αποστολέα ως αντικείμενο, ByVal e Όπως System.EventArgs ) Λαβές FileToolStripMenuItem.MouseLeave

Me.MenuStrip1.Items ( 0 ) . Font = New Font ( " Segoe UI " , 9 )

Sub End

Private Sub OptionsToolStripMenuItem_MouseEnter ( ByVal αποστολέα ως αντικείμενο, ByVal e Όπως System.EventArgs ) Λαβές OptionsToolStripMenuItem.MouseEnter

Me.MenuStrip1.Items ( 1 ) . Font = New Font ( " Γεωργία " , 16 )

End Sub

Private Sub OptionsToolStripMenuItem_MouseLeave ( ByVal αποστολέα ως αντικείμενο, ByVal e Όπως System.EventArgs ) Λαβές OptionsToolStripMenuItem.MouseLeave

Me.MenuStrip1.Items ( 1 ) . Font = New Font ( " Segoe UI " , 9 )

End Sub

τέλος Class
5

Πατήστε το " F5 " για να τρέξετε το πρόγραμμά σας , στη συνέχεια, μετακινήστε το ποντίκι σας πάνω από την ταινία μενού για να δείτε τις αλλαγές γραμματοσειράς .
Η
εικόνων