menampilkan kalender dalam datagridview vb.net

Seringkali kita membutuhkan data tanggal sejenis datetimepicker dalam sebuah datagridview. Untuk itu marilah kita coba membuatnya dengan langkah-langkah sebagai berikut :

1.      Buatlah sebuah project baru

2.      Buatlah sebuah form dan tambahkan sebuah datagridview

3.      Lalu ketiklah atau copy coding di bawah ini :

Imports System.Data.OleDb

Imports System

Imports System.Windows.Forms

Public Class Form1

    Sub KolomBaru()

        Dim ColumnName1, ColumnName2 As New CalendarColumn()

        DGV.Columns.Add("KodeKamar", "Kode Kamar")

        ColumnName1.HeaderText = "Tgl Masuk"

        DGV.Columns.Add(ColumnName1)

        ColumnName2.HeaderText = "Tgl Keluar"

        DGV.Columns.Add(ColumnName2)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call KolomBaru()

    End Sub

    Public Class CalendarColumn

        Inherits DataGridViewColumn

        Public Sub New()

            MyBase.New(New CalendarCell())

        End Sub

        Public Overrides Property CellTemplate() As DataGridViewCell

            Get

                Return MyBase.CellTemplate

            End Get

            Set(ByVal value As DataGridViewCell)

                If (value IsNot Nothing) AndAlso Not value.GetType().IsAssignableFrom(GetType(CalendarCell)) Then

                    Throw New InvalidCastException("Must be a CalendarCell")

                End If

                MyBase.CellTemplate = value

            End Set

        End Property

    End Class

    Public Class CalendarCell

        Inherits DataGridViewTextBoxCell

        Public Sub New()

            Me.Style.Format = "d"

        End Sub

        Public Overrides Sub InitializeEditingControl(ByVal rowIndex As Integer, ByVal initialFormattedValue As Object, ByVal dataGridViewCellStyle As DataGridViewCellStyle)

            On Error Resume Next

            MyBase.InitializeEditingControl(rowIndex, initialFormattedValue, dataGridViewCellStyle)

            Dim ctl As CalendarEditingControl = CType(DataGridView.EditingControl, CalendarEditingControl)

            If (Me.Value Is Nothing) Then

                ctl.Value = CType(Me.DefaultNewRowValue, DateTime)

            Else

                ctl.Value = CType(Me.Value, DateTime)

            End If

        End Sub

        Public Overrides ReadOnly Property EditType() As Type

            Get

                Return GetType(CalendarEditingControl)

            End Get

        End Property

        Public Overrides ReadOnly Property ValueType() As Type

            Get

                Return GetType(DateTime)

            End Get

        End Property

        Public Overrides ReadOnly Property DefaultNewRowValue() As Object

            Get

                Return DateTime.Now

            End Get

        End Property

    End Class

    Public Class CalendarEditingControl

        Inherits DateTimePicker

        Implements IDataGridViewEditingControl

        Private dataGridViewControl As DataGridView

        Private valueIsChanged As Boolean = False

        Private rowIndexNum As Integer

        Public Sub New()

            Me.Format = DateTimePickerFormat.Short

        End Sub

        Public Property EditingControlFormattedValue() As Object Implements IDataGridViewEditingControl.EditingControlFormattedValue

            Get

                Return Me.Value.ToShortDateString()

            End Get

            Set(ByVal value As Object)

                Try

                    Me.Value = DateTime.Parse(CStr(value))

                Catch

                    Me.Value = DateTime.Now

                End Try

            End Set

        End Property

        Public Function GetEditingControlFormattedValue(ByVal context As DataGridViewDataErrorContexts) As Object _

            Implements IDataGridViewEditingControl.GetEditingControlFormattedValue

            Return Me.Value.ToShortDateString()

        End Function

        Public Sub ApplyCellStyleToEditingControl(ByVal dataGridViewCellStyle As DataGridViewCellStyle) Implements IDataGridViewEditingControl.ApplyCellStyleToEditingControl

            Me.Font = dataGridViewCellStyle.Font

            Me.CalendarForeColor = dataGridViewCellStyle.ForeColor

            Me.CalendarMonthBackground = dataGridViewCellStyle.BackColor

        End Sub

        Public Property EditingControlRowIndex() As Integer Implements IDataGridViewEditingControl.EditingControlRowIndex

            Get

                Return rowIndexNum

            End Get

            Set(ByVal value As Integer)

                rowIndexNum = value

            End Set

        End Property

        Public Function EditingControlWantsInputKey(ByVal key As Keys, ByVal dataGridViewWantsInputKey As Boolean) As Boolean Implements IDataGridViewEditingControl.EditingControlWantsInputKey

            Select Case key And Keys.KeyCode

                Case Keys.Left, Keys.Up, Keys.Down, Keys.Right, _

                    Keys.Home, Keys.End, Keys.PageDown, Keys.PageUp

                    Return True

                Case Else

                    Return Not dataGridViewWantsInputKey

            End Select

        End Function

        Public Sub PrepareEditingControlForEdit(ByVal selectAll As Boolean) Implements IDataGridViewEditingControl.PrepareEditingControlForEdit

        End Sub

        Public ReadOnly Property RepositionEditingControlOnValueChange() As Boolean Implements IDataGridViewEditingControl.RepositionEditingControlOnValueChange

            Get

                Return False

            End Get

        End Property

        Public Property EditingControlDataGridView() As DataGridView Implements IDataGridViewEditingControl.EditingControlDataGridView

            Get

                Return dataGridViewControl

            End Get

            Set(ByVal value As DataGridView)

                dataGridViewControl = value

            End Set

        End Property

        Public Property EditingControlValueChanged() As Boolean Implements IDataGridViewEditingControl.EditingControlValueChanged

            Get

                Return valueIsChanged

            End Get

            Set(ByVal value As Boolean)

                valueIsChanged = value

            End Set

        End Property

        Public ReadOnly Property EditingControlCursor() As Cursor Implements IDataGridViewEditingControl.EditingPanelCursor

            Get

                Return MyBase.Cursor

            End Get

        End Property

        Protected Overrides Sub OnValueChanged(ByVal eventargs As EventArgs)

            valueIsChanged = True

            Me.EditingControlDataGridView.NotifyCurrentCellDirty(True)

            MyBase.OnValueChanged(eventargs)

        End Sub

    End Class

End Class

Hasil akhir dari coding tersebut adalah sebagai berikut :