Scribd
Upload
43 views5 pages

Imports Imports Imports Public Class Sub Dim As New: "Kodekamar" "Kode Kamar" "TGL Masuk" "TGL Keluar"

The document provides code to display a calendar in a DataGridView in VB.NET. It includes code to: 1. Add calendar columns to the DataGridView 2. Create custom calendar cell and editing controls to display dates 3. Initialize the calendar columns and controls when the form loads

Uploaded by

Richard Abraham
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
43 views5 pages

Imports Imports Imports Public Class Sub Dim As New: "Kodekamar" "Kode Kamar" "TGL Masuk" "TGL Keluar"

The document provides code to display a calendar in a DataGridView in VB.NET. It includes code to: 1. Add calendar columns to the DataGridView 2. Create custom calendar cell and editing controls to display dates 3. Initialize the calendar columns and controls when the form loads

Uploaded by

Richard Abraham
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 5

uusrusmawan.

com
Media Belajar VB.Net Online & Bimbingan Tugas Akhir - Skripsi

Cara 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

1
uusrusmawan.com
Media Belajar VB.Net Online & Bimbingan Tugas Akhir - Skripsi

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

2
uusrusmawan.com
Media Belajar VB.Net Online & Bimbingan Tugas Akhir - Skripsi

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

3
uusrusmawan.com
Media Belajar VB.Net Online & Bimbingan Tugas Akhir - Skripsi

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

4
uusrusmawan.com
Media Belajar VB.Net Online & Bimbingan Tugas Akhir - Skripsi

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

You might also like