08-06-13, 08:03 AM
09-06-13, 07:20 AM
السلام عليكم
- إستخدم هذا الكود ألصقة داخل كود الفورم :
- تحياتي .
- إستخدم هذا الكود ألصقة داخل كود الفورم :
كود :
Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If MSFlexGrid1.Col < MSFlexGrid1.Cols - 1 Then
MSFlexGrid1.Col = MSFlexGrid1.Col + 1
Else
If MSFlexGrid1.Row < MSFlexGrid1.Rows - 1 Then
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
MSFlexGrid1.Col = 1
Else
MSFlexGrid1.Row = 1
MSFlexGrid1.Col = 1
End If
End If
End If
End Sub- تحياتي .