MenuStrip改变文字样式的实例

效果图：

代码如下：

乐博网lob.cn提示：调试环境为 vs2005 +  windows2003 / windows2008 / xp / vista + .NET Framework 2.0

Public Class Form1
    Dim size As Integer
    Dim fontType As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        size = 20
        lblShow.AutoSize = True
        lblShow.ForeColor = Color.Aqua
        lblShow.BackColor = Color.Blue
        lblShow.Text = "乐博网www.lob.cn"
        fontType = "新细明体"
        lblShow.Font = New Font(fontType, size, FontStyle.Regular)
    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        fontType = "新细明体"
        lblShow.Font = New Font(fontType, size, FontStyle.Bold)
    End Sub

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
        fontType = "标准楷体"
        lblShow.Font = New Font(fontType, size, FontStyle.Bold)
    End Sub

    Private Sub ToolStripMenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem7.Click
        lblShow.ForeColor = Color.White
    End Sub

    Private Sub ToolStripMenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem8.Click
        lblShow.ForeColor = Color.Aqua
    End Sub

    Private Sub ToolStripMenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem9.Click
        lblShow.ForeColor = Color.Yellow
    End Sub

    Private Sub ToolStripMenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem6.Click
        If lblShow.BackColor = Color.Blue Then
            lblShow.BackColor = Color.Purple
        Else
            lblShow.BackColor = Color.Blue
        End If
    End Sub

    Private Sub ToolStripComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripComboBox1.SelectedIndexChanged
        Select Case ToolStripComboBox1.SelectedIndex
            Case 0
                size = 12
            Case 1
                size = 18
            Case 2
                size = 24
        End Select
        lblShow.Font = New Font(fontType, size, FontStyle.Bold)
    End Sub

End Class