31-03-21, 06:18 PM
مثال بسيط عله يساعدك
هذا عند الضغط مرتين على الخانة المراد البدء منها في أي سطر تريد
Private Sub DataGridView1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
dim ICol = DataGridView1.CurrentCell.ColumnIndex
dim IrowS = DataGridView1.CurrentCell.RowIndex
For i = 0 To DataGridView1.Columns.Count - ICol
DataGridView1.Rows(IrowS).Cells(ICol).Value = i
if i < 10 then
DataGridView1.Rows(0).Cells(i).Value = "0" & i
end if
Next
End Sub
هذا عند الضغط مرتين على الخانة المراد البدء منها في أي سطر تريد
Private Sub DataGridView1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
dim ICol = DataGridView1.CurrentCell.ColumnIndex
dim IrowS = DataGridView1.CurrentCell.RowIndex
For i = 0 To DataGridView1.Columns.Count - ICol
DataGridView1.Rows(IrowS).Cells(ICol).Value = i
if i < 10 then
DataGridView1.Rows(0).Cells(i).Value = "0" & i
end if
Next
End Sub
