initial commit

2019-10-24 21:24:21 +09:00
commit 376f7d9de0
544 changed files with 295019 additions and 0 deletions
--- a/CEnergy/ArinClassV2/ArinDV.vb
+++ b/CEnergy/ArinClassV2/ArinDV.vb
@@ -0,0 +1,87 @@
+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>
+    ''' <20><><EFBFBD><EFBFBD>Űó<C5B0><C3B3> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̵<EFBFBD>
+    ''' </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>
+    ''' <20><><EFBFBD><EFBFBD>Űó<C5B0><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̵<EFBFBD>
+    ''' </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>
+    ''' <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Ұ<EFBFBD><D2B0><EFBFBD><EFBFBD><EFBFBD>?
+    ''' </summary>
+    ''' <value></value>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    <System.ComponentModel.Description("<22>信<EFBFBD><E4BFA1> <20>߻<EFBFBD><DFBB>ϴ<EFBFBD> <20>޼<EFBFBD><DEBC><EFBFBD><EFBFBD><EFBFBD> ǥ<><C7A5><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Դϴ<D4B4>.")> _
+    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>
+    ''' <20><><EFBFBD><EFBFBD>Ű<EFBFBD><C5B0> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>Ű<EFBFBD><C5B0> <20>߻<EFBFBD><DFBB>մϴ<D5B4>
+    ''' </summary>
+    ''' <value></value>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    <System.ComponentModel.Description("<22><><EFBFBD><EFBFBD>Ű<EFBFBD><C5B0> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>Ű<EFBFBD><C5B0> <20>߻<EFBFBD><DFBB>մϴ<D5B4>")> _
+    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)   '//<2F>ٻ<EFBFBD><D9BB><EFBFBD>
+                Else
+                    If v_DeleteKey AndAlso Me.RowCount > 0 Then Me.CurrentCell.Value = DBNull.Value
+                End If
+
+        End Select
+    End Sub
+
+End Class