Ako upraviť písmo v menu pre osvietenie

Mať vedomosti o tom , ako zmeniť písmo o ponuke pásu pre osvietenie môže vaše aplikácie pre Windows viac poučné . Môžete použiť Microsoft Visual Basic.NET ( VB.NET ) pre vytvorenie ponuky prúžok a zmeniť veľkosť písma . VB.NET je počítačový programovací jazyk . Najjednoduchší spôsob , ako zmeniť písmo je pomocou vlastnosti MouseEnter a MouseLeave . Písmo prvej položke menu sa zmení , keď používateľ presunie svoje myši nad ním . Písmo sa vráti späť do pôvodného stavu , keď myš opustí položku menu . Veci , ktoré budete potrebovať v Microsoft Visual Basic Express
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Visual Basic Express , kliknite na tlačidlo " Nový projekt ... " V ľavej table obrazovky a potom vyberte "Windows Forms . " Kliknite na tlačidlo " OK " .
2

Double - kliknite na " MenuStrip1 " pridať ovládací prvok pásu ponuky . Kliknite na tlačidlo " Sem " na ovládači Menu pásu a zadajte " Súbor " . Kliknutím na vedľa typu " Súbor " a " Možnosti " .
3

Double - kliknite na " Súbor " otvorte modul " Form1.vb " . Stlačte tlačidlo " Ctrl " a " A " a potom " Delete " odstrániť všetky existujúce kód
4

Skopírujte a vložte nižšie uvedený kód do vašej " Form1.vb " modul : .

Verejné class Form1

Private Sub FileToolStripMenuItem_MouseEnter ( byVal sender As Object , byval e ako System.EventArgs ) Kľuky FileToolStripMenuItem.MouseEnter

Me.MenuStrip1.Items ( 0 ) . font = nové písmo ( " Georgia " 16 )

End Sub

Private Sub FileToolStripMenuItem_MouseLeave ( byVal sender As Object , byval e ako System.EventArgs ) Kľuky FileToolStripMenuItem.MouseLeave

Me.MenuStrip1.Items ( 0 ) . Font = New Font ( " Ségou UI " , 9 )

End Sub

Private Sub OptionsToolStripMenuItem_MouseEnter ( byVal sender As Object , byval e ako System.EventArgs ) Kľuky OptionsToolStripMenuItem.MouseEnter

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

End Sub

Private Sub OptionsToolStripMenuItem_MouseLeave ( byVal sender As Object , byval e ako System.EventArgs ) Kľuky OptionsToolStripMenuItem.MouseLeave

Me.MenuStrip1.Items ( 1 ) . Font = New Font ( " Ségou UI " , 9 )

End Sub

end Class
5

Stlačte " F5 " spustiť program a potom presuňte kurzor myši na menu prúžok vidieť zmeny písma .

• Predchádzajúca strana: Ako napísať program , ktorý osvieži Explorer 
• Ďalšia strana: Ako obnoviť skúšobná Trymedia