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