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(New PropertyChangedCallback(AddressOf OnDateChanged)))
 
    Public Property DateValue() As Date?
        Get
            Return DirectCast(GetValue(DateValueProperty), Date?)
        End Get
        Set(ByVal value As Date?)
            SetValue(DateValueProperty, value)
 
        End Set
    End Property
 
    Private Shared Sub OnDateChanged(ByVal d As DependencyObject, ByVal e As DependencyPropertyChangedEventArgs)
        Dim textbox2 As TextBox2nd = DirectCast(d, TextBox2nd)
        If DirectCast(e.NewValue, Date?).HasValue Then
            textbox2.SetValue(TextProperty, DirectCast(e.NewValue, Date?).Value.ToString("yyyy/MM"))
        Else
            textbox2.SetValue(TextProperty, String.Empty)
        End If
 
    End Sub
 
End Class

SW1wb3J0cyBTeXN0ZW0uV2luZG93cy5Db250cm9scy5QcmltaXRpdmVzCgoKUHVibGljIENsYXNzIFRleHRCb3gybmQKICAgIEluaGVyaXRzIFN5c3RlbS5XaW5kb3dzLkNvbnRyb2xzLlRleHRCb3gKCiAgICBTaGFyZWQgU3ViIE5ldygpCiAgICAgICAgJ+OBk+OBriBPdmVycmlkZU1ldGFkYXRhIOWRvOOBs+WHuuOBl+OBr+OAgeOBk+OBruimgee0oOOBjOWfuuacrOOCr+ODqeOCueOBqOeVsOOBquOCi+OCueOCv+OCpOODq+OCkuaPkOS+m+OBmeOCi+OBk+OBqOOCkuOCt+OCueODhuODoOOBq+mAmuefpeOBl+OBvuOBmeOAggogICAgICAgICfjgZPjga7jgrnjgr/jgqTjg6vjga8gdGhlbWVzXGdlbmVyaWMueGFtbCDjgavlrprnvqnjgZXjgozjgabjgYTjgb7jgZkKICAgICAgICBEZWZhdWx0U3R5bGVLZXlQcm9wZXJ0eS5PdmVycmlkZU1ldGFkYXRhKEdldFR5cGUoVGV4dEJveDJuZCksIE5ldyBGcmFtZXdvcmtQcm9wZXJ0eU1ldGFkYXRhKEdldFR5cGUoVGV4dEJveCkpKQogICAgRW5kIFN1YgoKICAgIFB1YmxpYyBTaGFyZWQgUmVhZE9ubHkgRGF0ZVZhbHVlUHJvcGVydHkgQXMgRGVwZW5kZW5jeVByb3BlcnR5ID0gRGVwZW5kZW5jeVByb3BlcnR5LlJlZ2lzdGVyKCBfCiAgICAgICAgICAiRGF0ZVZhbHVlIiwgXwogICAgICAgICAgR2V0VHlwZShEYXRlPyksIF8KICAgICAgICAgIEdldFR5cGUoVGV4dEJveDJuZCksIF8KICAgICAgICAgICBOZXcgUHJvcGVydHlNZXRhZGF0YShOZXcgUHJvcGVydHlDaGFuZ2VkQ2FsbGJhY2soQWRkcmVzc09mIE9uRGF0ZUNoYW5nZWQpKSkKCiAgICBQdWJsaWMgUHJvcGVydHkgRGF0ZVZhbHVlKCkgQXMgRGF0ZT8KICAgICAgICBHZXQKICAgICAgICAgICAgUmV0dXJuIERpcmVjdENhc3QoR2V0VmFsdWUoRGF0ZVZhbHVlUHJvcGVydHkpLCBEYXRlPykKICAgICAgICBFbmQgR2V0CiAgICAgICAgU2V0KEJ5VmFsIHZhbHVlIEFzIERhdGU/KQogICAgICAgICAgICBTZXRWYWx1ZShEYXRlVmFsdWVQcm9wZXJ0eSwgdmFsdWUpCgogICAgICAgIEVuZCBTZXQKICAgIEVuZCBQcm9wZXJ0eQoKICAgIFByaXZhdGUgU2hhcmVkIFN1YiBPbkRhdGVDaGFuZ2VkKEJ5VmFsIGQgQXMgRGVwZW5kZW5jeU9iamVjdCwgQnlWYWwgZSBBcyBEZXBlbmRlbmN5UHJvcGVydHlDaGFuZ2VkRXZlbnRBcmdzKQogICAgICAgIERpbSB0ZXh0Ym94MiBBcyBUZXh0Qm94Mm5kID0gRGlyZWN0Q2FzdChkLCBUZXh0Qm94Mm5kKQogICAgICAgIElmIERpcmVjdENhc3QoZS5OZXdWYWx1ZSwgRGF0ZT8pLkhhc1ZhbHVlIFRoZW4KICAgICAgICAgICAgdGV4dGJveDIuU2V0VmFsdWUoVGV4dFByb3BlcnR5LCBEaXJlY3RDYXN0KGUuTmV3VmFsdWUsIERhdGU/KS5WYWx1ZS5Ub1N0cmluZygieXl5eS9NTSIpKQogICAgICAgIEVsc2UKICAgICAgICAgICAgdGV4dGJveDIuU2V0VmFsdWUoVGV4dFByb3BlcnR5LCBTdHJpbmcuRW1wdHkpCiAgICAgICAgRW5kIElmCgogICAgRW5kIFN1YgoKRW5kIENsYXNz