[英]How to reset font back to original when button is clicked in vb.net?
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()
It's not working for font? 它不适用于字体吗?
If you don't want to use originalFont, then you can just manually change the label font by 如果您不想使用originalFont,则可以通过以下方式手动更改标签字体:
lblPromotional.Font = New Drawing.Font("Times New Roman", 16, FontStyle.Bold)
or whatever font you used. 或您使用的任何字体。 Here is the documentation: https://msdn.microsoft.com/en-us/library/system.drawing.font(v=vs.110).aspx
这是文档: https : //msdn.microsoft.com/zh-cn/library/system.drawing.font(v=vs.110).aspx
You need to cache the entire Font
object before you change it - not just the font name. 您需要先缓存整个
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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.