Wie setze ich die Schriftart zurück auf das Original, wenn ich auf vb.net klicke?

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() 

Es funktioniert nicht für die Schriftart?

Answer 1

Sie müssen das gesamte Objekt Font zwischenspeichern, bevor Sie es ändern - nicht nur den Namen der Schriftart.

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

Wenn Sie originalFont nicht verwenden möchten, dann können Sie nur die Schriftart manuell Etikett von

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

oder was auch immer Schriftart ändern Sie verwendet haben. Hier ist die Dokumentation: https://msdn.microsoft.com/en-us/library/system.drawing.font(v=vs.110).aspx