Imports System.Windows.Controls.Primitives
 
 
Public Class TextBox2nd
    Inherits System.Windows.Controls.TextBox
 
    Shared Sub New()
        'この OverrideMetadata 呼び出しは、この要素が基本クラスと異なるスタイルを提供することをシステムに通知します。
        'このスタイルは themes\generic.xaml に定義されています
        DefaultStyleKeyProperty.OverrideMetadata(GetType(TextBox2nd), New FrameworkPropertyMetadata(GetType(TextBox)))
    End Sub
 
    Public Shared ReadOnly DateValueProperty As DependencyProperty = DependencyProperty.Register( _
          "DateValue", _
          GetType(Date?), _
          GetType(TextBox2nd), _
          New PropertyMetadata())
 
    Public Property DateValue() As Date?
        Get
            Return DirectCast(GetValue(DateValueProperty), Date)
        End Get
        Set(ByVal value As Date?)
            SetValue(DateValueProperty, value)
 
            'このタイミングでTextプロパティに設定した日付を表示したい
            SetValue(TextProperty, value.ToString)
 
        End Set
    End Property
 
End Class

SW1wb3J0cyBTeXN0ZW0uV2luZG93cy5Db250cm9scy5QcmltaXRpdmVzCgoKUHVibGljIENsYXNzIFRleHRCb3gybmQKICAgIEluaGVyaXRzIFN5c3RlbS5XaW5kb3dzLkNvbnRyb2xzLlRleHRCb3gKCiAgICBTaGFyZWQgU3ViIE5ldygpCiAgICAgICAgJ+OBk+OBriBPdmVycmlkZU1ldGFkYXRhIOWRvOOBs+WHuuOBl+OBr+OAgeOBk+OBruimgee0oOOBjOWfuuacrOOCr+ODqeOCueOBqOeVsOOBquOCi+OCueOCv+OCpOODq+OCkuaPkOS+m+OBmeOCi+OBk+OBqOOCkuOCt+OCueODhuODoOOBq+mAmuefpeOBl+OBvuOBmeOAggogICAgICAgICfjgZPjga7jgrnjgr/jgqTjg6vjga8gdGhlbWVzXGdlbmVyaWMueGFtbCDjgavlrprnvqnjgZXjgozjgabjgYTjgb7jgZkKICAgICAgICBEZWZhdWx0U3R5bGVLZXlQcm9wZXJ0eS5PdmVycmlkZU1ldGFkYXRhKEdldFR5cGUoVGV4dEJveDJuZCksIE5ldyBGcmFtZXdvcmtQcm9wZXJ0eU1ldGFkYXRhKEdldFR5cGUoVGV4dEJveCkpKQogICAgRW5kIFN1YgoKICAgIFB1YmxpYyBTaGFyZWQgUmVhZE9ubHkgRGF0ZVZhbHVlUHJvcGVydHkgQXMgRGVwZW5kZW5jeVByb3BlcnR5ID0gRGVwZW5kZW5jeVByb3BlcnR5LlJlZ2lzdGVyKCBfCiAgICAgICAgICAiRGF0ZVZhbHVlIiwgXwogICAgICAgICAgR2V0VHlwZShEYXRlPyksIF8KICAgICAgICAgIEdldFR5cGUoVGV4dEJveDJuZCksIF8KICAgICAgICAgIE5ldyBQcm9wZXJ0eU1ldGFkYXRhKCkpCgogICAgUHVibGljIFByb3BlcnR5IERhdGVWYWx1ZSgpIEFzIERhdGU/CiAgICAgICAgR2V0CiAgICAgICAgICAgIFJldHVybiBEaXJlY3RDYXN0KEdldFZhbHVlKERhdGVWYWx1ZVByb3BlcnR5KSwgRGF0ZSkKICAgICAgICBFbmQgR2V0CiAgICAgICAgU2V0KEJ5VmFsIHZhbHVlIEFzIERhdGU/KQogICAgICAgICAgICBTZXRWYWx1ZShEYXRlVmFsdWVQcm9wZXJ0eSwgdmFsdWUpCgogICAgICAgICAgICAn44GT44Gu44K/44Kk44Of44Oz44Kw44GnVGV4dOODl+ODreODkeODhuOCo+OBq+ioreWumuOBl+OBn+aXpeS7mOOCkuihqOekuuOBl+OBn+OBhAogICAgICAgICAgICBTZXRWYWx1ZShUZXh0UHJvcGVydHksIHZhbHVlLlRvU3RyaW5nKQoKICAgICAgICBFbmQgU2V0CiAgICBFbmQgUHJvcGVydHkKCkVuZCBDbGFzcw==