Nachdem das Wissen , wie man die Schriftart einer Menüleiste für Erleuchtung ändern können Ihre Windows-Anwendung mehr lehrreich. Sie können Microsoft Visual Basic.NET ( VB.NET) , um ein Menü zu erstellen und Streifen die Schriftgröße verändern . Das VB.NET ist eine Programmiersprache . Der einfachste Weg, um die Schriftart zu ändern , ist die Verwendung der MouseEnter und MouseLeave Eigenschaften . Die Schriftart des ersten Menüpunkt wird sich ändern , wenn der Benutzer mit der Maus über sie . Die Schrift wird wieder in seinen ursprünglichen Zustand , wenn die Maus verlässt den Menüpunkt . Things You
Microsoft Visual Basic Express
brauchen anzeigen Weitere Anweisungen
1
Starten Sie Microsoft Visual Basic Express , klicken Sie auf " Neues Projekt ... " auf der linken Seite des Bildschirms , und wählen Sie dann "Windows Forms-Anwendung. " Klicken Sie auf " OK".
2
Doppelklicken Sie auf " menuStrip1 ", um eine Menüleiste Steuerelement hinzuzufügen . Klicken Sie auf " Hier Geben Sie " auf der Menüleiste Kontrolle und geben Sie " Datei ". Klicken Sie neben " File" und geben Sie " Optionen".
3
Doppelklicken Sie auf " Datei ", um die " Form1.vb "-Modul zu öffnen. Drücken Sie " Strg" und " A " und dann " Löschen", um alle bestehenden Code zu entfernen
4
Kopieren Sie den Code unten in " Form1.vb "-Modul : .
Öffentlichen Class Form1 private Sub
FileToolStripMenuItem_MouseEnter (ByVal sender As Object, ByVal e As System.EventArgs ) Handles FileToolStripMenuItem.MouseEnter
Me.MenuStrip1.Items (0) . Font = New Font ( "Georgia " , 16)
End Sub private Sub
FileToolStripMenuItem_MouseLeave (ByVal sender As Object, ByVal e As System.EventArgs ) Handles FileToolStripMenuItem.MouseLeave
Me.MenuStrip1.Items ( 0) . Font = New Font ( " Segoe UI" , 9)
End Sub private Sub
OptionsToolStripMenuItem_MouseEnter (ByVal sender As Object, ByVal e As System.EventArgs ) Handles OptionsToolStripMenuItem.MouseEnter
Me.MenuStrip1.Items (1). Font = New Font ( "Georgia" , 16)
End Sub private Sub
OptionsToolStripMenuItem_MouseLeave (ByVal sender As Object, ByVal e wie System.EventArgs ) Handles OptionsToolStripMenuItem.MouseLeave
Me.MenuStrip1.Items (1). Font = New Font ( " Segoe UI" , 9)
End Sub