MonthCalendar での日付選択

前回の記事では、DateTimePickerコントロールを使ってDetaGridView内の日付けデータを入力することを、試みましたが、実装方法に確信が持てないのと、カレンダーコントロールを表示するまでの手順の多さが気に入らず、もう一つのカレンダーコントロール　MonthCalendarを使うことに挑戦してみました。

まず、選択したセル位置に合わせて、MonthCalendarを表示することからです。

旧＠IT会議室 > Insider.NET > DataGridView内のカレントセルの表示位置が知りたい

を参考に、日付のセルの右に表示するところまで、進みました。

    Private columnIndex As Integer
    Private rowIndex As Integer
の変数は、別なイベントでも使いたかったので、Private変数にしました。

Private Sub dataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick Dim cutOverflow As Boolean = False Dim returnValue As Rectangle Dim cell As DataGridViewCell = CType(DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex), DataGridViewCell) columnIndex = e.ColumnIndex rowIndex = e.RowIndex If columnIndex = 1 Then cell.Value IsNot DBNull.Value Then MonthCalendar1.SetDate(cell.Value) MonthCalendar1.Visible = True returnValue = DataGridView1.GetCellDisplayRectangle(columnIndex, rowIndex, cutOverflow) MonthCalendar1.Location = New Point(returnValue.X + DataGridView1.Location.X + returnValue.Width, returnValue.Y + DataGridView1.Location.Y) End If End Sub

選択した、セルの日付をカレンダーコントロールへの反映、MonthCalendarの表示・非表示の切り替えも実現しました。

選択した、日付のセルへの反映、選択後のカレンダーコントロールの非表示はこちらです。 Private Sub MonthCalendar1_DateSelected(sender As Object, e As DateRangeEventArgs) Handles MonthCalendar1.DateSelected Dim cell As DataGridViewCell = CType(DataGridView1.Rows(rowIndex).Cells(columnIndex), DataGridViewCell) cell.Value = e.Start MonthCalendar1.SetDate(Now) MonthCalendar1.Visible = False End Sub

右クリックでの、カレンダーコントロールの非表示も実装しました。 Private Sub 閉じるToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 閉じるToolStripMenuItem.Click MonthCalendar1.SetDate(Now) MonthCalendar1.Visible = False End Sub

フォーム内にデータグリッドビューが二つあるので、共通化が残る課題です。

＊当日追記
共通化については、セル関連の変数の共通化で対処しました。