У меня есть приложение Windows Forms с пользовательским элементом управления для ввода дат.Это наследуется от Textbox и реализует свойство Value для привязки к базовому бизнес-объекту.
Все работает хорошо, за исключением того, что когда элемент управления проверяет, он обновляет связанное свойство, даже если оно не изменилось.Это проблема, потому что я использую Entity Framework, а изменение свойства объекта приводит к тому, что соответствующее поле в базе данных обновляется каждый раз, когда пользователь открывает и закрывает форму, на которой размещен этот элемент управления.
Воткод:
Public Class TextBoxDate
Inherits TextBox
Public ValueChanged As EventHandler
Private _dateValue As Nullable(Of Date) = Nothing
<Bindable(True)> _
<Category("Appearance")> _
Public Property Value() As Nullable(Of Date)
' Bind to the Value property instead of the Text property, as the latter will not allow
' the user to delete the contents of the textbox. The Value property provides support for nulls.
Get
Value = _dateValue
End Get
Set(ByVal value As Nullable(Of Date))
_dateValue = value
' Update the text in the textbox
If value.HasValue Then
Text = CDate(value).ToShortDateString
Else
Text = vbNullString
End If
OnValueChanged()
End Set
End Property
Private Sub OnValueChanged()
If (ValueChanged IsNot Nothing) Then
ValueChanged(Me, New EventArgs())
End If
End Sub
Private Sub TextBoxDate_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Enter
_userEntered = True
End Sub
Private Sub TextBoxDate_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Leave
_userEntered = False
End Sub
Protected Overrides Sub OnValidating(ByVal e As System.ComponentModel.CancelEventArgs)
If _userEntered Then
If Me.TextLength = 0 Then
' Null value will be saved to the database via the bound Value property
If Value IsNot Nothing Then
Value = Nothing
End If
Else
Dim dateValue As Date
If Date.TryParseExact(Text, "d/M/yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo, Globalization.DateTimeStyles.None, dateValue) Then
If Value Is Nothing Or (dateValue <> Value) Then
Value = CDate(Text)
End If
Else
e.Cancel = True
End If
End If
End If
MyBase.OnValidating(e)
End Sub
End Class
Это сводит меня с ума.Любая помощь будет высоко ценится.
Скотт