Cómo ajustar la fuente en un menú para la Iluminación

Tener el conocimiento sobre cómo cambiar el tipo de letra de una banda de menú para la iluminación puede hacer que su aplicación de Windows más educativo. Puede utilizar Microsoft Visual Basic.NET (VB.NET) para crear una banda de menú y cambiar el tamaño de la fuente. El VB.NET es un lenguaje de programación informática. La forma más fácil de cambiar el tipo de letra es mediante el uso de las propiedades y MouseEnter MouseLeave. La fuente del primer elemento del menú cambiará cuando el usuario mueve el ratón sobre ella. La fuente volverá a su estado original cuando el ratón sale del elemento de menú.

Instrucciones

1 Iniciar Microsoft Visual Basic Express; haga clic en "Nuevo proyecto ..." en el panel izquierdo de la pantalla; a continuación, seleccione "Aplicación de Windows Forms". Haga clic en Aceptar."

2 Haga doble clic en "MenuStrip1" para agregar un control de banda de menú. Haga clic en "Escriba aquí" en el control de banda de menú y el tipo de "archivo". Haga clic en junto a "Archivo" y tipo "Opciones".

3 Haga doble clic en "Archivo" para abrir el módulo "Form1.vb". Pulse la tecla "Ctrl" y "A" y luego "Borrar" para eliminar todo el código existente.

4 Copia y pega el siguiente código en el módulo "Form1.vb":

Public Class Form1

Private Sub FileToolStripMenuItem_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles FileToolStripMenuItem.MouseEnter

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

End Sub

Private Sub FileToolStripMenuItem_MouseLeave (remitente de ByVal como objeto, ByVal e As System.EventArgs) Maneja FileToolStripMenuItem.MouseLeave

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

End Sub

Private Sub OptionsToolStripMenuItem_MouseEnter (remitente de ByVal como objeto, ByVal e As System.EventArgs) Maneja OptionsToolStripMenuItem.MouseEnter

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

End Sub

Private Sub OptionsToolStripMenuItem_MouseLeave (remitente de ByVal como objeto, ByVal e As System.EventArgs) Maneja OptionsToolStripMenuItem.MouseLeave

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

End Sub

End Class

5 Pulse la tecla "F5" para ejecutar el programa y luego mover el puntero del ratón sobre la banda de menú para ver los cambios de fuente.