Microsoft Visual Basic Express
Ver Más instrucciones
1
Inicie 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
doble clic en " MenuStrip1 " para añadir una tira de control de menú. Haga clic en "Escriba aquí" en la banda de menú control y pulse " Archivo". Haga clic en junto a "Archivo " y escribe " Opciones. "
3
doble clic en " File" para abrir el módulo " Form1.vb " . Pulse la tecla "Ctrl " y "A" y luego " Eliminar " para eliminar todo el código existente
4
Copia y pega el código de abajo en el módulo " Form1.vb ": .
Pública Class Form1
Private Sub FileToolStripMenuItem_MouseEnter (remitente de ByVal como objeto , ByVal e como System.EventArgs ) Handles FileToolStripMenuItem.MouseEnter
Me.MenuStrip1.Items
( 0 ) . Fuente = nueva fuente ( "Georgia " , 16 )
End Sub Private Sub
FileToolStripMenuItem_MouseLeave (remitente de ByVal como objeto , ByVal e como System.EventArgs ) Handles FileToolStripMenuItem.MouseLeave
Me.MenuStrip1.Items ( 0 ) . Fuente = nueva fuente ( " Segoe UI" , 9 )
End Sub Private Sub
OptionsToolStripMenuItem_MouseEnter (remitente de ByVal como objeto , ByVal e como System.EventArgs ) Handles OptionsToolStripMenuItem.MouseEnter
Me.MenuStrip1.Items
( 1 ) . Fuente = nueva fuente ( "Georgia " , 16 )
End Sub Private Sub
OptionsToolStripMenuItem_MouseLeave (remitente de ByVal como objeto , ByVal e Como System.EventArgs ) Handles OptionsToolStripMenuItem.MouseLeave
Me.MenuStrip1.Items ( 1 ) . Fuente = nueva fuente ( " Segoe UI" , 9 )
End Sub
End Class
5
Press "F5 " para ejecutar el programa a continuación, pasar el mouse sobre la banda de menú para ver los cambios de fuente .