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

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

ただいまの
回答率

89.23%

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

受付中

回答 0

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 4,319

pan

score 12

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

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

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

xaml

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

DatePickerDateFormat

Public Shared ReadOnly DateFormatProperty As DependencyProperty = DependencyProperty.RegisterAttached("DateFormat", GetType(String), GetType(DatePickerBehavior), New PropertyMetadata(Nothing, AddressOf OnDateFormatChanged))

    Public Shared Function GetDateFormat(dobj As DependencyObject) As String
        Return DirectCast(dobj.GetValue(DateFormatProperty), String)
    End Function

    Public Shared Sub SetDateFormat(dobj As DependencyObject, value As String)
        dobj.SetValue(DateFormatProperty, value)
    End Sub

    Private Shared Sub OnDateFormatChanged(dobj As DependencyObject, e As DependencyPropertyChangedEventArgs)
        Dim datePicker = DirectCast(dobj, DatePicker)

        Application.Current.Dispatcher.BeginInvoke(DispatcherPriority.Loaded, New Action(Of DatePicker)(AddressOf ApplyDateFormat), datePicker)
    End Sub

    Private Shared Sub ApplyDateFormat(datePicker As DatePicker)
        Dim binding = New Binding("SelectedDate") With { _
                .RelativeSource = New RelativeSource() With { _
                .AncestorType = GetType(DatePicker) _
            }, _
            .Converter = New DatePickerDateTimeConverter(), _
            .ConverterParameter = New Tuple(Of DatePicker, String)(datePicker, GetDateFormat(datePicker)) _
        }
        Dim textBox__1 = GetTemplateTextBox(datePicker)
        textBox__1.SetBinding(TextBox.TextProperty, binding)

        RemoveHandler textBox__1.PreviewKeyDown, AddressOf TextBoxOnPreviewKeyDown
        AddHandler textBox__1.PreviewKeyDown, AddressOf TextBoxOnPreviewKeyDown

        RemoveHandler datePicker.CalendarOpened, AddressOf DatePickerDateFormatOnCalendarOpened
        AddHandler datePicker.CalendarOpened, AddressOf DatePickerDateFormatOnCalendarOpened
    End Sub

    Private Shared Function GetTemplateTextBox(control As Control) As TextBox
        control.ApplyTemplate()
        Return DirectCast(control.Template.FindName("PART_TextBox", control), TextBox)
    End Function

    Private Shared Sub TextBoxOnPreviewKeyDown(sender As Object, e As KeyEventArgs)
        If e.Key <> Key.[Return] Then
            Return
        End If

        e.Handled = True

        Dim textBox = DirectCast(sender, TextBox)
        Dim datePicker = DirectCast(textBox.TemplatedParent, DatePicker)
        Dim dateStr = textBox.Text
        Dim formatStr = GetDateFormat(datePicker)
        datePicker.SelectedDate = DatePickerDateTimeConverter.StringToDateTime(datePicker, formatStr, dateStr)
    End Sub

    Private Shared Sub DatePickerDateFormatOnCalendarOpened(sender As Object, e As RoutedEventArgs)

        Dim datePicker = DirectCast(sender, DatePicker)
        Dim textBox = GetTemplateTextBox(datePicker)
        Dim formatStr = GetDateFormat(datePicker)
        textBox.Text = DatePickerDateTimeConverter.DateTimeToString(formatStr, datePicker.SelectedDate)
    End Sub

    Private Class DatePickerDateTimeConverter
        Implements IValueConverter

        Public Function IValueConverter_ConvertBack(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.ConvertBack
            Dim tupleParam = DirectCast(parameter, Tuple(Of DatePicker, String))
            Dim dateStr = DirectCast(value, String)
            Return StringToDateTime(tupleParam.Item1, tupleParam.Item2, dateStr)
        End Function

        Public Function IValueConverter_Convert(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.Convert
            Dim formatStr = DirectCast(parameter, Tuple(Of DatePicker, String)).Item2
            Dim selectedDate = DirectCast(value, System.Nullable(Of DateTime))
            Return DateTimeToString(formatStr, selectedDate)
        End Function

        Public Shared Function DateTimeToString(formatStr As String, selectedDate As System.Nullable(Of DateTime)) As String
            Return If(selectedDate.HasValue, selectedDate.Value.ToString(formatStr), Nothing)
        End Function

        Public Shared Function StringToDateTime(datePicker As DatePicker, formatStr As String, dateStr As String) As System.Nullable(Of DateTime)
            Dim [date] As DateTime
            Dim canParse = DateTime.TryParseExact(dateStr, formatStr, CultureInfo.CurrentCulture, DateTimeStyles.None, [date])

            If Not canParse Then
                canParse = DateTime.TryParse(dateStr, CultureInfo.CurrentCulture, DateTimeStyles.None, [date])
            End If

            Return If(canParse, [date], datePicker.SelectedDate)
        End Function
    End Class
  • 気になる質問をクリップする

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

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

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

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

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

  • ただいまの回答率 89.23%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる