26-05-14, 08:22 PM
(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


