在vb.net中添加年份

Question

我在表单上有两个DateTimePicker控件。

如何自动将一年添加到我在第一个DateTimePicker中选择的日期并在第二个DateTimePicker上显示？例如，如果选择日期09/22/2017，那么我希望第二个DateTimePicker显示09/22/2018。

这可能吗？如果是这样，你会建议一些适当的代码吗？如果没有，你会建议另一种方法吗？

Answer 1

您可以使用DateTimePicker的{​​{1}}事件执行此操作：

ValueChanged

要自动生成此事件处理程序代码，请双击表单上的第一个Private Sub DateTimePicker1_ValueChanged(Sender As DateTimePicker, e As EventArgs) Handles DateTimePicker1.ValueChanged Me.DateTimePicker2.Value = Sender.Value.AddYears(1) End Sub 控件。

在此示例中，您会注意到我已将DateTimePicker的转换从Sender更改为Object，因此我们可以在IDE中获取IntelliSense。

Answer 2

不确定您需要做什么以及您正在寻找什么，但简单的答案是：

SomeComboBox.text = Now.Year

Answer 3

如果您选择日期，请从日期选择器中取出年份。 将其附加到下面的文本框中。

你可以这样做。

year = dtp1.Value.Year
tb.Text = tb.text + year

这只会附加更改datepicker的年份，但是如果你想在每次点击datepicker时更换tb.Text年份，那么你应该做这样的事情。

Dim str as String  = tb.Text        'Save current text
Dim arr as String() = str.Split(",")'Get previous text
currentYear = dtp1.Value.Year       'Get current year
tb.Text = arr(0) + currentYear      'Replace year in textbox with new year