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 ValidateValueCallback(AddressOf DateChanged))
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 Function DateChanged() As Boolean
SetValue(TextProperty, DirectCast(GetValue(DateValueProperty), Date?))
Return True
End Function
'どっちもエラー
Private Function DateChanged() As Boolean
SetValue(TextProperty, DirectCast(GetValue(DateValueProperty), Date?))
Return True
End Function
End Class
SW1wb3J0cyBTeXN0ZW0uV2luZG93cy5Db250cm9scy5QcmltaXRpdmVzCgoKUHVibGljIENsYXNzIFRleHRCb3gybmQKICAgIEluaGVyaXRzIFN5c3RlbS5XaW5kb3dzLkNvbnRyb2xzLlRleHRCb3gKCiAgICBTaGFyZWQgU3ViIE5ldygpCiAgICAgICAgJ+OBk+OBriBPdmVycmlkZU1ldGFkYXRhIOWRvOOBs+WHuuOBl+OBr+OAgeOBk+OBruimgee0oOOBjOWfuuacrOOCr+ODqeOCueOBqOeVsOOBquOCi+OCueOCv+OCpOODq+OCkuaPkOS+m+OBmeOCi+OBk+OBqOOCkuOCt+OCueODhuODoOOBq+mAmuefpeOBl+OBvuOBmeOAggogICAgICAgICfjgZPjga7jgrnjgr/jgqTjg6vjga8gdGhlbWVzXGdlbmVyaWMueGFtbCDjgavlrprnvqnjgZXjgozjgabjgYTjgb7jgZkKICAgICAgICBEZWZhdWx0U3R5bGVLZXlQcm9wZXJ0eS5PdmVycmlkZU1ldGFkYXRhKEdldFR5cGUoVGV4dEJveDJuZCksIE5ldyBGcmFtZXdvcmtQcm9wZXJ0eU1ldGFkYXRhKEdldFR5cGUoVGV4dEJveCkpKQogICAgRW5kIFN1YgoKICAgIFB1YmxpYyBTaGFyZWQgUmVhZE9ubHkgRGF0ZVZhbHVlUHJvcGVydHkgQXMgRGVwZW5kZW5jeVByb3BlcnR5ID0gRGVwZW5kZW5jeVByb3BlcnR5LlJlZ2lzdGVyKCBfCiAgICAgICAgICAiRGF0ZVZhbHVlIiwgXwogICAgICAgICAgR2V0VHlwZShEYXRlPyksIF8KICAgICAgICAgIEdldFR5cGUoVGV4dEJveDJuZCksIF8KICAgICAgICAgICBOZXcgUHJvcGVydHlNZXRhZGF0YSgpLCBfCiAgICAgICAgICAgTmV3IFZhbGlkYXRlVmFsdWVDYWxsYmFjayhBZGRyZXNzT2YgRGF0ZUNoYW5nZWQpKQoKICAgIFB1YmxpYyBQcm9wZXJ0eSBEYXRlVmFsdWUoKSBBcyBEYXRlPwogICAgICAgIEdldAogICAgICAgICAgICBSZXR1cm4gRGlyZWN0Q2FzdChHZXRWYWx1ZShEYXRlVmFsdWVQcm9wZXJ0eSksIERhdGU/KQogICAgICAgIEVuZCBHZXQKICAgICAgICBTZXQoQnlWYWwgdmFsdWUgQXMgRGF0ZT8pCiAgICAgICAgICAgIFNldFZhbHVlKERhdGVWYWx1ZVByb3BlcnR5LCB2YWx1ZSkKCiAgICAgICAgRW5kIFNldAogICAgRW5kIFByb3BlcnR5CgogICAgJ+OCqOODqeODvOOBjOa2iOOBiOOBquOBhAogICAgUHJpdmF0ZSBTaGFyZWQgRnVuY3Rpb24gRGF0ZUNoYW5nZWQoKSBBcyBCb29sZWFuCiAgICAgICAgU2V0VmFsdWUoVGV4dFByb3BlcnR5LCBEaXJlY3RDYXN0KEdldFZhbHVlKERhdGVWYWx1ZVByb3BlcnR5KSwgRGF0ZT8pKQogICAgICAgIFJldHVybiBUcnVlCiAgICBFbmQgRnVuY3Rpb24KICAgICfjganjgaPjgaHjgoLjgqjjg6njg7wKICAgIFByaXZhdGUgRnVuY3Rpb24gRGF0ZUNoYW5nZWQoKSBBcyBCb29sZWFuCiAgICAgICAgU2V0VmFsdWUoVGV4dFByb3BlcnR5LCBEaXJlY3RDYXN0KEdldFZhbHVlKERhdGVWYWx1ZVByb3BlcnR5KSwgRGF0ZT8pKQogICAgICAgIFJldHVybiBUcnVlCiAgICBFbmQgRnVuY3Rpb24KCkVuZCBDbGFzcw==