Public Class arindv
    Private v_EnterToTab As Boolean = True
    Private v_DeleteKey As Boolean = True

    Public Event EditControl_Keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)


#Region " {Enter} Keyboard Override "

    ''' <summary>
    ''' ¿£ÅÍŰó¸® ¿À¹ö¶óÀ̵å
    ''' </summary>
    ''' <param name="keyData"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Protected Overrides Function ProcessDialogKey(ByVal keyData As Windows.Forms.Keys) As Boolean
        If v_EnterToTab AndAlso keyData = Windows.Forms.Keys.Enter Then
            MyBase.ProcessTabKey(Windows.Forms.Keys.Tab)
            Return True
        End If
        Return MyBase.ProcessDialogKey(keyData)
    End Function

    ''' <summary>
    ''' ¿£ÅÍŰ󸮿À¹ö¶óÀ̵å
    ''' </summary>
    ''' <param name="e"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Protected Overrides Function ProcessDataGridViewKey(ByVal e As Windows.Forms.KeyEventArgs) As Boolean
        If e.KeyCode = Windows.Forms.Keys.Enter Then
            MyBase.ProcessTabKey(Windows.Forms.Keys.Tab)
            Return True
        End If
        Return MyBase.ProcessDataGridViewKey(e)
    End Function
#End Region

   
    ''' <summary>
    ''' ÇöÀç ¼¿À» »èÁ¦ÇÒ°ÍÀÎÁö?
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <System.ComponentModel.Description("ºä¿¡¼­ ¹ß»ýÇÏ´Â ¸Þ¼¼Áö¸¦ Ç¥½ÃÇÒ ¶óº§ÀÔ´Ï´Ù.")> _
    Public Property A_DelCurrentCell() As Boolean
        Get
            Return Me.v_DeleteKey
        End Get
        Set(ByVal value As Boolean)
            Me.v_DeleteKey = value
        End Set
    End Property


    ''' <summary>
    ''' ¿£ÅÍÅ°¸¦ ´©¸¦¶§ ÅÇÅ°¸¦ ¹ß»ýÇÕ´Ï´Ù
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <System.ComponentModel.Description("¿£ÅÍÅ°¸¦ ´©¸¦¶§ ÅÇÅ°¸¦ ¹ß»ýÇÕ´Ï´Ù")> _
    Public Property A_EnterToTab() As Boolean
        Get
            Return Me.v_EnterToTab
        End Get
        Set(ByVal value As Boolean)
            Me.v_EnterToTab = value
        End Set
    End Property

    Private Sub arindv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyCode

            Case Windows.Forms.Keys.Delete
                'MsgBox(Me.CurrentCellAddress.ToString, MsgBoxStyle.Information, Me.CurrentCell.Value)
                If e.Shift Then
                    Me.Rows.Remove(Me.CurrentRow)   '//ÁÙ»èÁ¦
                Else
                    If v_DeleteKey AndAlso Me.RowCount > 0 Then Me.CurrentCell.Value = DBNull.Value
                End If

        End Select
    End Sub

End Class