为组件文本添加年份的最佳方法?

Question

我在文档中找不到(或者只是忽略了)的东西。

但是我想让标签文本包含当前年份。

现在在我的onload处理程序中，我正在做

Me.lblInvoiceLine = "Please pay this by the end of " + Date.Now.Year.ToString

但是我想知道是否有更干净的方法。仅仅使用上面的内容作为组件的文本属性，似乎只是将Date函数作为纯文本处理。

Answer 1

可以重写Label类的Text属性，这样您就可以创建一个自定义控件，自动将当前年份添加到您提供的任何文本中，例如

Public Class YearLabel
Inherits Label
''' <inheritdoc />
Public Overrides Property Text As String
Get
Return MyBase.Text
End Get
Set
MyBase.Text = Value & Date.Now.Year
End Set
End Property
End Class

您可以将该类添加到项目和构建中以将其添加到工具箱中。然后，您可以在表单中添加一个实例，并在设计器中将Text属性设置为"Please pay this by the end of "，然后您将看到您想要的结果。如果你把项目放在一边，然后明年再打开它，你会看到YearLabel已经自动更新了。