Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
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 .
Copyright © počítačové znalosti Všetky práva vyhradené