質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.51%
VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

WPF

Windows Presentation Foundation (WPF) は、魅力的な外観のユーザー エクスペリエンスを持つ Windows クライアント アプリケーションを作成するための次世代プレゼンテーション システムです

Q&A

0回答

6843閲覧

WPFのDatePickerでの年月入力について

pan

総合スコア12

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

WPF

Windows Presentation Foundation (WPF) は、魅力的な外観のユーザー エクスペリエンスを持つ Windows クライアント アプリケーションを作成するための次世代プレゼンテーション システムです

0グッド

0クリップ

投稿2016/09/02 06:43

編集2022/01/12 10:55

参考サイト
http://youku.io/questions/213161/wpf-toolkit-datepicker-month-year-only

上記のサイトを参考に月までのDatePickerを作りました。
カレンダーから日付を選択した場合は「yyyy/MM」形式で日付が反映されるのですが、
手入力で日付を変更して、すぐにボタンをクリックすると、日付が反映されません。

修正の仕方が分かる人がいらしたら教えて下さい。

xaml

vb

1<DatePicker local:DatePickerCalender.IsMonthYear="True" 2 local:DatePickerDateFormat.DateFormat="yyyy/MM" 3 SelectedDate="{Binding 年月}"/>

DatePickerDateFormat

vb

1Public Shared ReadOnly DateFormatProperty As DependencyProperty = DependencyProperty.RegisterAttached("DateFormat", GetType(String), GetType(DatePickerBehavior), New PropertyMetadata(Nothing, AddressOf OnDateFormatChanged)) 2 3 Public Shared Function GetDateFormat(dobj As DependencyObject) As String 4 Return DirectCast(dobj.GetValue(DateFormatProperty), String) 5 End Function 6 7 Public Shared Sub SetDateFormat(dobj As DependencyObject, value As String) 8 dobj.SetValue(DateFormatProperty, value) 9 End Sub 10 11 Private Shared Sub OnDateFormatChanged(dobj As DependencyObject, e As DependencyPropertyChangedEventArgs) 12 Dim datePicker = DirectCast(dobj, DatePicker) 13 14 Application.Current.Dispatcher.BeginInvoke(DispatcherPriority.Loaded, New Action(Of DatePicker)(AddressOf ApplyDateFormat), datePicker) 15 End Sub 16 17 Private Shared Sub ApplyDateFormat(datePicker As DatePicker) 18 Dim binding = New Binding("SelectedDate") With { _ 19 .RelativeSource = New RelativeSource() With { _ 20 .AncestorType = GetType(DatePicker) _ 21 }, _ 22 .Converter = New DatePickerDateTimeConverter(), _ 23 .ConverterParameter = New Tuple(Of DatePicker, String)(datePicker, GetDateFormat(datePicker)) _ 24 } 25 Dim textBox__1 = GetTemplateTextBox(datePicker) 26 textBox__1.SetBinding(TextBox.TextProperty, binding) 27 28 RemoveHandler textBox__1.PreviewKeyDown, AddressOf TextBoxOnPreviewKeyDown 29 AddHandler textBox__1.PreviewKeyDown, AddressOf TextBoxOnPreviewKeyDown 30 31 RemoveHandler datePicker.CalendarOpened, AddressOf DatePickerDateFormatOnCalendarOpened 32 AddHandler datePicker.CalendarOpened, AddressOf DatePickerDateFormatOnCalendarOpened 33 End Sub 34 35 Private Shared Function GetTemplateTextBox(control As Control) As TextBox 36 control.ApplyTemplate() 37 Return DirectCast(control.Template.FindName("PART_TextBox", control), TextBox) 38 End Function 39 40 Private Shared Sub TextBoxOnPreviewKeyDown(sender As Object, e As KeyEventArgs) 41 If e.Key <> Key.[Return] Then 42 Return 43 End If 44 45 e.Handled = True 46 47 Dim textBox = DirectCast(sender, TextBox) 48 Dim datePicker = DirectCast(textBox.TemplatedParent, DatePicker) 49 Dim dateStr = textBox.Text 50 Dim formatStr = GetDateFormat(datePicker) 51 datePicker.SelectedDate = DatePickerDateTimeConverter.StringToDateTime(datePicker, formatStr, dateStr) 52 End Sub 53 54 Private Shared Sub DatePickerDateFormatOnCalendarOpened(sender As Object, e As RoutedEventArgs) 55 56 Dim datePicker = DirectCast(sender, DatePicker) 57 Dim textBox = GetTemplateTextBox(datePicker) 58 Dim formatStr = GetDateFormat(datePicker) 59 textBox.Text = DatePickerDateTimeConverter.DateTimeToString(formatStr, datePicker.SelectedDate) 60 End Sub 61 62 Private Class DatePickerDateTimeConverter 63 Implements IValueConverter 64 65 Public Function IValueConverter_ConvertBack(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.ConvertBack 66 Dim tupleParam = DirectCast(parameter, Tuple(Of DatePicker, String)) 67 Dim dateStr = DirectCast(value, String) 68 Return StringToDateTime(tupleParam.Item1, tupleParam.Item2, dateStr) 69 End Function 70 71 Public Function IValueConverter_Convert(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.Convert 72 Dim formatStr = DirectCast(parameter, Tuple(Of DatePicker, String)).Item2 73 Dim selectedDate = DirectCast(value, System.Nullable(Of DateTime)) 74 Return DateTimeToString(formatStr, selectedDate) 75 End Function 76 77 Public Shared Function DateTimeToString(formatStr As String, selectedDate As System.Nullable(Of DateTime)) As String 78 Return If(selectedDate.HasValue, selectedDate.Value.ToString(formatStr), Nothing) 79 End Function 80 81 Public Shared Function StringToDateTime(datePicker As DatePicker, formatStr As String, dateStr As String) As System.Nullable(Of DateTime) 82 Dim [date] As DateTime 83 Dim canParse = DateTime.TryParseExact(dateStr, formatStr, CultureInfo.CurrentCulture, DateTimeStyles.None, [date]) 84 85 If Not canParse Then 86 canParse = DateTime.TryParse(dateStr, CultureInfo.CurrentCulture, DateTimeStyles.None, [date]) 87 End If 88 89 Return If(canParse, [date], datePicker.SelectedDate) 90 End Function 91 End Class

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.51%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問