04-12-18, 01:37 AM
اولا احب اشكر الاعضاء المحترمين الي ف المنتدى على جديتهم ومرورهم الكريم ع الاسئله والي صراحة استفدت منهم كتير ولهم مني فائق الاحترام
سؤالي عن كود للداتا جريد فيو عاوز اخلي انتر يمشي افقي فيها يعني انا واقف على خليه رقم 0 لما ادوس انتر يمشي للخليه رقم 2 واما يخلص الاعمده ينزل سطر لاسفل
انا جربت الكود الي هوا
Public Class exDataGridView
Inherits 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
بس انا خلصت البرنامج وعشان افضل اغير ف الداتا جريد فيو اني اشيل القديمه واحط الجديده واسمي الاعمده وكدا دا هياخد وقت كبير اووي فلو ينفع كود يتحط فاي حدث خاص بالداتا جريد فيو ماشي ولكم الشكر
السؤال التاني
ازاي اخلي انتر يعمل سليكت للصف الي انا واقف فيه يني مثلا
Private Sub DGV_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV.CellContentClick
Try
IS_YES = True
Close()
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
يعني مثلا دي فورم
لما بدوس على خليه فيها بيختار الخليه الي اختارتها وبيقفال
انا عاوز بقا انتر يعمل كدا
سؤالي عن كود للداتا جريد فيو عاوز اخلي انتر يمشي افقي فيها يعني انا واقف على خليه رقم 0 لما ادوس انتر يمشي للخليه رقم 2 واما يخلص الاعمده ينزل سطر لاسفل
انا جربت الكود الي هوا
Public Class exDataGridView
Inherits 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
بس انا خلصت البرنامج وعشان افضل اغير ف الداتا جريد فيو اني اشيل القديمه واحط الجديده واسمي الاعمده وكدا دا هياخد وقت كبير اووي فلو ينفع كود يتحط فاي حدث خاص بالداتا جريد فيو ماشي ولكم الشكر
السؤال التاني
ازاي اخلي انتر يعمل سليكت للصف الي انا واقف فيه يني مثلا
Private Sub DGV_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV.CellContentClick
Try
IS_YES = True
Close()
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
يعني مثلا دي فورم
لما بدوس على خليه فيها بيختار الخليه الي اختارتها وبيقفال
انا عاوز بقا انتر يعمل كدا
