[vbnet]

(26-05-14, 07:02 PM)عمار عيثاوي كتب : السلام عليكم كيف استطيع التنقل داخل الداتا كريد عن طريق زر الانتر ويكون التنقل افقي
واني جدا ممنون

منقول

نضع الكود التالي في Class جديد ثم نذهب إلى القائمة Build ونختار Build المشروع وبعدها نجد أداة جديدة في أعلى الأدوات إسمها DataGridViewEX

كود :

Public Class DataGridViewEX
    Inherits System.Windows.Forms.DataGridView

    Protected Overrides Function ProcessDialogKey(ByVal keyData As Keys) As Boolean
        Dim key As Keys = (keyData And Keys.KeyCode)
        If key = Keys.Enter Then
            If Me.CurrentCell.ColumnIndex = Me.Columns.Count - 1 Then
                Me.CurrentCell = Me.Item(0, Me.CurrentRow.Index)
                Return Me.ProcessDownKey(keyData)
            Else
                Return Me.ProcessRightKey(keyData)
            End If
        End If
        Return MyBase.ProcessDialogKey(keyData)
    End Function

    Protected Overrides Function ProcessDataGridViewKey(ByVal e As KeyEventArgs) As Boolean
        If e.KeyCode = Keys.Enter Then
            If Me.CurrentCell.ColumnIndex = Me.Columns.Count - 1 Then
                Me.CurrentCell = Me.Item(0, Me.CurrentRow.Index)
                Return Me.ProcessDownKey(e.KeyData)
            Else
                Return Me.ProcessRightKey(e.KeyData)
            End If
        End If
        Return MyBase.ProcessDataGridViewKey(e)
    End Function

End Class