|
Avoir des connaissances sur la façon de modifier la police d'une bande de menu pour l'illumination peut rendre votre application Windows plus pédagogique . Vous pouvez utiliser Microsoft Visual Basic.NET ( VB.NET ) pour créer une bande de menus et de modifier la taille des caractères . Le VB.NET est un langage de programmation informatique. La meilleure façon de changer la police est d'utiliser les propriétés MouseLeave MouseEnter et . La police de la première option du menu va changer lorsque l'utilisateur déplace la souris dessus. La police va revenir à son état initial lorsque la souris quitte l'élément de menu . Choses que vous devez
Microsoft Visual Basic Express
Voir Plus Instructions
1 Démarrez Microsoft Visual Basic Express , cliquez sur "Nouveau projet ... " Dans le volet gauche de votre écran, puis sélectionnez « Application Windows Forms . " Cliquez sur « OK ».
2 Double -cliquez sur " menuStrip1 " pour ajouter un contrôle de la bande de menu. Cliquez sur «Tapez ici» dans le menu de contrôle de la bande et le type "Fichier". Cliquez sur Suivant pour "Fichier " et tapez " Options".
3 Double -cliquez sur " File" pour ouvrir le "Form1.vb" module . Appuyez sur "Ctrl" et "A" puis "Supprimer " pour supprimer tout le code existant
4 Copier et coller le code ci-dessous dans votre " Form1.vb " module: .
Publique Class Form1
Private Sub FileToolStripMenuItem_MouseEnter ( sender As Object , ByVal e comme System.EventArgs ) Handles FileToolStripMenuItem.MouseEnter
Me.MenuStrip1.Items (0) . Font = New Font ( "Georgia " , 16)
End Sub Private Sub
FileToolStripMenuItem_MouseLeave ( sender As Object , ByVal e As System.EventArgs ) Poignées FileToolStripMenuItem.MouseLeave
Me.MenuStrip1.Items ( 0) . Font = New Font ( " Segoe UI" , 9) pour End Sub Private Sub
OptionsToolStripMenuItem_MouseEnter ( sender As Object , ByVal e As System.EventArgs ) Handles OptionsToolStripMenuItem.MouseEnter < br > Me.MenuStrip1.Items (1). Font = New Font ( "Georgia " , 16)
End Sub Private Sub
OptionsToolStripMenuItem_MouseLeave ( sender As Object , ByVal e comme System.EventArgs ) Handles OptionsToolStripMenuItem.MouseLeave
Me.MenuStrip1.Items (1). Font = New Font ( " Segoe UI" , 9) pour End Sub
End Class
5 Appuyez sur " F5" pour exécuter votre programme alors passez votre souris sur la bande-menu pour voir les changements de polices.
|
