Å ha kunnskap om hvordan du kan endre skrifttypen til en meny stripe for opplysning kan gjøre Windows-program mer pedagogisk . Du kan bruke Microsoft Visual Basic.NET ( VB.NET ) for å lage en meny stripe og endre skriftstørrelsen . Den VB.NET er et programmeringsspråk . Den enkleste måten å endre skrifttype er ved hjelp av MouseEnter og MouseLeave egenskaper . Skriften av den første menyvalget vil endre seg når brukeren beveger musen over det . Skriften vil gå tilbake til sin opprinnelige tilstand når musen forlater menypunktet . Du trenger
Microsoft Visual Basic Express
Vis flere instruksjoner
en

start Microsoft Visual Basic Express , klikker du "New Project ... " på ruten til venstre på skjermen , og deretter velge " Windows Forms Application ". Klikk "OK".
2

Dobbeltklikk på " MenuStrip1 " for å legge en meny stripe kontroll. Klikk på " Skriv Here " på menyen stripe kontroll og type " File". Klikk ved siden av " File " og skriv "Alternativer".
3

Dobbeltklikk på " File" for å åpne " Form1.vb " modulen. Trykk "Ctrl " og "A " og deretter " Slett " for å fjerne all eksisterende kode
4

Kopier og lim inn koden nedenfor i din " Form1.vb " modul: .

Public klasse Form1

Private Sub FileToolStripMenuItem_MouseEnter ( ByVal avsenderen som objekt , ByVal e Som System.EventArgs ) Håndtak FileToolStripMenuItem.MouseEnter

Me.MenuStrip1.Items ( 0 ) . Font = Ny Font ( " Georgia " , 16 )

End Sub

Private Sub FileToolStripMenuItem_MouseLeave ( ByVal avsenderen som objekt , ByVal e Som System.EventArgs ) Håndtak FileToolStripMenuItem.MouseLeave

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

End Sub

Private Sub OptionsToolStripMenuItem_MouseEnter ( ByVal avsenderen som objekt , ByVal e Som System.EventArgs ) Håndtak OptionsToolStripMenuItem.MouseEnter

Me.MenuStrip1.Items ( 1 ) . Font = Ny Font ( " Georgia " , 16 )

End Sub

Private Sub OptionsToolStripMenuItem_MouseLeave ( ByVal avsenderen som objekt , ByVal e som System.EventArgs ) Håndtak OptionsToolStripMenuItem.MouseLeave

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

End Sub

End Class
5

Trykk " F5 " for å kjøre programmet og deretter flytte musen over menyen stripen for å se skriftendringer .