如何在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

您需要先緩存整個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 

Answer 2

如果你不想使用originalFont，那麼你可以手動你使用

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

或任何字體更改標籤的字體。這裏是文檔：https://msdn.microsoft.com/en-us/library/system.drawing.font(v=vs.110).aspx