VB.Net中Data Binding绑定Date属性时自动补全日期致无法改年份的问题

问题核心是OnPropertyChanged模式下，绑定的Date类型会自动解析部分输入的日期并补全当前年份，导致无法继续输入自定义年份，同时又需要实时触发Save按钮状态更新，不能切换到OnValidation。以下是几种可行的解决方案：

方案1：新增字符串中间属性作为绑定媒介 #

在Person类中添加一个字符串类型的属性，作为TextBox和Date类型属性的中间层，手动控制日期解析逻辑，避免自动补全：

Imports System.ComponentModel
Imports System.Globalization

Public Class Person
    Implements INotifyPropertyChanged

    Private _dateOfBirth As Date?
    Public Property DateOfBirth As Date?
        Get
            Return _dateOfBirth
        End Get
        Set(value As Date?)
            _dateOfBirth = value
            NotifyPropertyChanged(NameOf(DateOfBirth))
            NotifyPropertyChanged(NameOf(DateOfBirthText))
        End Set
    End Property

    Public Property DateOfBirthText As String
        Get
            Return If(DateOfBirth.HasValue, DateOfBirth.Value.ToString("dd/MM/yyyy"), String.Empty)
        End Get
        Set(value As String)
            Dim parsedDate As Date
            ' 仅当输入完整的dd/MM/yyyy格式时，才更新DateOfBirth
            Select Case value.Trim().Length
                Case 2, 5 ' 输入了日（dd）或日/月（dd/MM），不解析
                    ' 保留输入文本，不更新数据源
                Case 10 ' 完整日期格式
                    If Date.TryParseExact(value, "dd/MM/yyyy", CultureInfo.InvariantCulture, DateTimeStyles.None, parsedDate) Then
                        DateOfBirth = parsedDate
                    End If
                Case Else
                    ' 无效输入，可选择清空DateOfBirth或保留原有值
                    ' DateOfBirth = Nothing
            End Select
            NotifyPropertyChanged(NameOf(DateOfBirthText))
        End Set
    End Property

    Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged

    Private Sub NotifyPropertyChanged(propertyName As String)
        RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
    End Sub
End Class

绑定代码：

' 绑定TextBox到中间字符串属性
txtDateOfBirth.DataBindings.Add(New Binding("Text", personInstance, NameOf(personInstance.DateOfBirthText), True, DataSourceUpdateMode.OnPropertyChanged))

这种方式可以完全控制输入解析逻辑，既保留OnPropertyChanged的实时更新特性，又不会自动补全年份。

方案2：自定义绑定的Format和Parse事件 #

直接绑定Date类型属性，但通过处理绑定的Format和Parse事件，仅在输入完整日期时才解析更新数据源：

Imports System.Globalization

' 创建绑定并添加事件处理
Dim dobBinding As New Binding("Text", personInstance, NameOf(personInstance.DateOfBirth), True, DataSourceUpdateMode.OnPropertyChanged)

' Format事件：将Date转为指定格式的字符串
AddHandler dobBinding.Format, Sub(sender, e)
                                 If e.Value IsNot Nothing AndAlso TypeOf e.Value Is Date Then
                                     e.Value = DirectCast(e.Value, Date).ToString("dd/MM/yyyy")
                                 End If
                             End Sub

' Parse事件：仅处理完整格式的输入，部分输入返回UnsetValue避免自动补全
AddHandler dobBinding.Parse, Sub(sender, e)
                                 Dim inputText As String = e.Value.ToString().Trim()
                                 Dim parsedDate As Date
                                 ' 只接受完整的dd/MM/yyyy格式
                                 If Date.TryParseExact(inputText, "dd/MM/yyyy", CultureInfo.InvariantCulture, DateTimeStyles.None, parsedDate) Then
                                     e.Value = parsedDate
                                 Else
                                     ' 部分输入时，不更新数据源
                                     e.Value = Binding.UnsetValue
                                 End If
                             End Sub

txtDateOfBirth.DataBindings.Add(dobBinding)

同时，你可以通过TextBox的TextChanged事件实时控制Save按钮的启用状态：

Private Sub txtDateOfBirth_TextChanged(sender As Object, e As EventArgs) Handles txtDateOfBirth.TextChanged
    btnSave.Enabled = Not String.IsNullOrWhiteSpace(txtDateOfBirth.Text)
    ' 可添加更严格的格式验证逻辑
End Sub

备选方案：使用DateTimePicker控件 #

如果业务允许，替换TextBox为DateTimePicker控件，设置自定义格式并开启上下键调整：

dtpDateOfBirth.CustomFormat = "dd/MM/yyyy"
dtpDateOfBirth.Format = DateTimePickerFormat.Custom
dtpDateOfBirth.ShowUpDown = True

' 绑定Date属性
dtpDateOfBirth.DataBindings.Add(New Binding("Value", personInstance, NameOf(personInstance.DateOfBirth), True, DataSourceUpdateMode.OnPropertyChanged))

这种方式无需额外处理解析逻辑，控件本身支持部分输入且不会自动补全年份，同时能实时触发数据源更新。

内容的提问来源于stack exchange，提问作者sinsi