Come regolare il carattere in un menu per l'Illuminazione

Avere la conoscenza su come modificare il carattere di una barra di menu per l'illuminazione può rendere la vostra applicazione di Windows più educativo . È possibile utilizzare Microsoft Visual Basic.NET ( VB.NET ) per creare una barra di menu e modificare la dimensione del carattere . Il VB.NET è un linguaggio di programmazione di computer . Il modo più semplice per cambiare il tipo di carattere è quello di utilizzare la proprietà MouseEnter e MouseLeave . Il font della prima voce di menu cambia quando l'utente sposta il mouse su di esso . Il font tornerà al suo stato originale quando il mouse esce la voce di menu . Cose che ti serviranno
Microsoft Visual Basic Express
Mostra più istruzioni
1

Avviare Microsoft Visual Basic Express , fai clic su " Nuovo progetto ... " nel riquadro sinistro dello schermo , quindi selezionare " Applicazione Windows Form ". Fare clic su "OK".
2

doppio clic su " menuStrip1 " per aggiungere un controllo barra di menu . Fare clic su " Digitare qui " sul controllo barra di menu e il tipo "File ". Fare clic su accanto a " File " e digitare " Opzioni ".
3

doppio clic su " File" per aprire il modulo " Form1.vb " . Premere il tasto " Ctrl " e "A " e poi "Elimina " per rimuovere tutto il codice esistente
4

Copia e incolla il codice sottostante nel tuo modulo " Form1.vb " : .

Pubblica Class Form1 private Sub

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

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

End Sub private Sub

FileToolStripMenuItem_MouseLeave ( ByVal sender As Object , ByVal e As System.EventArgs ) Handles FileToolStripMenuItem.MouseLeave

Me.MenuStrip1.Items ( 0 ) . Font = New Font ( " Segoe UI " , 9 ) per

End Sub private Sub

OptionsToolStripMenuItem_MouseEnter ( ByVal sender As Object , ByVal e As System.EventArgs ) Handles OptionsToolStripMenuItem.MouseEnter < br

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

End Sub private Sub

OptionsToolStripMenuItem_MouseLeave ( ByVal sender As Object , ByVal e come System.EventArgs ) Handles OptionsToolStripMenuItem.MouseLeave

Me.MenuStrip1.Items ( 1) . Font = New Font ( " Segoe UI " , 9 ) per

End Sub

Classe
End 5

Premere " F5 " per eseguire il programma poi spostare il mouse sopra la barra di menu per vedere i cambiamenti di font .

• Come scrivere un programma che si aggiorna Explorer 
• Come reimpostare la Trymedia Trial