在vb.net中单击按钮时，如何将字体重置为原始字体？

Question

Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click

    txtRate.Text = "0"
    lblPromotional.ForeColor = Color.Empty
    lblPromotional.BackColor = Color.Empty
    lblPromotional.Font = originalfontname()

它不适用于字体吗？

Answer 1

如果您不想使用originalFont，则可以通过以下方式手动更改标签字体：

lblPromotional.Font = New Drawing.Font("Times New Roman", 16, FontStyle.Bold)

或您使用的任何字体。 这是文档： https : //msdn.microsoft.com/zh-cn/library/system.drawing.font(v=vs.110).aspx

Answer 2

您需要先缓存整个Font对象，然后再进行更改-而不仅仅是字体名称。

Class SomeForm Inherits Form

    Private originalFont As Font

    Sub Form_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.originalFont = Me.lblPromotional.Font
    End Sub

    Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click

        txtRate.Text = "0"
        lblPromotional.ForeColor = Color.Empty
        lblPromotional.BackColor = Color.Empty
        lblPromotional.Font = Me.originalFont
    End Sub

End Class