Att ha kunskap om hur man ändra teckensnitt på en meny remsa för upplysning kan göra ditt Windows-program mer pedagogiskt . Du kan använda Microsoft Visual Basic.NET ( VB.NET ) för att skapa en meny remsa och ändra teckenstorlek . Den VB.NET är en dator programmeringsspråk. Det enklaste sättet att ändra teckensnitt är genom att använda MouseEnter och mouseLeave egenskaper . Typsnittet i första menyalternativet ändras när användaren flyttar musen över den . Teckensnittet kommer att gå tillbaka till sitt ursprungliga skick när musen lämnar menyalternativet . Saker du behöver
Microsoft Visual Basic Express
Visa fler instruktioner
1
Starta Microsoft Visual Basic Express , klicka på " Nytt projekt ... " i den vänstra rutan på skärmen och välj sedan " Windows Forms Application . " Klicka på " OK . "
2
Dubbelklicka på " MenuStrip1 " för att lägga till en kontroll meny remsa . Klicka på " Skriv här " på menyn strip kontroll och typ " File ". Klicka bredvid " File " och typ " Alternativ".
3
Dubbelklicka på " File " för att öppna " Form1.vb " modul . Tryck på " Ctrl " och " A " och sedan "Ta bort " för att ta bort all befintlig kod
4
Kopiera och klistra in koden nedan på din " Form1.vb " modul : .
Public Class Form1
Private Sub FileToolStripMenuItem_MouseEnter ( ByVal avsändare As Object , ByVal e Som System.EventArgs ) Handtag FileToolStripMenuItem.MouseEnter
Me.MenuStrip1.Items ( 0 ) . Font = Nya Font ( " Georgia " , 16 ) katalog
End Sub
Private Sub FileToolStripMenuItem_MouseLeave ( ByVal avsändare As Object , ByVal e Som System.EventArgs ) Handtag FileToolStripMenuItem.MouseLeave
Me.MenuStrip1.Items ( 0 ) . Font = Nya Font ( " Segoe UI " , 9 ) katalog
End Sub
Private Sub OptionsToolStripMenuItem_MouseEnter ( ByVal avsändare As Object , ByVal e Som System.EventArgs ) Handtag OptionsToolStripMenuItem.MouseEnter
Me.MenuStrip1.Items ( 1 ) . Font = Nya Font ( " Georgia " , 16 ) katalog
End Sub
Private Sub OptionsToolStripMenuItem_MouseLeave ( ByVal avsändare As Object , ByVal e som System.EventArgs ) Handtag OptionsToolStripMenuItem.MouseLeave
Me.MenuStrip1.Items ( 1 ) . Font = Nya Font ( " Segoe UI " , 9 ) katalog
End Sub
End Class
5
Tryck " F5 " för att köra ditt program sedan flytta musen över menyn remsan att se teckensnittsändringar .
